Регистрация Спросить otvet5GPT
Ксения654654
08.09.2021 06:43
Информатика
Есть ответ 👍

Чем можно заменить оператор goto в турбо паскале. существует программа нужно, чтобы при нажатии определенной буквы выполнялась определенный цикл, как это сделать не используя оператор безусловного перехода goto. пример на следующем коде: program abc; uses crt; var a, b, x, y, w, z: real; c, d, e, q: integer; begin begin {q} writeln ('la-la-la'); writeln ('если хотите вычислить сумму, то нажмите с, произведение- d, операцию деления -e '); readln; clrscr; end; begin {c} readln(a, b); writeln (a+b); readln; clrscr; end; begin {d} readln(x, y); writeln (x*y); readln; clrscr; end; begin {e} readln(w, z); writeln (w/z); readln; clrscr; end; end. если пользователь нажимает букву q нужно вернуть его к операции: " begin {q} writeln ('la-la-la'); writeln ('если хотите вычислить сумму, то нажмите с, произведение- d, операцию деления -e '); end; " в случае, если пользователь вводит любую другую букву нужно сказать, что 'error, please enter c, e or d' и после того, как он введет нужную букву вывести соответствующую операцию

201
446
Посмотреть ответы 3

Ответы на вопрос:

05Goryanka05
05Goryanka05
4,4(52 оценок)
Program abc; uses crt; var   a,b: real;   c: char; begin   clrscr;   repeat       writeln('la-la-la');       write('если хотите вычислить сумму, то нажмите с,');       writeln(' произведение- d, операцию деления -e ');       writeln('для завершения работы нажмите q');       c: =readkey;       case c of       'c','c': begin           write('сложение: введите слагаемые: '); read(a,b);           writeln('сумма равна ',a+b);           write('для продолжения нажмите любую клавишу');           readkey;           clrscr           end;       'd','d': begin           write('умножение: введите сомножители: '); read(a,b);           writeln('произведение равно ',a*b);           write('для продолжения нажмите любую клавишу');           readkey;           clrscr           end;       'e','e': begin           write('деление: введите делимое и делитель: '); read(a,b);           writeln('частное равно ',a/b);           write('для продолжения нажмите любую клавишу');           readkey;           clrscr           end;       'q','q': ;       else begin           writeln(#13#10,'error, please enter c, e or d',#13#10);           end       end;   until c in ['q','q'];   writeln('ждем вас снова! ');   readkey end.
crosser001
crosser001
4,7(26 оценок)
Почему бы не использовать условия if для выбора нужного цикла по введённой букве? program abc; uses crt; var   a, b, x, y, w, z: real;   c, d, e, q: integer;   action: char; begin   action : = 'x';   while not (action = 'q') do   begin       writeln ('la-la-la');       writeln ('если хотите вычислить сумму, то нажмите с, произведение- d, операцию деления -e ');       readln(action);       clrscr;       if action = 'c' then       begin           readln(a, b);           writeln (a+b);           readln(action);           clrscr;       end;       if action = 'd' then       begin           readln(x, y);           writeln (x*y);           readln(action);           clrscr;       end;       if action = 'e' then       begin           readln(w, z);           writeln (w/z);           readln(action);           clrscr;       end;       if not ( (action = 'c') or (action = 'd') or (action = 'e') or (action = 'q') ) then       begin           writeln('ошибка, введите c, d, e или q');           readln(action);           clrscr;       end;   end; end.
FoxLove666
FoxLove666
4,7(60 оценок)
Sub pp()n1 = 1k1 = 20n2 = 1docells(n2, 2) = cells(n1, 1)n2 = n2 + 1cells(n2, 2) = cells(k1, 1)n2 = n2 + 1k1 = k1 - 1n1 = n1 + 1loop until n1 > 10end sub

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS