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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.11.2015, 08:06   #1
Otclik
 
Регистрация: 08.11.2015
Сообщений: 4
По умолчанию Информация о детали состоит из...

Информация о детали состоит из названия, веса экземпляра (в килограммах), количества экземпляров, имеющихся на складе (в штуках), статуса (заказана или нет).
Найти
а)Общее кол-во экземпляров деталей.
б)Название детали, вес которой наибольший.
Не могу понять как реализовать поиск в а) и б)
Вот что имеется на данный момент:

Код:
uses crt;
 
 type sklad = record
         nazv, status : string[20];
               ves,kolich : integer;
      end;
 
 var f:file of sklad;
 S: sklad;
 i,n:integer;
 
 begin
      assign(f,'C:\Users\***\Desktop\input.txt');
      rewrite(f);
 Write('Количество записей: '); readln(n);
 For i:=1 to n do
 with s do
 begin
    write(i,'. Название детали: '); readln(nazv);
    write('Статус детали: '); readln(status);
    write('Вес детали в кг: '); readln(ves);
    write('Количество деталей: '); readln(kolich);
    write(f,s);
    clrscr;
 end;

    close(f);
 end.

Последний раз редактировалось Otclik; 08.11.2015 в 08:11.
Otclik вне форума Ответить с цитированием
Старый 08.11.2015, 08:46   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Не могу понять
Оч. просто:
Код:
reset(f); while not eof(f) do begin
 read(f,s); Kolvo:=Kolvo+s.kolich;
 if maxves<s.ves then begin maxname:=s.nazv; maxves:=s.ves; end;
end;
выводим Kolvo, maxname и maxves
Kolvo и maxves типа integer
maxname  типа string
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.11.2015, 12:57   #3
Otclik
 
Регистрация: 08.11.2015
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Оч. просто:
Код:
reset(f); while not eof(f) do begin
 read(f,s); Kolvo:=Kolvo+s.kolich;
 if maxves<s.ves then begin maxname:=s.nazv; maxves:=s.ves; end;
end;
выводим Kolvo, maxname и maxves
Kolvo и maxves типа integer
maxname  типа string
благодарю, помогли
Otclik вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
написать приложение на С Sharp- трехмерное моделирование детали leisan_mezh Фриланс 2 06.02.2015 08:00
Задача про детали cristianoman Помощь студентам 3 23.06.2014 00:05
Delphi, Оптимизация раскроя листа произвольной формы на детали произвольного размера ТипичныйСтудент Помощь студентам 3 27.10.2013 16:48
Скрипт поиска товара по номеру детали (для автомобильного магазина) neshap PHP 2 19.11.2008 22:36
Детали, фигуры dma Microsoft Office Excel 1 17.10.2007 09:22