Turbo Pascal

[KoLoB]

Ето решение кому?

тебе, если ты не понял

 

[Ганнусик]

program sin;
Uses Crt;
Var
i:real;
Ch:Char;
Begin
TextBackGround(6);
TextColor(1);
CLRSCR;
i:=0;
Repeat
Write('sin ',i,' = ',(sin(i)));
i:=i+0.1;
Until i>=pi/2;
memw[0:$41a]:=memw[0:$41c];
ch:=readkey;
end.

Это программа для вывода синусов с 0 до 90 градусов с интервалом 0,1
но почему - то не работает.может кто то подскажет где ошибка?
З.Ы. если вместо sin(i) поставить cos(i) то все прекрасно работает,а так ошибка Error 94: "." expected.
help please!
ADD:
как вариант можна сделать так:
Write('cos ',i,' = ',sqrt(1-sqr(cos(i))));
но помоэму это извращение...

 

[vini]

memw[0:$41a]:=memw[0:$41c];

Рождественскому привет!

 

[Ганнусик]

by the way, а перевод в радианы?

а почему тогда косинусы считает?
напишите пожалуйста как правильно сделать!

 

[AkeL.php]

Ганнусик, у меня вот так всё выходит:

program rrr;
Uses Crt;
Var
i:real;
Ch:Char;
Begin
TextBackGround(6);
TextColor(1);
CLRSCR;
i:=0;
Repeat
Writeln('sin ',i,' = ',sin(i));
i:=i+0.1;
Until i>=pi/2;
ch:=readkey;
end.

 

[pentium]

Люди помогите кто нить написать программу!=)
А то я сам по этой теме сильно нешарю.=(
Вот программа:
"Создать текстовый файл fonotek.txt, содержащий сведения о музыкальных альбомах различных групп (название группы, название альбома, год выпуска, стиль). Удалить из файла все альбомы в стиле pop и techno. Переписать в другой файл информацию об альбомах в порядке убывания года выпуска."
Помогите кто может.=)

 

[Либерти]

Нужен хороший учебник и желательно практикум по Pascal

 

[pentium]

Да есть он у меня,тока программу надо сдавать через 4 дня!(
А я не в состоянии сделать программу.=(
(видно медведь в детсве на меня всего наступил=))

 

[pentium]

Люди помогите кто может с программой, пожалуйста.=)

 

[BAlex]

Люди помогите кто может с программой, пожалуйста.=)

50 грн. (с учетом срочности)