Линейная программа, выводящяя 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 14:31

[APAL]

4. Вычислить значение функции:

Код

Var x,y,F : Raal;
Begin
 Write('Введите x y : '); Radln(x,y);
 F:=(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+x*x*y*y)));
 Writeln('F=',F:8:4);
End.