Алгоритм, в котором переменной Y присваивается значение большей из трёх величин A, B и C.Пусть A=45, B=16 и C=32.Сколько будет Y?​

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.

Объяснение: