ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от krypt3r

Неопределены переменные b, c, z, Pi, нет ключевого слова begin, начинающего программу, разорван знак <= (пробела быть не должно)

Pi это константа, а не переменная.

>>serhio<< , с учетом сделанных замечаний, и не вникая в суть программы, можно сказать, что код будет выглядеть так:

Код:

program variant1;
uses crt;
var
  a, b, c, x, y, z:real;
begin
  ClrScr;
  b:=pi;
  c:=2*Pi;
  z:=Pi/4;
  y:=b;

  while (y <= c) do
    begin
      x := 1 - 2*cos(a*y) + ln(y);
      a := ln(y)/ln(2);
      writeln(y,x,a);
      y := y+z;
    end;
  readln;
end.