Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Tier
1 / 1 / 1
Регистрация: 11.02.2010
Сообщений: 56
#1

Арифметические операции с числами - Turbo Pascal

14.02.2010, 01:53. Просмотров 737. Ответов 3
Метки нет (Все метки)

Не могу определить ошибку,помогите пожалуйсто.
Над введенными числами осуществляется соответствующее действие и результат выводится на экран. Признаком конца работы программы служит ввод любого символа, отличного от +,-,*, /.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program Calc;
var
operation:Char;
x,y,z:Real;
stop:Boolean;
begin
stop:= false;
repeat
WriteLn;
Write('x,y= ' );
ReadLn(x,y);
Write('операция: ') ;
ReadLn(operation);
case operation of
'+': z : = x + y;
'-': z : = x - y;
'*': z : = x * y;
'/': z : = x / y;
else stop := true;
end;
if not stop
then
WriteLn('результат=',z)
until stop
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.02.2010, 01:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Арифметические операции с числами (Turbo Pascal):

Выполнить арифметические операции с числами типа Byte
Выполнить арифметические операции с числами типа byte Сложение: 47 + 56...

Арифметические операции
Помогите Арифметические операции Имя входного файла: input.txt Имя...

Арифметические операции с векторами
Даны 4-ех элементные вещественные векторы x, y, z. Вычислаить величину...

Как не дать выполнить арифметические операции
Необходима программа которая умножает вектор на матрицу. НО при этом записывает...

Арифметические действия с комплексными числами
Напишите программу, которая находит сумму разность , произведение, частное и...

Арифметические действия над числами
Арифметические действия над числам пронумерованы следующим образом...

3
pikusfikus
173 / 170 / 40
Регистрация: 14.11.2009
Сообщений: 507
14.02.2010, 01:57 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program Calc;
var
operation:Char;
x,y,z:Real;
stop:Boolean;
begin
stop:= false;
repeat
WriteLn;
Write('x,y= ' );
ReadLn(x,y);
Write('операция: ') ;
ReadLn(operation);
case operation of
'+': z := x + y;
'-': z := x - y;
'*': z := x * y;
'/': z := x / y;
else stop := true;
end;
if not stop
then
WriteLn('результат=',z)
until stop
end.
1
Tier
1 / 1 / 1
Регистрация: 11.02.2010
Сообщений: 56
14.02.2010, 02:02  [ТС] #3
Спасибо,тока чё та ошибки не заметил)щас работает,а где ошибка была?)
0
Law[L]esS
114 / 111 / 88
Регистрация: 31.10.2009
Сообщений: 191
14.02.2010, 02:07 #4
Цитата Сообщение от Tier Посмотреть сообщение
'+': z : = x + y;
'-': z : = x - y;
'*': z : = x * y;
'/': z : = x / y;
надо писать не z : =
а z:=
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2010, 02:07
Привет! Вот еще темы с решениями:

Арифметические операции с максимальными и минимальными элементами векторов
Решите пожалуйста. Даны вещественные вектора X(k), Y(l), Z(m). Программу...

Вывести на экран количество символов, обозначающих арифметические операции
Вводится строка. Программа выводит на экран количество символов, обозначающих...

Вывести на экран количество символов, обозначающих арифметические операции
Вводится строка. Программа выводит на экран количество символов, ...

Операции с числами
3. Дано натуральное (целое неотрицательное) число а и целое положительное число...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru