Помощь - Поиск - Пользователи - Календарь
Полная версия: помогите правильно начать хадачу
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.