Основы программирования в среде Turbo Pascal

[Рэнуля]

Здравствуйте.. Помогите пожалуйста решить 2 задания по турбо паскалю..(пролежала в больнице, сейчас не знаю как сдать зачёты..) заранее спасибо!!
1) Составьте программу вычисления произведения первых 7 натуральных чисел.

2) Для заданной функции K=tg(3,4z в кубе) + cos(z+1,2) вывести на экран значения функции, которые лежат в пределах от -1 до 1 и соответствующие им значения аргумента на отрезке s принадлежащем [-1,c] с шагом h=0,2

[Stilet]

1) Составьте программу вычисления произведения первых 7 натуральных чисел.

Факториал что ли?

var i,fac:integer;begin fac:=1;for i:=2 to 7 do fac:=fac*i;write(fac);readln;end.

[Рэнуля]

таак.. записала.. спасибо большое, буду пробовать!!!

[Mad_Cat]

var x,c,k,z:real;
begin
writeln('c=');
readln(c);
writeln('z=');
readln(z);
x:=-1;
while x<c do begin
k:=sin(3.4*z*sqr(3.4*z))/cos(3.4*z*sqr(3.4*z)+ cos(z+1,2);
if abs(k)<=1 then writeln(x:6:1,'  ',k:6:3);
x:=x+0.2;
end;
readln;end.

[Рэнуля]

спасибо огромное.. в четверг буду пробовать..=))

Второе задание решено не правильно помогите пожалуйста, это срочно... Сказали что вся программа неверна и что нужно вводить а и б а зет вообще лишний!

Там окончание задачи другое сказали делать. На отрезке z€[a,b] с шагом h= 0,2