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

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

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

    SHAX Гость

    Репутация:
    0
    помогите решить:

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

    Barmutik Гость

    Репутация:
    0
    Решение:

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

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


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

    SHAX Гость

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

    zubr Гость

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

    SHAX Гость

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

    zubr Гость

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

    SHAX Гость

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

    Playa Гость

    Репутация:
    0
    Помогите плиз задачки решить!!!!!!
    Для заданной последовательности А целых чисел определим 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 Гость

    Репутация:
    0
    народ пожалуйста помогите по паскалю...срочно!!!!!!!!!!!!!!!!
    дайте кто нить свою АСЮ
     
Загрузка...
Похожие Темы - Помогите решить задачу
  1. Makc
    Ответов:
    4
    Просмотров:
    266
  2. GREED
    Ответов:
    5
    Просмотров:
    944
  3. vovanabali
    Ответов:
    1
    Просмотров:
    794
  4. merrs
    Ответов:
    1
    Просмотров:
    1.406
  5. Kugotovr23
    Ответов:
    1
    Просмотров:
    1.383
Статус темы:
Закрыта.

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