запутался в задачах чютчють одна норм а другая с ошибкой одной Опции

[maksimla]

я сечас прохожу все что связано с двоичным массивом.
7 задачка две дороги и стоят 4 светофора по два на каждой дороги.
для пешеходов загорается зеленый свет в то самое время как на кнопку нажал и горит 30 секунд. Данные записываются в центре когда именно нажал пешеход на кнопку.
напишите а) идею решения
б) программу сколько секунд за сутки горит зеленый свет на всех светофорах.
Первичные данные записаны в файле duom.txt. На первой строчке записано натуральное число n (1 ≤ n ≤ 1000) . В последующих n строчках записано такие данные D или K D - правая K - левая сторона пути, потом записаны 3 неотрицательные числа val - часы, min - минуту и sek - секунды, показывающие когда нажал пешеход на кнопку, (0 ≤ val ≤ 23, 0 ≤ min ≤ 59, 0 ≤ sek ≤ 59).
Результат записывается в секундах в файл rez.txt.
пример
первичные данные
8
K 21 1 59
D 7 8 0
K 13 55 13
D 13 54 59
D 21 2 29
K 7 8 0
D 7 7 50
K 13 55 30
результат
44
обьяснение
7 8 0 загорелся свет в обоих частях и горел 30 секунд
D 13 54 59 в правой загорелся
K 13 55 13 в левой загорелся и горел в месте 14 секунд. Общее горения 44 секунды.

непонял почему они еще непощетали это
K 7 8 0
D 7 7 50
и так получается тут горел 20 секунд да и плюс те 44 выходит результат 64.
вот сделал програмку очень понятную и сразу понятно где ошибка есть вот она

program sviesoforas;
var n,i,j: integer;
 a:array [1..1001] of char;
 val,min,sek: array [1..1001] of  integer;
 b,c,d:integer;
pradDuom,
rezult: text;
begin
d:=0;
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
readln (pradDuom, n);
writeln(n);
for i := 1 to n do
begin
readln(pradDuom, a[i],val[i],min[i],sek[i]);
writeln(a[i],' ',val[i],' ',min[i],' ',sek[i]);
end;
for  i := 1 to n do
for  j :=1+i to n do
if a[i]<>a[j] then
               if (val[i]=val[j]) and (min[i]=min[j]) and (sek[i]=sek[j])
                then begin d:=d+30;
writeln(' a ',val[i],' ',min[i],' ',sek[i],' = ',val[j],' ',min[j],' ',sek[j],' ravno sekund ',d) 
end
                else
                 if (val[i]=val[j]) and (min[i]=min[j]) and (sek[i]<sek[j])
                  then begin d:=d+((sek[i]+30)-sek[j]); 
writeln(' b ',val[i],' ',min[i],' ',sek[i],' = ',val[j],' ',min[j],' ',sek[j],' ravno sekund ',d) 
end
                  else if (val[i] = val[j]) and (min[i]-min[j]=1) and (sek[j]>sek[i])
                        then
                          begin sek[j]:=sek[j]+30;
                            if sek[j]>60
                             then sek[j]:=sek[j]-60; min[j]:=min[j]+1;
                               if (min[i]-min[j]=0) and (sek[j]>sek[i])
                                then d:=d+((sek[i]+30)-sek[j]); sek[j]:=sek[j]+30; min[j]:=min[j]-1; 
writeln(' c ',val[i],' ',min[i],' ',sek[i],' = ',val[j],' ',min[j],' ',sek[j],' ravno sekund ',d);
                               end;
                  


                     writeln(d);
readln;
end.

вот еще другую сделал тожесамая ошибка

program sviesoforas;
var n,i,j: integer;
 a:array [1..1001] of char;
 val,min,sek: array [1..1001] of  integer;
 b,c,d:integer;
