21.04.2010, 00:58
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
С нами:
9050197
Репутация:
38
|
|
Сообщение от dark-klin
Ребята срочно помогите решить задание из лабороторки в Pascal ABC с использованием оператора while.
1 задание 
2 задание  1 задание
PHP код:
uses crt;
var
x,i,k,n:integer;
p,l:real;
begin
clrscr;
writeln('Vvedite N');
readln(n);
writeln('Vvedite X');
readln(x);
l:=1;
p:=1;
while i<= n do
begin
i:=i+1;
while k<=i do
begin
k:=k+1;
l:=l*ln(x);
end;
p:=p*l;
l:=1;
end;
writeln('p=',p:3:3);
readln;
end.
2 задание
PHP код:
uses crt;
var
a1,a2,a3,a4,k,i:integer;
t:real;
begin
a1:=1;
a2:=1;
a3:=1;
a4:=1;
clrscr;
writeln('Vvedite k');
readln(k);
i:=1;
while i<= 3 do
begin
a1:=a1*i;
i:=i+1;
end;
i:=1;
while i<= 8 do
begin
a2:=a2*i;
i:=i+1;
end;
i:=1;
while i<=6 do
begin
a3:=a3*i;
i:=i+1;
end;
i:=1;
while i<= k do
begin
a4:=a4*i;
i:=i+1;
end;
t:=a1*a2/a4-a3;
writeln('t=',t:3:3);
readln;
end.
|
|
|