Работа с массивом из записей

@Сеня 2007 · Регистрация: 03.10.2010

Author24 — интернет-сервис помощи студентам

Вот условие:
1. Дан список, содержащий не менее 10 записей, каждая из которых имеет
структуру:
Номерр рейса Пункт отправления Пункт назначения Дни
тип тип строка тип строка полетов
integer 20 символов 10 символов от 1 до 7
2. Разработать программу, выполняющую следующие функции:
- ввод данного списка в массив записей;
- вывод массива записей на экран;
- поиск всех рейсов с номерами большими, чем 50, и вылетающими в
" Краснодар", с выводом найденных записей на экран.

Помогите пожалуста! Сижу уже пол дня а сообразить ниче не могу(

@Puporev · 10.10.2010, 15:27

Сообщение от Сеня 2007

Сижу уже пол дня

За 15 минут, если нажать кнопку Поиск, выбрать Расширенный поик, там вести Зыписи, выбрать раздел Pascsal, найдете кучу похожих программ.

@Сеня 2007 · 10.10.2010, 22:59 **[ТС]**

Pascal

Uses crt;
 Type
  tabl=record
  nomr:integer;
  punkto:string[20];
  punktn:string[10];
  dni:1..7;
  end;
 
 Var Spis:array[1..100]of tabl;
 N,i:byte;
 Isk_nom:string[5];
 
Begin
Write('Vvedti chislo zapisey N = ');
Readln(N);
Writeln('Vvedite spisok po polyam');
 For i:=1 to N do
  With Spis[i] do
   begin
   Write('Nomer reysa');
   Readln(nomr);
   Write('Punkt otpravlenia - 20 simvolov');
   Readln(punkto);
   Write('Punkt naznachenia - 10 simvolov');
   Readln(punktn);
   Write('Dni poletov - ot 1 do 7');
   Readln(dni);
   end;
   for i:=1 to n do
   begin
   write(spis[i]);
   end;
   writeln;
   for i:=1 to n do
   with spis[i] do
if nomr>50 then
begin
 
begin
writeln('Nomer reysa: ',nomr,' Punkt otpravlenia:  ',punkto,' Punkt naznachenia:  ',punktn,' Dni poletov:  ',dni);
readkey;
halt;
end;
end;
 
readkey;
End.

Не получается вывести весь список Паскаль говорит ошибку а че делать я незнаю, еще не знаю как присвоить пункту назначения значение "краснодар". Почему то еще выводится только одна запись при поиске хот должно быть все записи с номером более 50.
Помогите пожалуйста а то завтра уже сдавать надо!!

@Домолаз · 11.10.2010, 00:03

for i:=1 to n do
begin
write(spis[i]);
end;

зачем вот эта строка вам?

Добавлено через 7 минут

Pascal

Uses crt;
Type
   tabl=record
   nomr:integer;
   punkto:string[20];
   punktn:string[10];
   dni:1..7;
 end;
 
 Var Spis:array[1..100]of tabl;
 N,i:byte;
 Isk_nom:string[5];
 
Begin
   Write('Vvedti chislo zapisey N = ');
   Readln(N);
   Writeln('Vvedite spisok po polyam');
   For i:=1 to N do
   With Spis[i] do
   begin
      Write('Nomer reysa');
      Readln(nomr);
      Write('Punkt otpravlenia - 20 simvolov');
      Readln(punkto);
      Write('Punkt naznachenia - 10 simvolov');
      Readln(punktn);
      Write('Dni poletov - ot 1 do 7');
      Readln(dni);
   end;
   for i:=1 to n do
   With Spis[i] do
   begin
      Write('Nomer reysa: ',nomr);
      Write('Punkt otpravlenia : ',punkto);
      Write('Punkt naznachenia : ',punktn);
      Write('Dni poletov : ',dni);
   end;
   writeln;
   for i:=1 to n do
      with spis[i] do
         if (nomr>50) and (punktn='Краснодар') then
            begin
               writeln('Nomer reysa: ',nomr,' Punkt otpravlenia:  ',punkto,' Punkt naznachenia:  ',punktn,' Dni poletov:  ',dni);
            end;
   readkey;
End.

@Сеня 2007 · 11.10.2010, 00:12 **[ТС]**

Он ответ выдает столько сколько n. Убрал цикл for. Он все равно выдает. Че делать?

@Домолаз · 11.10.2010, 00:22

Pascal

Uses crt;
Type
   tabl=record
   nomr:integer;
   punkto:string[20];
   punktn:string[10];
   dni:1..7;
 end;
 
 Var Spis:array[1..100]of tabl;
 N,i:byte;
 Isk_nom:string[5];
 
Begin
   Write('Vvedti chislo zapisey N = ');
   Readln(N);
   Writeln('Vvedite spisok po polyam');
   For i:=1 to N do
   With Spis[i] do
   begin
      Write('Nomer reysa: ');
      Readln(nomr);
      Write('Punkt otpravlenia - 20 simvolov: ');
      Readln(punkto);
      Write('Punkt naznachenia - 10 simvolov: ');
      Readln(punktn);
      Write('Dni poletov - ot 1 do 7: ');
      Readln(dni);
   end;
   writeln;
   writeln('Список рейсов: ');
   for i:=1 to n do
   With Spis[i] do
   begin
      Writeln('Nomer reysa : ',nomr,'   ');
      Writeln('Punkt otpravlenia : ',punkto,'   ');
      Writeln('Punkt naznachenia : ',punktn,'   ');
      Writeln('Dni poletov : ',dni,'   ');
   end;
   writeln;
   writeln('Рейсы в Краснодар с номером <50: ');
   for i:=1 to n do
      with spis[i] do
         if (nomr>50) and (punktn='Краснодар') then
            begin
               writeln('Nomer reysa: ',nomr);
               writeln('Punkt otpravlenia:  ',punkto);
               writeln('Punkt naznachenia:  ',punktn);
               writeln('Dni poletov:  ',dni);
               writeln;
            end;
   readkey;
End.

@Сеня 2007 2 / 2 / 1 Регистрация: 03.10.2010 Сообщений: 182
		1
	Работа с массивом из записей 10.10.2010, 13:07. Показов 1500. Ответов 5 Метки нет (Все метки) Вот условие: 1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру: Номерр рейса Пункт отправления Пункт назначения Дни тип тип строка тип строка полетов integer 20 символов 10 символов от 1 до 7 2. Разработать программу, выполняющую следующие функции: - ввод данного списка в массив записей; - вывод массива записей на экран; - поиск всех рейсов с номерами большими, чем 50, и вылетающими в " Краснодар", с выводом найденных записей на экран. Помогите пожалуста! Сижу уже пол дня а сообразить ниче не могу( 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2010, 15:27	2
	Сообщение от Сеня 2007 Сижу уже пол дня За 15 минут, если нажать кнопку Поиск, выбрать Расширенный поик, там вести Зыписи, выбрать раздел Pascsal, найдете кучу похожих программ. 0

@Сеня 2007 2 / 2 / 1 Регистрация: 03.10.2010 Сообщений: 182
	11.10.2010, 00:12 [ТС]	5
	Он ответ выдает столько сколько n. Убрал цикл for. Он все равно выдает. Че делать? 0

	11.10.2010, 00:22