помогите пожалуйста

[pelsh]

блин не как не могу сделать задачи по програмированию:
Задание: Поцедуры

Описать процедуру PowerA234(A, B, C, D), вычисляющую вторую, третью и четвертую степень числа A и возвращающую эти степени соответственно в переменных B, C и D (A — входной, B, C, D — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел.

Задание: Функции

Описать функцию RootsCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения A•x2 + B•x + C = 0 (A, B, C — вещественные параметры, A ? 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: D = B2 – 4•A•C.

Циклы с постусловием
1. Определить значение переменной s после выполнения следующих операторов:
s := 0; i := 1;
Repeat s := s + 5 Div i; i := 1 - 1; Until i<=1;

Множества
Ввести 10 символов в множество символов A и вывести в алфавитном порядке все элементы множества А

Задание: Строка как массив

Дана строка. Преобразовать в ней все прописные латинские буквы в строчные.

Задание: Стандартные функции работы со строками

Замените каждую встреченную в строке X букву "к" сочетанием букв "ken"



зарание спосибо!!!
P/S
если есть возможность скиньте мне решение на мыло:
gerasimov-vlad@rambler.ru

[_Dmitry]

Сообщение от pelsh

блин не как не могу сделать задачи по програмированию

А если честно, попытки были?
1. Умножай число само на себя 2, 3 и 4 раза.
2. Количество корней квадратного уравнения всегда 2. Корни могут быть действительными и комплексными. Посчитать наверно нужно число действительных корней. Если D<0 то таковых нет (корни комплексные), если D=0 то корень 1 (2 действительных корня совпадают), если D>0 то корней 2.
3. Печатай значение s и смотри.
4. Здесь придется немножко напрячь интеллект.
5. Вот функция из модуля Delphi которая преобразует строчную букву в прописную

function UpCase( ch : Char ) : Char;
begin
  Result := ch;
  case Result of
    'a'..'z':  Dec(Result, Ord('a') - Ord('A'));
  end;
end;

исправте ее (сделайте наоборот), это совсем не сложно.
6. Цикл по символам строки, если символ не 'k' пишем его в новую строку, если символ 'k' пишем в новую строку 'ken'.

[pelsh]

а команды попроще можно?
у нас препод по этому поводу мозги парит!