• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы SHAX
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

SHAX

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

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

Barmutik

Решение:

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

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


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

SHAX

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

zubr

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

SHAX

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

zubr

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

SHAX

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

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

Guest

народ пожалуйста помогите по паскалю...срочно!!!!!!!!!!!!!!!!
дайте кто нить свою АСЮ
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!