|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.04.2009, 22:38 | #1 |
Регистрация: 23.03.2009
Сообщений: 4
|
Комбинированные типы данных в Паскале
Задача:
Описать массив записей и поместить в него сведения о нескольких книгах.Предусмотреть возможность выдачи наименования книги по фамилии автора. вот исходный код: program lab17; type books=record fio,name,familia:string[15]; year:integer end; var tbl:array[1..5] of books; i,m:integer; begin{lab17} writeln('vvedite kolithectvo books'); read(m); for i:=1 to m do begin writeln('vvedite fio',i); with tbl[i] do readln(fio); end; for i:=1 to m do begin writeln('vvedite name',i); with tbl[i] do readln(name); end; for i:=1 to m do begin writeln('vvedite year',i); with tbl[i] do readln(year); end; writeln('vvedite familiy'); readln(tbl[i].familia); if tbl[i].fio=tbl[i].familia then begin writeln(tbl[i].name); writeln(tbl[i].year) end else writeln('net sovpadenui') end.{lab17} но при вводе значений fio возникает проблема.Посмотрите пожалуйста. |
05.04.2009, 00:55 | #2 |
Форумчанин
Регистрация: 29.01.2009
Сообщений: 175
|
Насколько я знаю то нужно так
Код:
Все люди делятся на 10 типов: те, кто понимают двоичную систему счисления и те, кто нет.
Последний раз редактировалось Veselyn; 05.04.2009 в 23:16. Причина: поправил и дополнил |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Комбинированные типы данных в Паскале | Максим8111 | Помощь студентам | 5 | 30.03.2009 21:44 |
[Pascal] Комбинированные типы | Рамик | Помощь студентам | 4 | 09.03.2009 18:00 |
Pascal комбинированные типы | Rus 47 | Помощь студентам | 7 | 22.02.2009 17:48 |
Комбинированные типы | melikyan | Помощь студентам | 5 | 10.02.2009 21:41 |
Комбинированные типы данных и массивы | mar4elo | Общие вопросы Delphi | 11 | 01.12.2008 10:41 |