Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.04.2018, 22:56   #1
EvilArtorias
Пользователь
 
Регистрация: 18.01.2018
Сообщений: 11
По умолчанию как записать массив записей,если там запись в записе(2 раза)

Код:
program records;
const
N=2;
type
T2=record
Str:string[2];
Bool:boolean;
end;
T1=Record
Rea1:real;
Mas:array [1..2] of T2;
end;
T=record
zap:T1;
INT:integer;
end;


Mass=array[1..N] of T;


Procedure ReadRec(var R: Mass); //чтение записи с клавиатуры
var i,j:integer;
begin
for j:=1 to N do 
  with R[j] do
  begin
     writeln('введите целое число');
     readln(INT);
     write('введите вещественное число');
     readln(zap.rea1);
     writeln('введите строку,а затем логический символ');
     for i:=1 to 2 do
     readln(zap.mas.Str,zap.mas.bool);
     end;
end;


Procedure WriteRec(var R: Mass); // вывод записи на экран
var i,j:integer;
begin
for j:=1 to N do 
  with R[j] do
  begin
    writeln('целое число');
    writeln(INT);
    writeln('вещественное число');
    writeln(zap.rea1);
    writeln('массив из строки и логического символа');
    writeln(zap.mas.Str,zap.mas.bool);
   end;
end;

var MassOfRecs: Mass;
    
begin
ReadRec(MassOfRecs);
WriteRec(MassOfRecs);
end.
EvilArtorias вне форума Ответить с цитированием
Старый 19.04.2018, 11:38   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

если правильно понял вопрос.
тогда так:

вместо
Цитата:
Сообщение от EvilArtorias Посмотреть сообщение
Код:
for i:=1 to 2 do
     readln(zap.mas.Str,zap.mas.bool);
Код:
for i:=1 to 2 do
     readln(zap.mas[i].Str,zap.mas[i].bool);

вместо
Цитата:
Сообщение от EvilArtorias Посмотреть сообщение
Код:
writeln('массив из строки и логического символа');
    writeln(zap.mas.Str,zap.mas.bool);
Код:
   writeln('массив из строки и логического символа');
   for i:=1 to 2 do
     writeln(zap.mas[i].Str,zap.mas[i].bool);

p.s. не буду утверждать точно, но, имхо, не всякий паскаль позволит через Read/ReadLn прочитать значение в переменную типа boolean
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.04.2018, 20:55   #3
EvilArtorias
Пользователь
 
Регистрация: 18.01.2018
Сообщений: 11
По умолчанию

(да,спасибо,работает,а насчет булеан,вы тоже были правы,не дает записать в него через readln),а стоп нет,это я дурак,все хорошо

Последний раз редактировалось EvilArtorias; 26.04.2018 в 21:02.
EvilArtorias вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать массив записей, содержащих сведения о нанимателях жилья. Каждая запись содержит поля: povaki Паскаль, Turbo Pascal, PascalABC.NET 3 25.11.2015 13:21
Joomla 1.0 там при добавлении новости нет кнопки ок типо добавить ! Как там добавлять ??? valerka92 WordPress и другие CMS 1 10.09.2011 19:27
Запись координат в массив в реал тайм, Как записать координаты в массив Dark19 Visual C++ 2 21.06.2011 18:45
Массив как типизированая констана в записе. (Pascal/Delphi) Wild_klas Помощь студентам 2 07.11.2010 17:35
как узнать цвет пикселя в TImage , если там не bmp а jpg Dima_Dima Общие вопросы Delphi 0 31.05.2010 14:12