3 Задачи.Delphi 7

[Gren]

помогите пожалуйста решить!(((((

1. Написать программу, в которой хранится расписание движения автобусов на междугородней автостанции: номер рейса, маршрут(пункт отправления, пункт назначения), время отправления, время прибытия. По заданному маршруту или номеру рейса выдать сведения о рейсе (полные).

2.Из данного списка спортсмена распечатать сведения о тех, кто занимается плаванием. указать возраст и количество лет, которые они занимаются.

...и на никак не получается решить, чтобы не делала...хотя задачка легкая на вид...
3. Составить массив из 20 элементов не повторяющихся чисел, применив рандомизацию.

всегда какое-то число повторяется((((((((

очень надеюсь!

[ОДИНОЧЕСТВО В СЕТИ]

можно на код 3 задачи глянуть?

[Gren]

он у мя на другом компе...((((

[russian-stalker]

Да,да, вы не ослышались)

[Miito]

Да,да,код.Код программы=)Листинг,иначе говоря=)

[ОДИНОЧЕСТВО В СЕТИ]

эм.............код?

давайте начинайте

а он у меня на учебе....
а я на флешку сохранила а она чего-то не открывается...
ой а вы знаете у меня вчера система полетела....

если хотите чтобы вам сделали эти 3 задачи с нуля то вам во фриланс

он у мя на другом компе...((((

вот вам мое предложение
500 р и я сделаю все 3 задачи к завтра к 16:00 по москве!
если согласны аська в профиле и на аватарке

[Манжосов Денис :)]

Попробуй в 3 задаче написать в начале программы Randomize.
Во второй задаче я так понимаю должна быть запись:
TPerson = record
Age, Stage: integer;
Profession: string;
end;
Age - возраст, Stage - стаж, Profeccion - род деятельности.
Persons: array [1..10] of TPerson;
Массив 10 объектов. Делай проверку такую if Persons[i].Profession = 'Плавание' then и дальнейшие действия.
Первая задача тоже на структурные типы данных.

[ОДИНОЧЕСТВО В СЕТИ]

Попробуй в 3 задаче написать в начале программы Randomize.

может она и сработает если аргумент для функции random будет >20 в разы и то не всегда
если б все было так просто такие задачи бы не задавали!

[Sasha_Smirnov]

Соль задачи 3 — в исключении уже сгенерированных чисел.
Писать код — это полчаса как минимум (если 1 дома!), но есть нечто готовое. Может, разберётесь.

Генерация чисел (в приложенном файле) по альт-G.

Про «другой комп»... нет слов. Я так в голове вынашиваю своих «детищ»!

[russian-stalker]

3-простейшая задача.
Вот решение(не очень быстрое-но всё же) :

const
 max=20;

var
 i,k:integer;
 a:array[1..20] of integer;

begin
 randomize;
  for i:=1 to 20 do
  begin
    a[i]:=random(max);
    k:=0;
    while k<>20 do
    begin
     inc(k);
     if (a[k]=a[i]) and (k<>i) then
     begin
      a[i]:=random(max);
      k:=0;
     end;
    end;
  writeln(a[i]);
  end;
end.