Question

▪ Задание №1. Написать игру «Угадай число». Программа загадывает число в диапазоне от 1 до 500. Пользователь пытается его угадать. После каждой попытки программа выдает подсказки, больше или меньше его число загаданного. В конце программа выдает статистику: за сколько попыток угадано число, сколько времени это заняло. Предусмотреть выход по 0, в случае, если пользователю надоело угадывать число. ▪ Задание №2. Написать программу – конвертер валют. Реализовать общение с пользователем через меню. ТОЛЬКО НЕ ИЗ ИНТЕРНЕТА!!!!30 БАЛЛОВ ДАЮ

Answer 1

(* ^ ω ^)

Игра:

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.: прикладываю файлы, чтобы было удобно

Answer 2

Здравствуйте! Я рад помочь вам с заданиями. Давайте начнем с первого задания - написания игры "Угадай число".

Вот пример кода на языке Python, который реализует данную игру:

import random
import time

def guess_number():
    number = random.randint(1, 500)
    attempts = 0
    start_time = time.time()

while True:
        guess = int(input("Угадайте число от 1 до 500: "))
        attempts += 1

if guess == 0:
            print("Выход из игры.")
            break
        elif guess < number:
            print("Загаданное число больше.")
        elif guess > number:
            print("Загаданное число меньше.")
        else:
            end_time = time.time()
            total_time = round(end_time - start_time, 2)
            print(f"Поздравляю! Вы угадали число {number} за {attempts} попыток.")
            print(f"Время, затраченное на игру: {total_time} секунд.")
            break

guess_number()

Теперь перейдем ко второму заданию - написанию программы-конвертера валют. Вот пример кода на языке Python, который реализует данную программу:

def convert_currency():
    print("1. Конвертировать из USD в RUB")
    print("2. Конвертировать из RUB в USD")
    choice = int(input("Выберите вариант (1 или 2): "))

if choice == 1:
        usd_amount = float(input("Введите сумму в USD: "))
        rub_amount = usd_amount * 74.5
        print(f"{usd_amount} USD = {rub_amount} RUB")
    elif choice == 2:
        rub_amount = float(input("Введите сумму в RUB: "))
        usd_amount = rub_amount / 74.5
        print(f"{rub_amount} RUB = {usd_amount} USD")
    else:
        print("Некорректный выбор.")

convert_currency()

Это простые примеры решений заданий. Вы можете изменить их по своему усмотрению и добавить дополнительные функции или проверки. Удачи в выполнении заданий! Если у вас возникнут вопросы, не стесняйтесь задавать.