VPF::Описание нового типа переменных в паскале

ausar

Дата 3.8.2007, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Мне необходимо описать новый тип переменной в Turbo Pascal
состоящей из слова и его длинны. После ввода слова нужно чтобы оно выводилось
по описанному типу. Но гдето тут ошибка а где никак не могу понять.

Код


type zapis =record |постарался описать тип
slovo: string[20];    
simbols: integer;
end;
var s: string;
begin
writeln('Введите слово');
readln(s);
writeln('Введено слово  ',s,'  состоящее из ',length(s), ' знаков');
writeln('Приобразуем запись по указанному типу String-Lengt');
zapis.slovo:s
zapis.simbols:length(s)
writeln(zapis);
readln(s);
end.

Это сообщение отредактировал(а) ausar - 3.8.2007, 08:27

volvo877

Дата 3.8.2007, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(ausar @ 3.8.2007, 08:25

)

Но гдето тут ошибка

И даже не одна... Во-первых, нельзя присваивать что-либо типу, а нужно - переменной данного типа, т.е.,

Код


...
var Z: zapis;
...
Z.slovo:=s;
Z.simbols:=length(s);
...

А во-вторых, переменную типа Zapis нельзя распечатать с помощью WriteLn, так как это не стандартный для Паскаля тип. Лучше всего описать процедуру Print. Итого, твоя программа должна выглядеть примерно вот так:

Код


type
  zapis = record
    slovo: string[20];
    simbols: integer;
  end;

procedure print(X: zapis);
begin
  writeln(X.slovo, ' (', X.simbols, ')' );
end;

var
  s: string;
  z: zapis;
begin
  writeln('Введите слово');
  readln(s);
  writeln('Введено слово  ',s,'  состоящее из ',length(s), ' знаков');
  writeln('Приобразуем запись по указанному типу String-Lengt');
  z.slovo:=s;
  z.simbols:=length(s);

  print(z); // <--- 
  readln;

end.

Это сообщение отредактировал(а) volvo877 - 3.8.2007, 10:16

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »