Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Tier
1 / 1 / 0
Регистрация: 11.02.2010
Сообщений: 56
#1

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

14.02.2010, 01:53. Просмотров 724. Ответов 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 - Turbo Pascal
Выполнить арифметические операции с числами типа byte Сложение: 47 + 56 Вычитание: 47- 56 умножение: 109*3 Сложение:156/102 ...

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

Арифметические операции с векторами - Turbo Pascal
Даны 4-ех элементные вещественные векторы x, y, z. Вычислаить величину (a,a)+(b,c), где a обозначает тот из векторов, в котором самый...

Арифметические действия над числами - Turbo Pascal
Арифметические действия над числам пронумерованы следующим образом 1-сложение,2-вычитание,3-умножение,4-деление.Дан номер действия и два...

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

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

3
pikusfikus
172 / 169 / 11
Регистрация: 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 / 0
Регистрация: 11.02.2010
Сообщений: 56
14.02.2010, 02:02  [ТС] #3
Спасибо,тока чё та ошибки не заметил)щас работает,а где ошибка была?)
0
Law[L]esS
114 / 111 / 23
Регистрация: 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
14.02.2010, 02:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2010, 02:07
Привет! Вот еще темы с ответами:

Вывести на экран количество символов, обозначающих арифметические операции - Turbo Pascal
Вводится строка. Программа выводит на экран количество символов, обозначающих арифметические операции: «+», «-», «*», «/». Опишите...

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

Операции с числами - Turbo Pascal
3. Дано натуральное (целое неотрицательное) число а и целое положительное число d. Вычислить частное q и остаток r при делении а на d, не...

Операции с числами. Перевести код с C# - Turbo Pascal
static void Main(string args) { List<double> list = new List<double>(); Console.WriteLine("Введите...


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

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

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