Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите правильно начать хадачу

Автор: eldar219 2.03.2010 0:32

нам дано задание :
type название =(ноль,один,два,три,четыре,пять);
Var:d:'0'..'5';n:название
По литере-цифре d присвоить переменной n название этой цифры

я не могу панять как записать type
вот как я начал:

Код
program by_eldar;
uses crt;
const
Nul='najmite na cifru nul';
Odin='najmite na cifru odin';
Dva='najmite na cifru dva';
Tri='najmite na cifru tri';
Chetiri='najmite na cifru chetiri';
Pyat='najmite na cifru pyat';
var d:real;type:n;
begin
clrscr;

Автор: Unconnected 2.03.2010 0:49

Можно так:


type MyType = (Odin,Dva,Tri,Chetire,Pyat);

var d:'0'..'5';
    n:MyType;

begin
  readln(d);
  case d of
    '1':n:=Odin;
    '2':n:=Dva;
    '3':n:=Tri;
    '4':n:=Chetire;
    '5':n:=Pyat;
  end;
  readln;
end.

Автор: eldar219 2.03.2010 1:53

почему при вводе цифр от 1 до 5 название самой цифры не не пишется??

Автор: Unconnected 2.03.2010 1:54

А должно? В задании этого не было.

Автор: eldar219 2.03.2010 1:58

Цитата(Unconnected @ 1.03.2010 22:54) *

А должно? В задании этого не было.

аа понятно я сам запутался))),спасибо большое за помощь

Добавлено через 1 мин.
да ну вообщето нужно не зря они название цифр дали

Автор: volvo 2.03.2010 2:54

Цитата
да ну вообщето нужно
Вариант №1 - для начинающих, "в лоб":
type
  MyType = (Null,Odin,Dva,Tri,Chetire,Pyat);
const
  title: array[MyType] of string =
  ('Null','Odin','Dva','Tri','Chetire','Pyat');

var d:'0'..'5';
    n:MyType;
begin
  readln(d);
  case d of
    '0':n:=Null;
    '1':n:=Odin;
    '2':n:=Dva;
    '3':n:=Tri;
    '4':n:=Chetire;
    '5':n:=Pyat;
  end;
  writeln(title[n]);
  readln;
end.

Вариант №2 - более продвинутый, требуется знать, что такое перечислимые типы данных, и как они представляются:
type
  MyType = (Null,Odin,Dva,Tri,Chetire,Pyat);
const
  title: array[MyType] of string =
  ('Null','Odin','Dva','Tri','Chetire','Pyat');

var d:'0'..'5';
    n:MyType;
begin
  readln(d);
  n := MyType(ord(d) - ord('0'));
  writeln(title[n]);
  readln;
end.