Оператор if

@Fake_Man · Регистрация: 08.12.2009

Студворк — интернет-сервис помощи студентам

Господа, дайте совет, что не так с программой:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var t:real;
begin
 write('t=');
 readln(t);
 if t=[0..1] then write(3*sqr((1/3)*ln(t)):2:2) else
 if t=[1..4] then write((-sqr(t)*t/63)+(253/63):2:2) else
 if t=[4..6] then write(-1.5*t+8:2:2) else
 if t=[6..7] then write((sqr(t)/13)-(49/13):2:2)
 else writeln('error');
 readln;
 end;
end.

Ругается на несоответствие типов, указывая на then.

@Тихомиров · 17.12.2009, 19:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
var t:real;
begin
 write('t=');
 readln(t);
 if ((t>=0) and (t<1)) then writeln(3*sqr((1/3)*ln(t)):2:2) else
 if ((t>=1) and (t<4)) then writeln((-sqr(t)*t/63)+(253/63):2:2) else
 if ((t>=4) and (t<6)) then writeln(-1.5*t+8:2:2) else
 if ((t>=6) and (t<7)) then writeln((sqr(t)/13)-(49/13):2:2)
 else writeln('error');
 readln;
end.

@Тамила · 17.12.2009, 19:51

Сообщение от Fake_Man

t=[0..1]

так нельзя записывать... там, скорее нужно записать вхождение t в некоторое множество: t in ['1'..'9']

@Delphin_KKC · 17.12.2009, 19:57

Сообщение от Тихомиров

Код

Pascal
1
2
3
4
5
6
7
8
9
10
11
var t:real;
begin
 write('t=');
 readln(t);
 if ((t>=0) and (t<1)) then writeln(3*sqr((1/3)*ln(t)):2:2) else
 if ((t>=1) and (t<4)) then writeln((-sqr(t)*t/63)+(253/63):2:2) else
 if ((t>=4) and (t<6)) then writeln(-1.5*t+8:2:2) else
 if ((t>=6) and (t<7)) then writeln((sqr(t)/13)-(49/13):2:2)
 else writeln('error');
 readln;
end.

У Вас немного неверный код. Например в первом ифе единица не попадает в диапазон. А должна. Если это не так - пусть автор темы поправит меня.
Вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var t:real;
begin
 write('t=');
 readln(t);
 if ((t>=0) and (t<=1)) then writeln(3*sqr((1/3)*ln(t)):2:2) else
 if ((t>1) and (t<=4)) then writeln((-sqr(t)*t/63)+(253/63):2:2) else
 if ((t>4) and (t<=6)) then writeln(-1.5*t+8:2:2) else
 if ((t>6) and (t<=7)) then writeln((sqr(t)/13)-(49/13):2:2)
 else writeln('error');
 readln;
end.

Добавлено через 1 минуту

Сообщение от Тамила

так нельзя записывать... там, скорее нужно записать вхождение t в некоторое множество: t in ['1'..'9']

Так было бы, если б t была целочисленной и попадала в диапазон от 0 до 255.

Set types specify a subset of a set of values. The ordinal value of the set elements must range between 0 and 255.

Но она имеет тип real

@Fake_Man · 17.12.2009, 20:17 **[ТС]**

Всем большое спасибо. Вариант Delphin_KKC оказался именно тем, что нужно.

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@Fake_Man 0 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 32
	17.12.2009, 20:17 [ТС]
	Всем большое спасибо. Вариант Delphin_KKC оказался именно тем, что нужно. 0