program corablik; uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; x,y,y0,a,b: integer;{a,b-переменные для линии моря, чтоб они не зависели от х,у} procedure more(a,b:integer); begin moveto(0,y0); setcolor(blue); for a:=0 to 680 do{слева направо рисуем синусоиду синего чвета} begin b:=y0-round(sin(a*pi/180)*30);{30-коэффициент масштабирования по оси Х, чем больше, тем волна круче} lineto(a,b); end; end; begin grDriver := Detect; InitGraph(grDriver, grMode, '..\BGI'); ErrCode := GraphResult; y0 := 250; if ErrCode = grOk then begin x:=600; while x>=0 do{лучше использовать цикл while, можно менять величину шага, что тоже влияет на скорость и частоту смены картинки} begin cleardevice; more(a,b);{рисуем волну} setcolor(white);{устанавливаем цвет кораблика} y:=y0-40-round(sin(x*pi/180)*30);{движемся по волне} MoveTo(x - 40, y + 20); LineTo(x - 20, y + 40); LineTo(x + 20, y + 40); LineTo(x + 40, y + 20); LineTo(x - 40, y + 20); MoveTo(x + 15, y + 20); LineTo(x + 15, y - 40); LineTo(x - 20, y + 20); LineTo(x + 15, y + 20); delay(100); {нормальная скорость, если модули *.TPL не глючные как у Вас, время должно быть в миллисекундах, а не в каких-нибудь наносекундах} x:=x-2;{шаг движения} end; end else Writeln('Graphics error: ', GraphErrorMsg(ErrCode)); Settextstyle(0,0,3);{устанавливаем стиль шрифта} cleardevice; setcolor(red); OuttextXY(200,240,'Rejs zavershen!');{выводим надпись} readln; CloseGraph; end.
По горизонтали: 1. Механическое устройство ввода, преобразующее движение в сигнал(мышь) 2. Самое используемое из кнопочных устройств ввода (клавиатура) 3. Какой информационный процесс обеспечивает микрофон?(ввод) 4. Главные составляющие компьютера: оперативная память, материнская плата и...(процессор) 5.Объявление переменной и присваивание ей определённого значения-это...(инициализация) По вертикали: 1. Какой информационный процесс обеспечивают динамики? (вывод) 2. Как иначе называется оперативная память? (озу) 3. Какой информационный процесс обеспечивает носитель информации?(хранение) 4. Язык программирования, созданный Клаусом Виртом.(Паскаль) 5. Устройство выполнять заданную, чётко определённую изменяемую последовательность операций(компьютер)
1. Механическое устройство ввода, преобразующее движение в сигнал(мышь)
2. Самое используемое из кнопочных устройств ввода (клавиатура)
3. Какой информационный процесс обеспечивает микрофон?(ввод)
4. Главные составляющие компьютера: оперативная память, материнская плата и...(процессор)
5.Объявление переменной и присваивание ей определённого значения-это...(инициализация)
По вертикали:
1. Какой информационный процесс обеспечивают динамики? (вывод)
2. Как иначе называется оперативная память? (озу)
3. Какой информационный процесс обеспечивает носитель информации?(хранение) 4. Язык программирования, созданный Клаусом Виртом.(Паскаль)
5. Устройство выполнять заданную, чётко определённую изменяемую последовательность операций(компьютер)
Цифры в кросссворде сам расставишь