▪ Задание №1.
Написать игру «Угадай число». Программа загадывает число в диапазоне от 1 до 500. Пользователь пытается его угадать. После каждой попытки программа выдает подсказки, больше или меньше его число загаданного. В конце программа выдает статистику: за сколько попыток угадано число, сколько времени это заняло. Предусмотреть выход по 0, в случае, если пользователю надоело угадывать число.
▪ Задание №2.
Написать программу – конвертер валют. Реализовать общение с пользователем через меню.
ТОЛЬКО НЕ ИЗ ИНТЕРНЕТА!!!!30 БАЛЛОВ ДАЮ
Написать игру «Угадай число». Программа загадывает число в диапазоне от 1 до 500. Пользователь пытается его угадать. После каждой попытки программа выдает подсказки, больше или меньше его число загаданного. В конце программа выдает статистику: за сколько попыток угадано число, сколько времени это заняло. Предусмотреть выход по 0, в случае, если пользователю надоело угадывать число.
▪ Задание №2.
Написать программу – конвертер валют. Реализовать общение с пользователем через меню.
ТОЛЬКО НЕ ИЗ ИНТЕРНЕТА!!!!30 БАЛЛОВ ДАЮ
Answers & Comments
(* ^ ω ^)
Игра:
begin
var randomNumber := Random(500) + 1;
Println('Число загадано. Удачи!');
var attempts: integer := 1;
while true do
begin
var getNumber := ReadInteger('Введи число:');
if getNumber = 0 then
begin
Println('Вы проиграли. Число было', randomNumber);
break
end
else if getNumber < randomNumber then
Println('Не угадал. Число больше')
else if getNumber > randomNumber then
Println('Не угадал. Число меньше')
else
begin
Println('Ты угадал! Это число', randomNumber);
Println('Тебе потребовалось попыток:', attempts);
break;
end;
attempts += 1;
end;
end.
Конвертер:
begin
var dollar := 76.71; // Текущий курс
Println('*** Конвертер валют ***');
while true do
begin
Println('Выбери действие (введи число)');
Println('[1] RUB -> USD');
Println('[2] USD -> RUB');
Println('[0] Выход');
var item := ReadInteger('>>>');
case item of
1:
begin
var moneyRus := ReadReal('Введи рубли для перевода их в доллары: ');
Println('Получаем', moneyRus / dollar, '$');
end;
2:
begin
var moneyUsd := ReadReal('Введи доллары для перевода их в рубли: ');
Println('Получаем', moneyUsd * dollar, '₽');
end;
0: break
end;
Println;
end;
Print('Выход.');
end.
p.s.: прикладываю файлы, чтобы было удобно