Помогите решить задачу по Паскалю

[SHAX]

помогите решить:

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

 

[Barmutik]

Решение:

1. Создаём нетекстовый файл
2. Записываем информацию о данных магазина
3. Вычитываем информацию из нетекстового файла.
4. Сортируем
5. Записываем в текстовый файл
6. Выводим информацию о дешёвых фруктах
7. Выводим на экран срденюю стоимость килограмма.

Всё просто Надеюсь после такого решения всё сразу станет ясно :lol:


P.S. Время идёт а подход людей не меняется ... <_<

 

[SHAX]

хорошо,тогда скажите как хотя бы сортировать и вывести информацию о дешёвых фруктах и среденюю стоимость килограмма

 

[zubr]

Надо создать структуру:

type
Fruct=record
 Name:string[40];
 Weight:extended;
 Price:extended;
end;

В виде структуры записывать и считывать данные в файл. Создать массив структур:

var
 data:array [1..100] of Fruct;

В массиве сортировать. Приемы сортировки есть во всех учебниках по Паскалю.

 

[SHAX]

вывести информацию о дешёвых фруктах и среденюю стоимость килограмма

 

[zubr]

вывести информацию о дешёвых фруктах и среденюю стоимость килограмма

Если на экран, то так:

Writeln('Самый дешевый фрукт: ', data[i].Name);
Writeln('Стоимость :', data[i].Price);
Writeln('Средняя стоимость фруктов: ', prsr);
Readln;

 

[SHAX]

спасибо zubr,ты единственный кто смог мне помочь <_<

 

[Playa]

Помогите плиз задачки решить!!!!!!
Для заданной последовательности А целых чисел определим T(i, j) как . Найти i, j такие, что T(i, j) минимально.
------------------------------------------------------------
Получить целочисленную квадратную матрицу порядка n, элемен-тами которой являются числа 1, 2, ..., n2, расположенные по спирали.

-------------------------------------------------------------
используя алгоритм «решето Эратосфена» для нахождения простых чисел,
найти все простые числа разность между которыми равна 2.
Найти максимальное простое число, которое возможно определить по этому алгоритму в данной системе программирования.
------------------------------------------------
Задано n натуральных чисел, где n і 106, каждое число не превыша-ет 500000. Вывести по возрастанию все числа последовательности, которые встречаются ровно один раза.
----------------------------------------------------
Выполнить задание, создав тип для представления «длинных» чисел и определив операции над переменными этого типа.
Найти частное от деления a/b с точностью до заданного количества цифр k после запятой, a и b – натуральные числа, содержат не более 200 цифр.
------------------------------------------------------
1. Вывести в алфавитном порядке все слова, содержащие наибольшее количество гласных букв.
2. Найти все слова, в которые буква 'а' входит не менее двух раз.

 

[Guest]

народ пожалуйста помогите по паскалю...срочно!!!!!!!!!!!!!!!!
дайте кто нить свою АСЮ