pradDuom,
rezult: text;
begin
d:=0;
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
readln (pradDuom, n);
writeln(n);
for i := 1 to n do
begin
readln(pradDuom, a[i],val[i],min[i],sek[i]);
writeln(a[i],' ',val[i],' ',min[i],' ',sek[i]);
end;
for  i := 1 to n do
for  j :=1+i to n do
if a[i]<>a[j] then
               if (val[i]=val[j]) and (min[i]=min[j]) and (sek[i]=sek[j])
                then d:=d+30
                else
                 if (val[i]=val[j]) and (min[i]=min[j]) and (sek[i]<sek[j])
                  then d:=d+((sek[i]+30)-sek[j])
                   else
                    if (val[i]=val[j]) and (min[i]=min[j]) and (sek[i]>sek[j])
                     then d:=d+(sek[i]-(sek[j]+30))
                     else
                      if (val[i]=val[j])
                       then
                        begin
                         if (min[i]-min[j]=1)
                          then
                           begin
                            min[i]:=min[i]-1; sek[i]:=sek[i]+60;
                             if (min[i]-min[j]=0)
                              then
                               if (sek[i]-sek[j]>0) then   d:=d+(sek[i]-sek[j]); writeln(d); 
writeln(' then ',val[i],' ',min[i],' ',sek[i],' = ',val[j],' ',min[j],' ',sek[j])
                           end
                          else
                           begin
                            min[j]:=min[j]-1; sek[j]:=sek[j]+60;
                            if (min[j]-min[i]=0)
                             then
                              if (sek[j]>sek[i])
                               then
                                if (sek[j]-sek[i]<30)
                                 then d:=d+(sek[i]-(sek[j]+30));
                           end;
                           end;
                     writeln(d);
readln;
end.

посоветуйте как лутше сделать или исправьте эти программки.

8 задача Дан список владельцев автомобилей и их номера автомобилей. Надо по номеру автомобиля найти этого человека которому автомобиль принадлежит.
в файле duom.txt. написано на первой строке номер автомобиля которого найти нада на второй строке написан сколько в списке фамилий. фамилия может содержать до 20 символов номер 3 буквы латинские и 3 цифры от 1 до 999.
вот предоставили данные

const SK = 1000;
type savin = record
pavarde: string[20];
num_raid: string[3];
num_sk: 1..999
end;
sarasas = array [1..SK] of savin;

и все номера автомобилей будут по порядку идти
AAA001
AAA002
AAA005
AAA006
...
AAA999
AAB002
...
и еще списак можетбыть от 1 до 1000 людей
данные записать в файл rez.txt.
пример
KVL578
6
Petraitis ABC321
Petkeviciene BJU500
Jonaitis DKG512
Antanaitis KVL578
Zemaityte KVL644
Bartkus VVV255

результат фамилия владельца автомобиля Antanaitis
вот я зделал простую программу эту все правильно выводит
вот

program automobilis;
const SK = 1000;
type savin = record
pavarde: string[20];
num_raid: string[3];
num_sk: 1..999
end;
sarasas = array [1..SK] of savin;
var
a:string[3];
n,i,s:integer;
c:sarasas;
p:text;
begin
assign (p, 'duom.TXT');
reset (p);
readln (p, a,n);
writeln(a,' ',n);
readln(p, s);
writeln(s);
for i:=1 to s do
begin
readln(p,c[i].pavarde,c[i].num_raid,c[i].num_sk);
writeln(c[i].pavarde,'  ',c[i].num_raid,' ',c[i].num_sk);
end;
writeln;
for i:=1 to s do
if (c[i].num_raid=a) and  (c[i].num_sk=n) then writeln( c[i].pavarde);
readln;
end.

потом я эту программу перепишу в двоичный поиск сделаю.

непонятно мне следущее
Вместе с 7 и 8 заданиями вместе должно быть выложена программа генерирующая случайное условия соответствующую первичным набором данных (случайный тест) в котором должен быть хоть один искомый обьект.
вот все ого как это так может обесните.
и еще эти задания должны быть записаны в файлы lapsi107.pas и lapsi108.pas генерирующие программы должны быть записаны в файлы apsi107gen.pas и lapsi108gen.pas .
во как даже может мне обьясните что за генераторы и как их сделать .


