Помощь - Поиск - Пользователи - Календарь
Полная версия: Sin() и Cos()
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
XaMMaX
Подскажите где ошибка:

program test;
uses graph;
var
x,y,r,a:integer;
begin
r:=20;
a:=2;
repeat
a:=a+2;
x:=sin(a)*r;
y:=cos(a)*r;
putpixel(x,y,white);
until a:=320;
end.


Знаю в прошлой теме обьяснили, но можете ли вы исправить ошибку и написать правильный скрипт!
Романтик
значение от sin cos имеют вещественный тип.
volvo
  x:=Trunc(sin(a)*r);
y:=Trunc(cos(a)*r);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.