Паскаль

[Tale sorteggio]

Я учу Паскаль. Но некоторые задания сделать никак не получается. Может кто объяснит?
1) Напечатать разными цветами 5 раз слово "Привет" в центре текстового экрана и по углам экрана. При попытке вывести символ точно в праый нижний угол экрана произойдет "прокрутка" экрана. Оставьте этот угол пустым.
2) Написать программу, которая по нажатию клавиши "r" печатает в центре экрана слово "Red" красным цветом, по нажатию на клавишу "g" печатает в центре экрана слово "Green" заленым цветом, по нажатию на клавишу "b" печатает в центре экрана слово "Blue" голубым цветом, в остальных случаях печатает желтым "Error".
3) Составить программу, вычисляющую сумму четных чисел от 1 до N. Значение N ввести с клавиатуры.
Буду очень благодарна) Заранее спасибо.

Comments

[Vj_o-oy]

1) Учим мат часть. Функции: GotoXY, TextColor
2)
что-то типа:
var
c: char;
begin
read(c);
case c of
'r':
begin
TextColor(4);
writeln('Red');
end;
...
else
begin
TextColor(14);
writeln('Yellow');
end;
end;
end.

3) самое простое - цикликом Хотя вроде бы там формулка была какая-то )

[Tale sorteggio]

Vj_o-oy
В первом слово у меня получается, а вот "При попытке вывести символ..." - это не выходит((

[Vj_o-oy]

*Lina* не понял смысл фразы

[Crazy Wizard]

Во втором конструкция CASE должна проверять, что считалось. Если r, то пишет то-то и т.п. В конце дефолт - ошибка.

[Пашка Баландин]

Немного не в тему. А зачем тебе Pascal?

[Tale sorteggio]

Vj_o-oy В первом задании слово "Привет" у меня везде, где требуется печатается, а вот "прокрутка экрана" не выходит.
В третьем задании я циклом и хотела сделать. Но не могу разобраться с тем, как считать именно четные числа. Может с помощью if?
Пашка Баландин Ну мы вообще его в школе начали проходить, теперь вот каникулы. Ну и как - зачем... Хочется, да и вобщем и так учить придется, т. к. хочу в будущем поступать на информатику. А что?

[Vj_o-oy]

*Lina* а что мешает сделать цикл while и в нем инкрементировать переменную на 2?
Прокрутка должна сработать если начать вывод (с первого символа) в самое угловое знакоместо. если отсчитать назад достаточное число символов - прокрутки быть не должно.

Пашка Баландин , ну например мы в 8 классе паскаль изучать стали ) да и вообще полезно для общего развития )))