Procedure R(Nazvanie:string; Cvet:byte); Begin TextBackground(Cvet); ClrScr; GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2); Write(Nazvanie); End;
Var n:byte; Begin HideCursor; TextBackground(0); ClrScr; TextColor(15); GotoXY(WindowWidth div 2-12,WindowHeight div 2); Write('Введите номер дня недели'); Case ReadKey of '1': R('Понедельник',4); '2': R('Вторник',14); '3': R('Среда',2); '4': R('Четверг',9); '5': R('Пятница',1); '6': R('Суббота',13); '7': R('Воскресенье',12); else R('В неделе сейчас семь дней!',0); End; ReadKey End.
Задание 1
program HelloMoney;
var
y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла
p, s: real; //Объявим переменные для количества процентов и величины вклада
begin
write('Какая сумма вклада? ');
readln(s); // Указываем сколько составляет вклад
write('На сколько лет вклад? ');
readln(y); // Указываем на сколько лет вклад
write('Какая процентная ставка?');
readln(p); // Указываем процентную ставку
for i:=1 to y do
s := s + s*p/100; // Прибавляем к вкладу ежегодный процент
write('Сумма денег составит: ', s);
end.
Объяснение:
Procedure R(Nazvanie:string; Cvet:byte);
Begin
TextBackground(Cvet);
ClrScr;
GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2);
Write(Nazvanie);
End;
Var n:byte;
Begin
HideCursor;
TextBackground(0);
ClrScr;
TextColor(15);
GotoXY(WindowWidth div 2-12,WindowHeight div 2);
Write('Введите номер дня недели');
Case ReadKey of
'1':
R('Понедельник',4);
'2':
R('Вторник',14);
'3':
R('Среда',2);
'4':
R('Четверг',9);
'5':
R('Пятница',1);
'6':
R('Суббота',13);
'7':
R('Воскресенье',12);
else R('В неделе сейчас семь дней!',0);
End;
ReadKey
End.