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

Тема в разделе "Delphi - Базы данных", создана пользователем SHAX, 1 окт 2005.

Статус темы:
Закрыта.
  1. SHAX

    SHAX Гость

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

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

    Barmutik Гость

    Решение:

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

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


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

    SHAX Гость

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

    zubr Гость

    Надо создать структуру:
    Код (Text):
    type
    Fruct=record
     Name:string[40];
     Weight:extended;
     Price:extended;
    end;
    В виде структуры записывать и считывать данные в файл. Создать массив структур:
    Код (Text):
    var
     data:array [1..100] of Fruct;
    В массиве сортировать. Приемы сортировки есть во всех учебниках по Паскалю.
     
  5. SHAX

    SHAX Гость

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

    zubr Гость

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

    SHAX Гость

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

    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. Найти все слова, в которые буква 'а' входит не менее двух раз.
     
  9. Guest

    Guest Гость

    народ пожалуйста помогите по паскалю...срочно!!!!!!!!!!!!!!!!
    дайте кто нить свою АСЮ
     
Загрузка...
Похожие Темы - Помогите решить задачу
  1. GREED
    Ответов:
    1
    Просмотров:
    545
  2. vovanabali
    Ответов:
    0
    Просмотров:
    539
  3. merrs
    Ответов:
    1
    Просмотров:
    1.310
  4. Kugotovr23
    Ответов:
    1
    Просмотров:
    1.286
  5. mregor
    Ответов:
    0
    Просмотров:
    911
Статус темы:
Закрыта.

Поделиться этой страницей