Как создавать меню выборов в Паскале?

я Хосе Рангэль. Я - студент Ing. Системы, я начинаю видеть программирование и первый язык, с которым мы инициализировались, - с Паскалем.

Как хорошо он говорит титул, я хотел бы знать, как я могу делать меню с двумя выборами, которые нужно выбирать. Это на конвертировании Стоградусных Fahrenheit или наоборот. программа не я copila, но не, где у меня есть ошибка.

Program Conversor_de_unidades;
uses crt;
var grado, opcion: integer;
begin
clrscr;
write ('introduzca un valor: ');
readln (grado);
write ('seleccione su opcion');
write ('1: Celcius a Fahrenheit');
write('2: Fahrenheit a Celcius');
readln (opcion);
case opcion of
writeln ('C a F: ', (grado+9/5));
readl;
end;
begin
write ('F a C: ', ((grado-32)+9/5));
readln;
end;
end;
end.
0
задан 22.07.2017, 22:05
1 ответ
Program Conversor_de_unidades;

uses crt;

var
  grado:real;
  opcion:integer;

begin
  clrscr;
  writeln('Seleccione su opcion');
  writeln('1: Celcius a Fahrenheit');
  writeln('2: Fahrenheit a Celcius');
  write('-> ');
  readln(opcion);
  clrscr;

  if (opcion=1) then
    begin
      write('Introduzca un valor: ');
      readln(grado); clrscr;
      writeln('C a F: ',(grado * (9 / 5) + 32):0:2);
    end;
  if (opcion=2) then
    begin
      write('Introduzca un valor: ');
      readln(grado); clrscr;
      writeln('F a C: ',((grado - 32) * (5 / 9)):0:2)
    end;
  if (opcion<1) or (opcion>2) then
    writeln('Opcion incorrecta');

  readkey;
end.
0
ответ дан 24.11.2019, 07:21
  • 1
    Пожалуйста издай и объясни твой có я говорю, так как отвечать с только scripts считается низкой качество – Aprendiz 11.06.2019, 06:52
  • 2
    Пожалуйста Brayan, ответы, которые у них только есть có я говорю, что они видны плохо сообществом, издай вопрос и объясни, по крайней мере, cuá l был Ваш equivocació n и cuá l serí в возможную одну solució n оптимальная... Датируйте возвращение из-за CГіmo отвечать для má s informació n – Víctor Hugo Tirado 11.06.2019, 06:54

Теги

Похожие вопросы