Текст, который мы выводим на экран с процедуры Writeln или с оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...
Использование program, begin…end, write, readln, Uses Crt, Clrscr.
В этом уроке мы напишем самую простую программу, состоящую всего из пяти строк. Эта программа будет выводить сообщение на экран. Для написания программы нам необходимо знать как работают операторы Write, Readln, а также понять для чего нужны ...
Функции LENGTH и CONCAT.
Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...
Textcolor, Window, Textbackground в Pascal.
Текст, который мы выводим на экран с процедуры Writeln или с оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...
Использование program, begin…end, write, readln, Uses Crt, Clrscr.
В этом уроке мы напишем самую простую программу, состоящую всего из пяти строк. Эта программа будет выводить сообщение на экран. Для написания программы нам необходимо знать как работают операторы Write, Readln, а также понять для чего нужны ...
Функции LENGTH и CONCAT.
Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...
Циклы и массивы
uses GraphABC;
var pic : integer;
begin
SetWindowSize (700, 750);
ClearWindow (clBlack);
SetFontSize(20);
pic:=LoadPicture('bohr.jpg');
DrawPicture (pic, 30, 30, 180, 200);
SetFontColor(clGreen);
TextOut(100,240,'Бор');
pic:=LoadPicture('Galileo.jpg');
DrawPicture (pic, 210, 230, 200, 230);
SetFontColor(clBrown);
TextOut(250,470,'Галилео');
pic:=LoadPicture('Einstein.jpg');
DrawPicture (pic, 30, 460, 180, 210);
SetFontColor(clRed);
TextOut(50,680,'Эйнштейн');
pic:=LoadPicture('Leonardo.jpg');
DrawPicture (pic, 410, 60, 180, 210);
SetFontColor(clBlue);
TextOut(440,280,'Леонардо');
pic:=LoadPicture('Newton.jpg');
DrawPicture (pic, 410, 400, 190, 210);
SetFontColor(clPurple);
TextOut(450,620,'Ньютон');
end.
Объяснение: