Немного задач в Turbo Pascal (прогу помочь)

[-Father-]

Здравствуйте, уважаемые программисты!
Суть в том, что мой сын пошел на курсы Turbo Pascal 7.0, получил первое домашнее задание, а справиться никак не может. Уже 3 дня голову ломает. Я в этом не разбираюсь, поэтому прошу помощи у Вас.
Помогите ему, пожалуйста.
Хотя бы несколько задач.
Задания в Word'e, загрузил файл здесь -
Заранее спасибо!

P.S. Задания нужно сдать завтра... Просьба, помогите...

[Medved]

Если потрудитесь переделать этот файл в TXT и послать на jurassix@mail.ru , то помогу

[BHy4ok]

Што значит? - "Запишите в виде инструкции присваивания"
Что-то как то много получается задач для "первого домашнего задания". (10)
1.
[syntax='Pascal']
x,y:real;
y:=(-2.7*(exp(3*log(x))))+(0.23*(x*x))-1.4
//или
y:=(-2.7*(x*x*x))+(0.23*(x*x))-1.4
[/syntax]
2.
[syntax='Pascal']
a,b,z:real
begin
a:=1066.8; // a - верста
b:=5 // b - километр
z:=a*b;
[/syntax]
3.
[syntax='Pascal']
p,r,h,v:real;
begin
p:=3.14;
r:=5; // r - радиус
h:=7; // h - высота
V:=p*(r*r)*h;
[/syntax]
4.
[syntax='Pascal']
uses
crt;
var
a,b,g:real;
i,j:integer;
S:string;
begin
ClrScr;
writeln('Vichislenie stoimosti pokypki');
writeln('Vvedite ishodnie dannie: ');
writeln;
write('Cena tetradi(rub.)-> ');
readln(a);
write('Kolichestvo tetradei-> ');
readln(i);
write('Cena karandasha-> ');
readln(b);
write('Kolichestvo karandashei-> ');
readln(j);
g:=(a*i)+(b*j);
writeln;
writeln('Stoimost pokypki = ',g:2:2,' rub.');
readln;
end.
[/syntax]
5. Если мне память не изменяет то формула площади треугольника = ( S = 1/2*длину основания*высоту)
[syntax='Pascal']
uses
crt;
var
a,h,S:real;
begin
ClrScr
write('vvedite dliny osnovaniya-> ');
readln(a);
write('vvedite visoty-> ');
readln(h);
S:=(0.5*a*h);
writeln('Ploshad treygolnika = ',S:2:3);
readln;
end.
[/syntax]

[BHy4ok]

Все задачи очень простые, в большинстве случаев в одно действие, достаточно открыть учебник по паскалю.
6.
[syntax='Pascal']
uses
crt;
var
a,b,c,s:real;
begin
ClrScr;
writeln('Vichislenie stoimosti poezdki na dachy i obratno');
writeln;
write('rasstoyanie do dachi-> ');
readln(a);
write('rashod benzina na 100km-> ');
readln(b);
write('cena litra benzina-> ');
readln(c);
S:=((a*2)*(b/100)*c);
writeln('Poezdka na dachy i obratno oboidetsa v ',S:2:2,' rub.');
readln;
end.
[/syntax]

[-Father-]

Спасибо, сейчас ему дам почитать.
Жаль, что 6 из 10...
Огромное спасибо!
P.S. Если что, к кому можно обратиться?

[MOTOCoder]

№7
[syntax='Delphi']
var
SM:Integer;
begin
Writeln('Введите значение в минутах');
ReadLn(SM);
Writeln(SM div 60,':',SM mod 60);
readln;
end.
[/syntax]

№8
[syntax='Delphi']
var
N:Real;
begin
Writeln('Введите значение');
ReadLn(N);
WriteLn(Trunc(N),' рублей ',((N-Trunc(N))*100):0:0,' копеек');
readln;
end.
[/syntax]

№9
[syntax='Delphi']
var
A,B,C,D,E:integer;
begin
{a}
D:=B;
B:=C;
E:=A;
A:=D;
C:=E;
{b}
D:=A;
B:=A;
E:=C;
C:=D;
A:=E;
end.
[/syntax]

[-Father-]

Спасибо Вам огромное, MOTOCoder и BHy4ok.
Он все "сделал", кроме последнего, спит =)