Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

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

Страницы: 1
Требуется помощь в составлении задачи разветвляющейся структуры, оператор case
#1
21.10.2011 17:50:54
Задание:
В разделе определения типов, определён тип. Type operator=(plus,minus,multi,divide)
Написать программу присваиващую переменной O типа operator соответствующее значение, переменной X типа real - значение выражения X+4,X-4,4*X,X/4 в зависимости от вводимого значения целочисленной переменной N;
Вывести на экран вид арифметического выражения и значение переменной X.
Заранее благодарен!
Вот мой набросок кода, но немогу понять в чем ошибка!( Да и вобще не уверен правильно ли я составил код...
Цитата

program lmx;
uses
crt;
type
operator=(plus,minus,multi,divide);
var
x:real;
o:operator;
n:byte;
begin
clrscr;
writeln('VVedite X');
readln(x);
case (n) of
1..3:o:=x+4; <---здесь ошибка smile:!: ошибка 26 (несовпадение типов) как решить эту ошибку smile:?: вобще не вьеду smile:(
4..6:o:=x-4;
6..23:o:=x*4;
24:o:=x/4;
else o:=0
end;
writeln('o=', y:0:3);
readkey
end.
 
 
#2
18.11.2011 15:50:24
Егор Норенко,
посмотрите хелп по вопросу record

Вам нужно объявлять тип примерно так:
Код
operator = record
     plus, minus, multi, divide:real;
end;


а в программе присваивать переменной типа operator значение так
Код
with o do
begin
  minus:=x-4;
  plus:=x+4;
  multi:=x*4;
  divede:=x/4;
end;
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)