Типизированный файл

12.02.2013, 20:31. Показов 641. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Запись имеет вид: название издания, газеты или журнала, стоимость одного экземпляра, количество экземпляров в год. Вывести на печать информацию о самом дешевом издании.
Как изменить программу, чтобы данные о газете и журналах записывались в типизированный файл, а также, чтобы результат программы: информация о самом дешевом издании записывался в другой файл.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
const Max=100;
type
  str20 = string[20];
  tRec = record
    name : str20;
    cena : real;
    tirav: longint;
  end;
var
  a : array[1..max] of tRec;
  n,i,ind : byte;
Begin
  write('Сколько газет и журналов? [n<100] : '); readln(n);
  for i:=1 to n do with a[i] do begin
    writeln('-----',i,'----');
    write('Название : '); readln(name);
    write('Цена : '); readln(cena);
    write('Тираж : '); readln(tirav);
  end;
  ind:=1;
  for i:=2 to n do
   if a[i].cena*a[i].tirav < a[ind].cena*a[ind].tirav then ind:=i;
  writeln('Самое дешевое:');
  writeln(a[ind].name,' - ',a[ind].cena*a[ind].tirav:0:2);
  readln;
End.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

12.02.2013, 20:31

Ответы с готовыми решениями:

Типизированный файл
1. Записать в файл f последовательного доступа n натуральных чисел. Получить в другом файле...

Типизированный файл
18 Дан типизированный файл целых чисел. Переписать все отрицательные числа в начало файла.

типизированный файл
Ребят, понимаю, что задача элементарная, но я что-то туплю, не знаю как ее сделать В Делфи.......

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

12.02.2013, 20:31

Помогаю со студенческими работами здесь

Типизированный файл ABC
Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа...

Типизированный файл иассивов
15) Создать файл, где компонентой будет массив из N чисел. Определить минимальное и максимальное...

Создать типизированный файл
Всем доброе утро! Помогите, пожалуйста, с задачей.

Преобразовать типизированный файл
Дан целочисленный файл F . Все его отрицательные компоненты возвести в квадрат, положительные...

Преобразовать типизированный файл
17. Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной....

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

Наверх