Регистрация
shuratimoschin
28.06.2023 02:04
Информатика
Есть ответ 👍

Написать программы на паскале

281
478
Посмотреть ответы 2

Ответы на вопрос:

Kamilla27042007
Kamilla27042007
4,6(72 оценок)

pascalabc.net

1

begin

  var x : = -pi / 2;

  while x < = pi / 2 + 1e-5 do

  begin

    writeln(x: 8: 5, sin(x): 20: 14);

    x += pi / 12

  end;

end.

2

begin

  var (s, p2, z) : = (0.0, 2.0, 1);

  for var n : = 1 to 1000 do

  begin

    s += z * n * n * n / p2;

    z : = -z;

    p2 *= 2

  end;

  println(s)

end.

Bekarys2002
Bekarys2002
4,4(4 оценок)

var i,max: integer; fio: string; x: array[1..5] of integer;       f1,f2: text; begin  assign(f1, 'out.txt'); assign(f2, 'out2.txt');   rewrite(f1); rewrite(f2);   for i: =1 to 5 do    begin        writeln('daite fio ',i,'-ogo rabotnika'); readln(fio);         writeln('daite otklad rabotnika ',i); readln(x[i]);         writeln(f1, i,' ',fio,' ',x[i]); fio: ='';     end;     max: =x[1];     for i: =1 to 5 do if x[i]> max then max: =x[i];     writeln(f2, max);   close(f1); close(f2);   readln; end.

 

rabotatet! proveril v pascale

Популярно: Информатика