Question

Написать программу в Pascal по 2 способам repeat и while.Сделать блок-схему

Answer 1

На TP7

var
x,i:integer;
s:real;
begin
    write('vvedite x: ');
    readln(x);
    i:=1;
    repeat 
         i:=i+1; 
          s:=s+i*cos(i*x);
    until i=15;
 writeln('s=',s);
end.


var
x,i:integer;
s:real;
begin
  write('vvedite x: ');
  readln(x);
   i:=1;
   while i<16 do
        begin 
           i:=i+1; 
           s:=s+i*cos(i*x);
         end;
    writeln('s=',s);
end.

Имейте в виду, что алгоритмы построены по коду автоматически, и препод это сразу увидит.