VAR a, b, p, z :REAL;
BEGIN
WriteLn ('Первое число');
Read (a);
WriteLn ('Знак');
Read (z);
WriteLn ('Второе число');
Read (b);
If z="+" THEN c:=a+b; WriteLn (p);
if z="-" THEN c:=a-b; WriteLn (p);
if z="*" THEN c:=a*b; WriteLn (p);
if z="/" THEN c:=a/b; WriteLn (p)
END.
Другие языки программирования и технологии
КАК сделать калькулятор в ПАСКАЛе
В Коплекте Borland Pascal 7.0 есть исходник калькулятор. смотри учись разбирайся
<Паскаль директория>/EXAMPLES/WIN
<Паскаль директория>/EXAMPLES/WIN
Если тебе нужен такой калькулятор, как стандартный виндосовский, то тебе нужен Delphi.
Там просто ставишь кнопки, один Edit (окно ввода и вывода) . И создаешь функции для каждой кнопки.
А если ты хочешь именно на Pascal'е сделать (Turbo,Free,ABC), то считываешь строку, проходишься по ней, разделяешь все на числа и знаки, а потом считаешь.
Там просто ставишь кнопки, один Edit (окно ввода и вывода) . И создаешь функции для каждой кнопки.
А если ты хочешь именно на Pascal'е сделать (Turbo,Free,ABC), то считываешь строку, проходишься по ней, разделяешь все на числа и знаки, а потом считаешь.
uses crt;
const
ASCII=[48..57];
var
s,temp:string;
i,f,l,code:integer;
res:integer;
d:byte;
begin
write('Введите выражение -->');
readln(s);
temp:='';
for i:=1 to length(s) do
begin
if (ord(s[i]) in ASCII) then temp:=temp+s[i];
if not(ord(s[i]) in ASCII) or (i=length(s)) then
begin
if (i<length(s)) then
begin
case s[i] of
'+':d:=1;
'-':d:=2;
'*':d:=3;
'/':d:=4;
end;
val(temp,f,code);
temp:='';
end else
val(temp,l,code);
end;
end;
case d of
1: res:=f+l;
2: res:=f-l;
3: res:=f*l;
4: res:=f div l;
end;
writeln(res);
readln
end.
const
ASCII=[48..57];
var
s,temp:string;
i,f,l,code:integer;
res:integer;
d:byte;
begin
write('Введите выражение -->');
readln(s);
temp:='';
for i:=1 to length(s) do
begin
if (ord(s[i]) in ASCII) then temp:=temp+s[i];
if not(ord(s[i]) in ASCII) or (i=length(s)) then
begin
if (i<length(s)) then
begin
case s[i] of
'+':d:=1;
'-':d:=2;
'*':d:=3;
'/':d:=4;
end;
val(temp,f,code);
temp:='';
end else
val(temp,l,code);
end;
end;
case d of
1: res:=f+l;
2: res:=f-l;
3: res:=f*l;
4: res:=f div l;
end;
writeln(res);
readln
end.
привет вот держи простейший калькулятор!
Program Test;
var
a,b,rez:real;
begin
write('Добро пожаловать в данную программу -Считавод-');
writeln('Введите любое число; ');
readln(a);
writeln('Введите повторно любое число; ');
readln(b);
rez:=a*b;
writeln('Вот ваш ответ; ',rez,'.');
end.
Program Test;
var
a,b,rez:real;
begin
write('Добро пожаловать в данную программу -Считавод-');
writeln('Введите любое число; ');
readln(a);
writeln('Введите повторно любое число; ');
readln(b);
rez:=a*b;
writeln('Вот ваш ответ; ',rez,'.');
end.
Самый простейший калькулятор на +, -*, /. (Запускать через Shift+F9)
program name
uses crt;
var a,b,c:integer;
d:string;
begin
write('Введите первое число: ');
readln(a);
write('Введите символ операции:');
readln(d);
write('Введите второе число: ');
readln(c);
if d=('-') then b:= a-b;
if d=('+') then b:= a+b;
if d=('/') then b:= a div b;
if d=('*') then b:= a*b;
writeln('Ответ: ', b);
readln;
end.
name можешь на своё поменять
program name
uses crt;
var a,b,c:integer;
d:string;
begin
write('Введите первое число: ');
readln(a);
write('Введите символ операции:');
readln(d);
write('Введите второе число: ');
readln(c);
if d=('-') then b:= a-b;
if d=('+') then b:= a+b;
if d=('/') then b:= a div b;
if d=('*') then b:= a*b;
writeln('Ответ: ', b);
readln;
end.
name можешь на своё поменять
Наверное, уже не нужно, но вот программа калькулятора со степенью:
program calc;
var
a, b, c: double;
d: char;
i: integer;
begin
writeln('Калькулятор');
writeln();
writeln('Введите первое число:');
readln(a);
writeln('Введите знак:');
readln(d);
writeln('Введите второе число:');
readln(b);
writeln();
case d of
('+'): writeln(a, '+', b, ' = ', a + b);
('-'): writeln(a, '-', b, ' = ', a - b);
('*'): writeln(a, '*', b, ' = ', a * b);
(':'): writeln(a, ':', b, ' = ', a / b);
('/'): writeln(a, '/', b, ' = ', a / b);
('^'):
begin
if b = 0 then
writeln(a, '^0 = 1')
else
if b = 0.5 then
writeln('koren iz ', a, ' = ', sqrt(a))
else
if b = 1 then
writeln(a, '^1 = ', a)
else
if b <= -1 then
begin
c := a;
i := -1;
while i <> b do
begin
c := c * a;
i := i - 1;
end;
c := 1 / c;
writeln(a, '^(', b, ') = ', c);
end
else
if b >= 1 then
begin
c := a;
i := 1;
while i <> b do
begin
c := c * a;
i := i + 1;
end;
writeln(a, '^', b, ' = ', c);
end
end;
end;
end.
program calc;
var
a, b, c: double;
d: char;
i: integer;
begin
writeln('Калькулятор');
writeln();
writeln('Введите первое число:');
readln(a);
writeln('Введите знак:');
readln(d);
writeln('Введите второе число:');
readln(b);
writeln();
case d of
('+'): writeln(a, '+', b, ' = ', a + b);
('-'): writeln(a, '-', b, ' = ', a - b);
('*'): writeln(a, '*', b, ' = ', a * b);
(':'): writeln(a, ':', b, ' = ', a / b);
('/'): writeln(a, '/', b, ' = ', a / b);
('^'):
begin
if b = 0 then
writeln(a, '^0 = 1')
else
if b = 0.5 then
writeln('koren iz ', a, ' = ', sqrt(a))
else
if b = 1 then
writeln(a, '^1 = ', a)
else
if b <= -1 then
begin
c := a;
i := -1;
while i <> b do
begin
c := c * a;
i := i - 1;
end;
c := 1 / c;
writeln(a, '^(', b, ') = ', c);
end
else
if b >= 1 then
begin
c := a;
i := 1;
while i <> b do
begin
c := c * a;
i := i + 1;
end;
writeln(a, '^', b, ' = ', c);
end
end;
end;
end.
Похожие вопросы
- Калькулятор на паскале
- кто-нибудь знает алгоритм калькулятора в паскале??? если знаете поделитесь
- Калькулятор на паскаль
- Мне сказали сделать калькулятор которые переводит двоичную числу на 16 через visual basic кто знает пожалуйста пишите к
- Не могу сделать калькулятор C++
- Помогите сделать задачу на паскале.
- как сделать анимацию в паскале
- Подскажите как сделать это на Паскале
- Что интересного можно сделать в программе Паскаль?
- Подскажите пожалуйста как сделать елку в Паскале?