Изображение отрезка LINE (x1,y1)-(x2,y2) Например: SCREEN 7 LINE (50,100)-(80,30),5
Изображение прямоугольника LINE(x1,y1)-(x2,y2) Например: SCREEN 7 LINE (50,100)-(80,30),5,B Изображение закрашенного прямоугольника LINE(x1,y1)-(x2,y2),
Слайд 10
Фортран Фрагмент программы на языке Фортран
Алгоритм Евклида
(нахождение
наибольшего общего делителя)
INTEGER FUNCTION NOD (X,Y)
INTEGER X
INTEGER Y
40 IF (X.EQ.Y) GO TO 10
IF (X.GT.Y) GO TO 20
Y=Y-X GO TO 30
20 X=X-Y
30 GO TO 40
10 RETURN
END
Слайд 11
Алгол-58 Фрагмент подпрограммы на языке Algol-60
Алгоритм Евклида
(нахождение наибольшего
общего делителя) integer procedure NOD (X,Y);
integer X,Y;
begin
while X#Y