Задать вопрос
22 февраля, 14:48

Program zadacha3;

var x, y : real; rez : char;

begin

write ('x=') ; readln (x) ;

write ('y=') ; readln (y) ;

write ('Введите число') ; readln (rez) ;

case rez of

'1' : writeln ('x+y=', x+y) ;

'2' : writeln ('x-y=', x-y) ;

'3' : writeln ('x*y=', x*y) ;

'4' : writeln ('x/y=', x/y) ;

else writeln ('Неправельное Число')

end;

end.

Программа в паскале типо вычесления 4 способами

как сделать чтобы сночала спрашивался способ

а потом уже выбирать числа

+4
Ответы (1)
  1. 22 февраля, 17:59
    0
    Var

    x, y : real;

    rez : char;

    begin

    write ('Выберите способ:') ;

    readln (rez) ;

    case rez of

    '1' : begin

    write ('x=') ;

    readln (x) ;

    write ('y=') ;

    readln (y) ;

    writeln ('x+y=', x+y) ;

    end;

    '2' : begin

    write ('x=') ;

    readln (x) ;

    write ('y=') ;

    readln (y) ;

    writeln ('x-y=', x-y) ;

    end;

    '3' : begin

    write ('x=') ;

    readln (x) ;

    write ('y=') ;

    readln (y) ;

    writeln ('x*y=', x*y) ;

    end;

    '4' : begin

    write ('x=') ;

    readln (x) ;

    write ('y=') ;

    readln (y) ;

    writeln ('x/y=', x/y) ;

    end;

    else

    writeln ('Неправельное Число')

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Program zadacha3; var x, y : real; rez : char; begin write ('x=') ; readln (x) ; write ('y=') ; readln (y) ; write ('Введите число') ; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)