Народ помогите., Pascal abc:for14,while11,series19,proc11,proc20 Опции

[Under Mark]

к зачету нужно решить решить в Pascal abc задачи из Programming Taskbook :
for14,while11,series19,proc11,proc20.
а я в паскале ваще полный 0 (((помогите пожалуйста!!!
вот сами задачи:
for14
дано целое число N(>0).Найти квадрат данного числа, используя для его вычислений следующую формулу:
N2(в квадрате)=1+3+5+...+(2*N-1)(*-умножение)
после добавления к сумме каждого слогаемого выводить текущее значение суммы(в результате будут выведены квадраты всех целых чисел от 1 до N)

While14:
Дано целое число N(>1).вывести наименьшее из целых чисел K, для которых сумма 1+2+...+K будет больше или равна N, и саму эту сумму.

Series19:
дано целое число N(>1)и набор из N целых чисел.Вывести те элименты в наборе, которые меньше своего левого соседа, и количество K таких элиментов.


proc 11
Описать процедуру Minmax(x,Y),записывающую в переменную Х минимальные из значений Х и Y, а в переменную Y-максимальные из этих значений (Х и Y-вещественные параметры, являющиеся одновременно входными и выходными).Используя четыре вызова этой процедуры,найти минимальное и максимальное из данных чисел А,В,С,D

Proc 20:
Описать функцию TriangleP(a, h), находящую периметр равнобедренного треугольника по его основанию а и высоте h, проведенной к основанию (a и h-вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. для нахождения боковой стороны b треугольника использовать теорему пифагора b2(2-в квадрате)=(а/2)2(в квадрате)+H2(в квадрате)

буду очень благодарен!


Сообщение отредактировано: Under Mark - 20.12.2007 17:58

[klem4]

Оформи тему как следует, прочитав предварительно правила, иначе она будет закрыта.

[Under Mark]

Оформи тему как следует, прочитав предварительно правила, иначе она будет закрыта.

так нормально?или еще что то изменить надо?если надо то что??

[Michael_Rybak]

М

Не нормально. 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 6. Одна тема - один вопрос (задача)

[Client]

Описать процедуру Minmax

Воть...

uses crt;
var
   a,b,c,d:real;

procedure max(var x,y:real);
var
   c:real;
begin
     if x>y then begin
        c:=x;
        x:=y;
        y:=c
     end
end;

begin
     clrscr;
     write(' Vvedite: ');
     readln(a,b,c,d);
     max(a,d);
     max(a,b);
     max(c,d);
     max(b,c);
     write('  ',a:0:4,'  ',b:0:4,'  ',c:0:4,'  ',d:0:4);
     readkey
end.