Добавлено через 2 мин.
ого сколько много написал я. если что нибуть непонятно то спросите уж извините за перевод с литовского на русский

Сообщение отредактировано: Lapp - 18.12.2008 8:27

[volvo]

только зачем написали два var?

А какая разница? Хоть пять разделов Var сделай, от этого ничего не изменится... Я по привычке, чтоб далеко наверх не проматывать страницу, сделал еще один раздел, и там все определил... Хочешь - объедини.

и почему меньше ресурсов требует

Ну, смотри: у тебя 3 массива по 1001 элементу (каждый Integer занимает по 2 байта), и еще 1001 Char (по одному байту). Всего примерно 7000 байт выделено. Я, вместо того, чтобы хранить и постоянно сравнивать 3 числа на каждое событие, записываю в один LongInt смещение от начала суток в секундах (у тебя в условии написано, что данные в файле хранятся только за сутки). Итого 1001 * 4 + 1001 * 1 = 5000 байт примерно. Вот тебе и экономия почти 2К.

а тут уже нечего непонел зачем сперва полследнее время смотрите а потом первое

Хм.. Смотри:

// сначала сортируем смещения (а вместе с ними и соответствующие им буквы)
// обычным методом "пузырька", это должно быть понятно... Потому что события
// должны быть упорядочены по времени возникновения
for i := 1 to n do
    for j := n downto i + 1 do
      if value[j - 1] > value[j] then begin
        T := value[j - 1]; value[j - 1] := value[j]; value[j] := T;
        ch := a[j - 1]; a[j - 1] := a[j]; a[j] := ch;
      end;

// а вот теперь...
// пробегаемся по всему массиву данных и делаем вот что:
// запоминаем в переменной right_until время (в секундах от начала суток), 
// когда _погаснет_ правый светофор (посчитать очень просто, мы же знаем,
// когда он загорелся, правда? +30 и всего делов),

// а в переменной left_until - время, когда погаснет светофор левый.

  left_until := 0; right_until := 0; // <--- Чтобы убрать предупреждение компилятора

  for i := 1 to n do begin
   if a[i] = 'D' then begin // нажата кнопка правого?
     right_until := (value[i] + 30) mod 86400; // value[i] - время нажатия, погаснет через 30 секунд
     diff := (left_until - value[i]) mod 86400; // так, правый светофор горит... А может, и левый ЕЩЕ горит?

     // diff - это разница между текущим временем и временем гашения левого светофора. Если она 
     // положительная и меньше 30, значит, на время diff загорятся ОБА светофора сразу, значит,
     // надо прибавить эту разницу к итоговому времени
     if (diff > 0 ) and (diff <= 30) then d := d + diff;
   end
   else begin // нажата кнопка левого?
     left_until := (value[i] + 30) mod 86400; // и он погаснет через 30 секунд

     // здесь делаем то же самое, что и выше, но поскольку это - нажатие на левую кнопку,
     // то ищем разницу со временем гашения правого светофора...
     diff := (right_until - value[i]) mod 86400;
     if (diff > 0) and (diff <= 30) then d := d + diff;
   end;
  end;

Вот, собственно, и вся идея. А 86400 - это количество секунд в сутках (60 сек * 60 мин * 24 часа), я делал mod 86400 для того, чтобы никакие смещения и разницы не превышали этого числа, это может помочь правильно дать ответ даже тогда, когда время в файле записано чуть больше, чем за сутки. Если сильно раздражает - можешь попробовать убрать это получение остатка. В подавляющем большинстве случаев результаты и так будут меньше 86400.

и еще в компеляторе написали left_until неиспользуется можете обеснить поподробнее?

Не было такого никогда. Там написано, что "компилятору кажется, что переменная может быть использована до ее инициализации." Но этого произойти не может, переменная глобальная, в любом случае инициализируется нулем. Для того, чтобы убрать это предупреждение - добавь строчку, присваивающую обоим переменным значение 0 после сортировки, я показал в коде, куда именно.