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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 15.12.2011, 21:14   #1
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
Радость тема record по-могите! :)

Здравствуйте, помогите пожайлуста с задачей по алгоретмическим языкам програмирования.Среда разработки: Delphi6 или 7.

Условия задачи:

Нужно сделать задачку через рекорд чтобы выкидывало всех друзей которым в 2010 году будет 25 лет.

Вот наброски, что то тут не получается... заранее спасибо!

Код:
program dryziaki;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type Dryzi=record
     kilk: string [15];
     prizvusche: string[15];
     imya: string[15];
     hobbi: string[15];
     rik: 18..30;
     god: 1978..2020;
end;
var d:Dryzi;
    Dr: file of Dryzi;
begin
    assign(Dr,'dryzia');
    rewrite(Dr);
    repeat
      write ('   Prizvusche Dryga -');readln(d.prizvusche);
      if d.prizvusche <> '*'
      then begin
           write (' Imya dryga   - ');readln(d.imya);
           write ('hobbi dryga   -');readln(d.hobbi);
           write ('Rik narodgennya - ');readln(d.rik);
           write ('God  -');readln(d.god);
           write(Dr,d);
           end;
      until d.prizvusche='*';
      close(Dr);
      reset (Dr);
      while not eof(Dr) do
        begin
                read(Dr,d);
                if (d.rik=25) and  (d.god=2010) then
                writeln (' ',d.prizvusche,' ',d.imya,' ',d.hobbi);
        end;
close(Dr);
readln
--Sashok-- вне форума
Старый 15.12.2011, 21:48   #2
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
По умолчанию

Понял что год 2010 нужно прописать через if тип вместо if (d.rik=25) and (d.god=2010) then - if 2010-d.rik = 25
--Sashok-- вне форума
Старый 15.12.2011, 21:48   #3
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
По умолчанию

А как дальше? ну кому не сложно уделите минутку!Ё
--Sashok-- вне форума
Старый 15.12.2011, 22:03   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
которым в 2010 году будет 25 лет
может все таки было?

зачем хранить и возраст и год рождения?
Код:
rik: 18..30;
god: 1978..2020;
Код:
readln(yyyy);
while not eof(Dr) do
        begin
                read(Dr,d);
                if yyyy-d.god=25 then
                writeln (' ',d.prizvusche,' ',d.imya,' ',d.hobbi);
        end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 15.12.2011, 22:37   #5
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
По умолчанию

все сделал, спасибо всем...
--Sashok-- вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Record SasukeUciha Паскаль, Turbo Pascal, PascalABC.NET 0 16.10.2011 12:01
Массив по-могите lexflax Паскаль, Turbo Pascal, PascalABC.NET 2 21.04.2011 13:16
Record! .K.E.P. Паскаль, Turbo Pascal, PascalABC.NET 1 17.12.2010 21:56
В чём различие записей Record от Packed Record? Terran Общие вопросы Delphi 7 08.06.2010 17:14
Record / Packed Record Alex Cones Общие вопросы Delphi 7 11.11.2009 10:43