Дана запись, потом вводятся компоненты и записываются в файл, надо сделать процедуру которая открывает файл и находит страну производителя, продукции которой больше всего в магазине:
Unit MODUL;
Interface
type magazin=record
name,cont:string; {название товара и страна производитель (cont)}
price:integer; {цена товара}
wyear:integer; {гарантия (лет)}
End;{magazin}
Procedure con;
Var
f:file of magazin;
frm:magazin;
Implementation
Procedure con; {нахождение страны, товаров из которой больше всего}
Var i,max:integer;
Begin
Assign(f,'D:\db.dat');
reset(f);
max:=1;
for i:=1 to filesize(f) do
read(f,frm);
begin
if max<frm.kod then max:=frm.kod;
end;
reset(f);
for i:=1 to filesize(f) do
begin
read(f,frm);
if frm.kod>=max then writeln('товара больше всего из ',frm.cont,');
end;
close(f);
end;
End. {Unit}
Сначала попробуй сделать поиск по форуму... Задание решалось практически слово в слово...
...а совсем сначала переименуй тему.
заголовок должен быть информативным.
и вообще, почитай правила - нет желания делать замечания в каждой теме.
базара нема ща поищу, а тему чето не пойму как переименовать ) ща тоже попробую
Похожего много нашел, но ничего толкового, даже про страны были так же как и у меня, но там не тот поиск совсем задействуется что нужен мне. Мнеб хотя бы теоритически сказать а дальше сам попробую
function find_country: string;
var
country_count: array[1 .. 100] of record
country: string[20];
count: integer;
end;
counter: integer;
f: file of magazin;
R: magazin;
found: boolean;
begin
counter := 0;
assign(f, 'db.dat'); reset(f); { <--- Никаких проверок нет - добавишь сам }
while not eof(f) do begin
read(f, R);
found := false;
for i := 1 to counter do
if country_count[i].country = R.cont then begin
inc(country_count[i].count); found := true; break;
end;
// Не было найдено такой страны - добавляем ее в массив
if not found then begin
inc(counter);
with country_count[counter] do begin
country := R.cont; count := 1;
end;
end;
end;
close(f);
// Ну, а теперь просто пройди по всему массиву country_count, найди
// название страны, соответствующее максимальному значению поля count,
// и верни его как результат функции
end;
Пасибо большое, блин сколько ты лет уже етот Паскаль знаешь шо так шаришь