Полный ноль в программировании , если знаете ответ пожалуйста напишите правильный код.
Вопрос Калькулятор на паскаль
- Автор темы Serega495812
- Дата начала
А тебе какой нужен? Лол.
Графический? Консольный? Что он должен уметь делать: только складывать/умножать/делить или много чего?
Где условия задачи?
Графический? Консольный? Что он должен уметь делать: только складывать/умножать/делить или много чего?
Где условия задачи?
На три строки делов то:
спроси гуглю арифметическое выражение алгоритм Дейкстра
прочти пойми всё очень просто
прочти пойми всё очень просто
А какой именно нужен? А-ля копия того, который в Windows или простейший? Т. к. Вы, мой друг, написали в вопросе, что не разбираетесь в программировании, то напишу простейший. Калькулятор будет текстовым и будет выполнять лишь 5 действий: плюс, минус, умножить, разделить и возвести в квадрат (во 2-ую степень). Калькулятор будет на 1 действие, т. е. 1 запуск - 1 операция.
Program Calculator;
uses crt;
var a, c: real;
b: char;
begin
clrscr;
write ('Введите 1-ое число, после чего нажмите клавишу Enter: ');
readln (a);
write ('Введите знак (+ - * / 2), после чего нажмите клавишу Enter: ');
readln (b);
if b='2' then write ('Ответ: ', sqr(a)) else begin
write ('Введите 2-ое число, после чего нажмите клавишу Enter: ');
readln (c);
if b='+' then write ('Ответ: ', a+c);
if b='-' then write ('Ответ: ', a-c);
if b='*' then write ('Ответ: ', a*c);
if (b='/') and (c=0) then write ('Нет решений') else if b='/' then write ('Ответ: ', a/c);
end;
writeln (' ');
write ('Программа завершена. Для выхода из программы нажмите любую клавишу.');
readkey;
end.
Если что - пишите в комментарии.
Program Calculator;
uses crt;
var a, c: real;
b: char;
begin
clrscr;
write ('Введите 1-ое число, после чего нажмите клавишу Enter: ');
readln (a);
write ('Введите знак (+ - * / 2), после чего нажмите клавишу Enter: ');
readln (b);
if b='2' then write ('Ответ: ', sqr(a)) else begin
write ('Введите 2-ое число, после чего нажмите клавишу Enter: ');
readln (c);
if b='+' then write ('Ответ: ', a+c);
if b='-' then write ('Ответ: ', a-c);
if b='*' then write ('Ответ: ', a*c);
if (b='/') and (c=0) then write ('Нет решений') else if b='/' then write ('Ответ: ', a/c);
end;
writeln (' ');
write ('Программа завершена. Для выхода из программы нажмите любую клавишу.');
readkey;
end.
Если что - пишите в комментарии.
Добавлю еще к замечанию о том, какой калькулятор, на каком из вариантов Pascal? Тоже надо писать.
