Линейная программа, выводящяя True/false, Срочно нужно.. сессия =( плиzzzz.. Опции

[Blackli]

Мне завтра нужно сдавать.. может быть кто-нибуть успеет помочь? =(
Я сейчас иду в библиотеку за каким-нибуть самоучителем, но вряд ли успею..
Заранее благодарнА за помощь!..

1) Нужно составить линейную программу, печатающую значение True, если указанное высказывание является истинным, и False - в противном случае: Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр.

**
У меня тут пять задачек.. я вот думаю.. лучше все в одну тему написать или отдельно для каждой создавать..

Эх.. лучше наверное все в одной..
**

2) Перераспределить значение переменных x и y так, чтобы в x оказалось большее, а в y - меньшее.

Я понимаю, что задачки простенькие.. но.. я ни разу за паскаль не садилАсь..

3) Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h:
[IMG]http://tii.ttknet.ru/img/blackli/formula/formul_3.JPG[/IMG]

4) Вычислить значение функции:
[IMG]http://tii.ttknet.ru/img/blackli/formula/formul_1.JPG[/IMG]


5)Вычислить значение выражения по формуле:
[IMG]http://tii.ttknet.ru/img/blackli/formula/formul_2.JPG[/IMG]

=(( а почему картинки не отображаются?

Сообщение отредактировано: volvo - 4.12.2005 18:31

[APAL]

5. Вычислить значение выражения по формуле:

Код

Var x,f : Real;
Begin
 Write('Введите x ');Readln(x);
 f:=sqrt(x*sqr(sin(x)/cos(x)));
 Writeln('F=',f:8:4);
End.