Школьная задачка вроде как)

[GreenLaym]

4. Составить программу для решения приведенного ниже задания двумя способами, используя: а) команду выбора case; б) команду if. Придумать и задать входные данные так, чтобы выбор состоял из 4-7 альтернатив.
Ввести число от 5 до 9. Вывести его значение словом.

[ZX Spectrum-128]

Ввести n
Выбор n из
5: число:='пять';
// и по предложенному шаблону все остальные варианты
Иначе
Вывод 'нет такого варианта'
Конец выбора
Вот вкратце. Переводим на англ. яз, получаем паскаль

[Donald Ervin Knuth]

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

4. Составить программу для решения приведенного ниже задания двумя способами, используя: а) команду выбора case; б) команду if. Придумать и задать входные данные так, чтобы выбор состоял из 4-7 альтернатив.
Ввести число от 5 до 9. Вывести его значение словом.

program utro33;
var
st:string;
chislo:integer;
begin
writeln('Задайте число от 0 до 10 словами, напиример (один) ');
readln(st);
case st of
'ноль':chislo:=0;
'один':chislo:=1;
'два':chislo:=2;
'три':chislo:=3;
'четыре':chislo:=4;
'пять':chislo:=5;
'шесть':chislo:=6;
'семь':chislo:=7;
'восемь':chislo:=8;
'девять':chislo:=9;
'десять':chislo:=10;
else
writeln('Возможно Вы ошиблись при вводе');
end;
writeln('Вы ввели число= ',chislo,'  Метод case');
{--- end of case---}
if st='ноль' then chislo:=0
  else
    if st='один'then chislo:=1
      else
         if st='два'then chislo:=2
          else
            if st='три'then chislo:=3
              else
                if st='четыре'then chislo:=4
                  else
                    if st='пять'then chislo:=5
                      else
                      if st='шесть'then chislo:=6  
          else
             if st='семь'then chislo:=7  
          else
             if st='восемь'then chislo:=8
             else
             if st='девять'then chislo:=9
             else
             if st='десять'then chislo:=10
             else
             writeln('Возможно Вы ошиблись при вводе');
writeln('Вы ввели число= ',chislo,'  Метод if');
end.

Как бы все наоборот :-)

[Serge_Bliznykov]

Это неверный код.

st:string;
chislo:integer;
begin
  writeln('Задайте число от 0 до 10 словами, напиример (один) ');
  readln(st);
  case st of
     'ноль':chislo:=0;

case в Pascal (Delphi) работает только с перечисляемым типом данных.
Строки (string) таким не являются. Данный код не скомпилируется.

Да и автору темы нужно наоборот - ввести число и вывести слово.

[Donald Ervin Knuth]

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

Это неверный код.

case в Pascal (Delphi) работает только с перечисляемым типом данных.
Строки (string) таким не являются. Данный код не скомпилируется.

Да и автору темы нужно наоборот - ввести число и вывести слово.

program utro33_1;
var
ch:string;
st:integer;
begin
writeln('Задайте число от 0 до 10');
readln(st);
case st of
0:ch:='ноль';
1:ch:='один';
2:ch:='два';
3:ch:='три';
4:ch:='четыре';
5:ch:='пять';
6:ch:='шесть';
7:ch:='семь';
8:ch:='восемь';
9:ch:='девять';
10:ch:='десять';
else
writeln('Возможно Вы ошиблись при вводе');
end;
writeln('Вы ввели число= ',ch,'  Метод case');
{--- end of case---}
if st=0 then ch:='ноль'
  else
    if st=1 then ch:='один'
      else
         if st=2 then ch:='два'
          else
            if st=3 then ch:='три'
              else
                if st=4 then ch:='четыре'
                  else
                    if st=5 then ch:='пять'
                      else
                      if st=6 then ch:='шесть'
          else
             if st=7 then ch:='семь' 
          else
             if st=8 then ch:='восемь'
             else
             if st=9 then ch:='девять'
             else
             if st=10 then ch:='десять'
             else
             writeln('Возможно Вы ошиблись при вводе');
writeln('Вы ввели число= ',ch,'  Метод if');
end.

[Вадим Мошев]

Сергей

case в Pascal (Delphi) работает только с перечисляемым типом данных

Не перечисляемыми (перечислимыми точнее), а порядковыми (integer, char, boolean).
Перечислимый тип данных это, если не ошибаюсь:

type Ttype = (first, second, third);

[Serge_Bliznykov]

Не перечисляемыми (перечислимыми точнее), а порядковыми (integer, char, boolean).

Вы абсолютно правы.
Только порядковый тип включается в себя и перечисляемый.
Отсюда

Порядковый типы данных
.....
Borland Pascal имеет 10 встроенных порядковых типов: Integer
(целое), Shortint (короткое целое), Longint (длинное целое), Byte
(длиной в байт), Word (длиной в слово), Boolean (булевское),
ByteBool (булевское размером в байт), WordBool (булевское разме-
ром в слово), LongBool (длинный булевский тип) и Char (символьный
тип). Кроме того, имеется два других класса определяемых пользо-
вателем порядковых типов: перечислимые типы и отрезки типов (под-
диапазоны).

Перечислимый тип данных это, если не ошибаюсь:

type Ttype = (first, second, third);

Точно. С ним Case за милую душу работает:

type Ttype = (first, second, third);

var t1 : Ttype;
  n : integer;
begin
  ReadLn(n);
  if n=1 then t1 := first
   else t1 := third;

  case t1 of
    first: WriteLn('t1 имеет значение Первый');
    second: WriteLn('t1 имеет значение Второй');
    third: WriteLn('t1 имеет значение Третий');
  end;

  readln
end.

[Stilet]

а) команду выбора case; б) команду if

Кокая убогая дурость прИпАдАвателя...

О времена, о нравы...
Чего уж знать ученикам
Коль скоро те, кто учит
Со всех сторон не правы.