Как пользоваться этой штукой??

Код

case x of: 1: y=y+1; 2: y=y-1; 3: y=-y; end;

этот код аналогичен на:

Код

if x = 1 then y=y+1 else if x = 2 then y=y-1 else if x = 3 then y=-y

Понял?

Darhazer ты код то вначале проверяй чтоли, если не помнишь синтаксиса...
Оператор присваивания, в языке Паскаль пишется ":=", а не "="

Это сообщение отредактировал(а) Zero - 11.10.2005, 18:45

Не очень я понял. У меня такая задача: Надо ввести число, если оно меньше 1, но больше 11, то вывести сообщение об ошибке. Если он равно 1,2,3,4 то это начальные классы, если 5 6 7 8 то средние, если 9 10 то старшие, если 11 то выпускной. Я ее сделал через IF then else, а надо через case никак не пойму как делать 8((

Оператор case имеет следующий формат:

Код

case <переменная> of   <значение 1>: <действие 1>;   <значение 2>: <действие 2>;   ...   <значение n>: <действие n> else   <действие m>;

Вряд ли смысл того, что я тут написал, сразу станет понятен для тебя, но рассмотрим твой пример:

Код

var number: byte; begin   write ('Введите число: ');   readln (number);   case number of     1..4: writeln ('Это начальные классы');     5..8: writeln ('Это средние классы');     9,10: writeln ('Это старшие классы');     11: writeln ('Это выпускной')   else     writeln ('Вы ввели неверное число');   end;   repeat until keypressed; end.

Как видишь, case просто проверяет, чему равно значение переменной (в данном случае number) и выполняет код, который соответствует значению переменной (задавать можно через запятую или интервал 1..4, 5..8 и т.д.). Если значение переменной не равно ни одному указанному в операторе case, то выполняется код, который стоит после оператора else (в данном случае если введено число 1 > number > 11).
Думаю, дальше разберешься сам .

Это сообщение отредактировал(а) Payne - 11.10.2005, 21:53

Код

case x of: 1: wtite('начальные классы'); 2: wtite('начальные классы'); 3: wtite('начальные классы'); 4: wtite('начальные классы'); 5: wtite('средние классы'); 6: wtite('средние классы'); 7: wtite('средние классы'); 8: wtite('средние классы'); 9: wtite('старшие классы'); 10: wtite('старшие классы'); 11: wtite('выпускной класс'); end;

Цитата

case <переменная> of:   <значение 1>: <действие 1>;   <значение 2>: <действие 2>;   ...   <значение n>: <действие n>; else   <действие m>;

только двоеточия не надо после of...
правильней так

Код

case <переменная> of       <значение 1>: <действие 1>;       <значение 2>: <действие 2>;       ...       <значение n>: <действие n>     else       <действие m>;

Это сообщение отредактировал(а) Albinos_x - 11.10.2005, 20:10

Цитата

Код case x of: 1: wtite('начальные классы'); 2: wtite('начальные классы'); 3: wtite('начальные классы'); 4: wtite('начальные классы'); 5: wtite('средние классы'); 6: wtite('средние классы'); 7: wtite('средние классы'); 8: wtite('средние классы'); 9: wtite('старшие классы'); 10: wtite('старшие классы'); 11: wtite('выпускной класс'); end;

А это еще что?! бред?

Спасибо тем, кто подсказал, большое!
Добавлено @ 19:54
Кстати, а почему если я вместо byte ставлю к примеру real пишет что
Ordinal expression expected??

Цитата(Mcicool @ 11.10.2005, 18:49)

Не очень я понял.

Вот смотри так...
Для примера возьмём оператор if...then...else;
у него будет синтаксис такой для твоего случая:
if <переменная> = <константа1> then <оператор 1>
else if <переменная> = <константа2> then <оператор2>
......
else if <переменная> = <константаN> then <операторN>
else <сообщение об ошибке>
где <переменная> ─ это то число которое вводится с клавиатуры, (символизирующее ноер класса в твоёс случае)
<константа> ─ это число с которым сравнивается переменная,(т.е. 1,2,3,4 или 5,6,7,8 или 9,10 или 11)
Эту всю запись, можно записать и с помощью оператора CASE...OF...
Запись будет выглядеть следующим образом:
предварительно должна быть определена какая-нибудь переменная, например:

Код

... Var   x:integer;  {это переменная которую ты вводишь с клавиатуры} ...

Далее пишешь так:

Код

Case x of 1: <оператор1>; 2:<оператор2>; ................ 3:<оператор3>  {тут точка с запятой не ставится} else <сообщение об ошибке>

При выполнении оператора Case..Of, будет так: чему равна переменная X, строка с тем номером и выполнится, а если не одному из них не равна тогда выполнится строка после else, т.е. сообщение об ошибке.
Если конкрентно какой то пункт не поймёш, то пиши...
Добавлено @ 20:00
Упс... видимо меня уже тут опередили

Кстати, а почему если я вместо byte ставлю к примеру real пишет что
Ordinal expression expected??

Цитата(Mcicool @ 11.10.2005, 20:01)

я вместо byte ставлю к примеру real пишет что Ordinal expression expected??

Да потому что выражение между Case и of должно иметь перичислимый тип, я же тебе в предыдущей теме говорил, что информацию о всех ошибках можно узнать нажав F1.
А хочеш более подробно узнать об операторе CASE, поставь на него курсор и нажми <CTRL>+<F1>.
Добавлено @ 20:12

Цитата(Mcicool @ 11.10.2005, 19:44)

А это еще что?! бред?

Это твоё решение, должно быть таким... (доделать только немного надо)

ok Спасибо! большое. Как хорошо, что на свете есть хорошие программисты! Кстати я включал эту справку, только нифига не понял 8))

Цитата(Albinos_x @ 11.10.2005, 18:36)

только двоеточия не надо после of...

Ну да, как видишь, я заметил эту ошибку и в коде ее не допустил. А в примере забыл .

Цитата

ok Спасибо! большое. Как хорошо, что на свете есть хорошие программисты! Кстати я включал эту справку, только нифига не понял 8))

Странно,справка в Паскале мне больше всего нравилась,вообще без учебного пособия можно целыке модули осваивать