Написать программу в Паскале.
10-11 класс
|
Задача: Заполнить экран синим цветом.Введите строчку с клавиатуры.Выведите строку в правом верхнем углу экрана,вставив в нее после первого заданное слово.
uses
GraphABC;
var
s: string; //Вся строка
i: byte; //Номер нужного слова
begin
readln(s);
readln(i);
s := s.Split(' ')[0] + ' ' + s.Split(' ')[i - 1];
SetBrushColor(clBlue);
FillRectangle(0, 0, WindowWidth, WindowHeight);
GraphABC.SetFontSize(12);
TextOut(WindowWidth - s.Length * 12, 0, s);
end.
Другие вопросы из категории
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
Нужно написать программу, при помощи которой можно будет преобразовать из шестнадцатеричного кода в десятеричную (Желательно на Delfi!)
Ввести с пульта оператора в массив А(10) любые целочисленные числа.Программно записать в обратном порядке.Результат вывести на экран
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
http://primat.org/index/0-128 вот сайт что бы написать программу.
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.