три цикла for,while,repeat

@tem@ · Регистрация: 23.12.2009

Author24 — интернет-сервис помощи студентам

даны целые X и n.вычислить sin(x)+sin(x^2)+...+sin(x^n)

три вида цикла в одной проограмме

помогите пожалуйста

@Puporev · 01.02.2010, 22:48

Pascal

uses crt;
var x,n,i,j:integer;
    s,p:real;
begin
clrscr;
writeln('Введите целые числа x,n');
readln(x,n);
s:=0;
for i:=1 to n do
 begin
  p:=1;
  for j:=1 to i do
  p:=p*x;
  s:=s+sin(p);
 end;
writeln('Sfor   =',s:0:5);
s:=0;
i:=0;
while i<n do
 begin
  i:=i+1;
  p:=1;
  for j:=1 to i do
  p:=p*x;
  s:=s+sin(p);
 end;
writeln('Swhile =',s:0:5);
s:=0;
i:=0;
repeat
  i:=i+1;
  p:=1;
  for j:=1 to i do
  p:=p*x;
  s:=s+sin(p);
until i=n;
writeln('Srepeat=',s:0:5);
readln
end.

@tem@ 4 / 4 / 0 Регистрация: 23.12.2009 Сообщений: 52
		1
	три цикла for,while,repeat 01.02.2010, 21:56. Показов 1477. Ответов 1 Метки нет (Все метки) даны целые X и n.вычислить sin(x)+sin(x^2)+...+sin(x^n) три вида цикла в одной проограмме помогите пожалуйста 0

	01.02.2010, 22:48

Опции темы

три цикла for,while,repeat

Решение