Програмирование на FREE Pascal

[АЛМАЗЗЗ73]

Здравствуйте, кто сможет, решите задания по информатике,по free pascal ничего не знаю, если не сдам из универа выгонят
1)Даны три действительных числа.Написать программу,находящую минимальное число.
2)Разработать программу,которая выводит на экран дисплея значения функции sin t при различных значениях аргумента t
Код аргумента 1 2 3 4 5
строка меню sin(0) sin(Pi/6) sin(Pi/4) sin(pi/3) sin(pi/2)
выводимая строка '0' '1/2' 'SQRT(2)/2' 'SQRT(3)/2' '1'

3)Пусть элементами прямоугольного равнобедренного треугольника являются: а)катет а, б)гипотенуза b; в)высота h,опущенная из вершины прямого угла на гипотенузу. г)площадь S. Составить программу,которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольников.

[Poma][a]

эх....
№1

var
    a, b, c, max : Real;
 
begin
    Write ('Введите три числа: ');
    Read (a, b, c);
 
    if a >= b then
        max := a
    else
        max := b;
 
    if c > max then
        max := c;
 
    WriteLn ('Максимальное из них: ', max);
 
end.

[whatever]

1

if(a<=b)and(a<=c)then writeln(a);
if(b<=a)and(b<=c)then writeln(b);
if(c<=a)and(c<=b)then writeln(c);

2

readln(t)
case t of
  1:writeln('0');
  2:writeln('1/2');
  3:writeln('SQRT(2)/2');
  4:writeln('SQRT(3)/2');
  5:writeln('1');
end;

А это зачем:

строка меню sin(0) sin(Pi/6) sin(Pi/4) sin(pi/3) sin(pi/2)

?

для третьей геометрию вспоминать надо, нехочу

Update: Вариант, который предложил Poma][a все-таки лучше, мой может выводить одновременно несколько чисел, при определенных условиях.

[Poma][a]

Вариант, который предложил Poma][a все-таки лучше

э][, как приятно

[Hacker19_90]

Вариант, который предложил Poma][a все-таки лучше, мой может выводить одновременно несколько чисел, при определенных условиях.

Мб! Ток ищет наоборот
Подправить бы малость!

[Poma][a]

Подправить бы малость

а поконкретней?
то есть сначала max := a и потом развилки?

[Hacker19_90]

а поконкретней?

Ну...
Найти всё таки минимум, а не максимум!

[Poma][a]

ааа... блин вроде максимум был...

[АЛМАЗЗЗ73]

Помогите ещё решить!!!пожалуйста
1)составить алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы. Последовательность задана формулой: An= ((- 1)^(n))*(X^(n)/2n-1)
2 задание
Составить алгоритм и программу,вычисления суммы ряда в соответствии с приведённым вариантом. Справа от знака равенства дано для контроля математическое значение ряда 1+1/2+1/4+1/8+...+1/2^(n) волнистое равно=2

[BlackFishSQL]

для третьей геометрию вспоминать надо, нехочу

Я как раз наоборот, писать лень!


Вот формулы!
1)sqr(AB)=sqr(CB)+sqr(CA) - т-ма Пифагора
2)Высота:
sqr(CH)=AH*HB

CH=(AC*CB)/AB
3)Катеты: к примеру sqr(CB)=HB*AB отзеркаливается аналогично!
4)Площадь
S=1/2 CB*AC

S=AC*CB/2 - половина произведения катетов, но точно её не помню
Это всё что помню! В интернете я уверен можно найти!

p.s. недавно в школе проходили !)