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

[elena68r]

составить алгоритм данной задачи на языке бейсик

[elena68r]

простите...на языке паскаль

[InfStudent]

А свои мысли есть?

[elena68r]

да.

[elena68r]

говорит ошибка типа в слове clrscr

[Asix]

Может проще код писать на форуме, а не выкидывать файлы =))

[elena68r]

uses crt;
var
a,x,f,deltax, limit:real;
begin
{ўў®¤ ¤ ­­ле}
clrsqr
writeln('ўўҐ¤ЁвҐ §­ зҐ­ЁҐ a=');
readln(a);
clrsqr;
writeln('ўўҐ¤ЁвҐ ­ з «м­®Ґ §­ зҐ­ЁҐ x=');
readln(x);
clr sqr;
writeln('ўўҐ¤ЁвҐ ­ з «м­®Ґ §­ зҐ­ЁҐ limit=');
readln(limit);
clr sqr;
writeln('ўўҐ¤ЁвҐ ­ з «м­®Ґ §­ зҐ­ЁҐ и Ј  deltax=');
readln(delta x=');
clr sqr;
{а бзҐв­ п з бвм}
while(x<= limit) do
 begin
  if (x>1) then f:= sin(sqrt(a*x))* sin(sqrt(a*x))
  else f:= ln(x+1)/ ln10;
  writeln('x=', x:1:2,' f='m f:1:5);
  x:= x+ delta x;
  end;
  readln;
  end.

[elena68r]

вместо этих знаков там написано введите значение х)))

[elena68r]

говорит ошибка типа в слове clrscr

[samar]

";" этот знак надо после clrscr