|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.02.2020, 19:47 | #1 |
Новичок
Джуниор
Регистрация: 20.02.2020
Сообщений: 5
|
Объясните программу. За что отвечает каждая команда?
{Запись о товаре на складе представляет собой структуру с полями:
номер склада, код товара, наименование товара, дата поступления на склад, срок хранения в днях, количество единиц товара, цена за единицу товара. Поиск - по номеру склада.} type firm = record number :integer ; cod: integer; title: string[50]; data : string[50]; shelflife: string[50]; count: integer; price: integer;end; arr = array [1..100] of firm; procedure sort_n(var m: arr; n: integer); // процедура сортировки названия var i, j: integer; buf: firm; begin for i := 1 to n - 1 do for j := i + 1 to n do if m[i].title > m[j].title then begin buf := m[i]; m[i] := m[j]; m[j] := buf; end; end; procedure sort_s(var m: arr; n: integer); // процедура сортировки цены var i, j: integer; buf: firm; begin for i := 1 to n - 1 do for j := i + 1 to n do if m[i].price > m[j].price then begin buf := m[i]; m[i] := m[j]; m[j] := buf; end; end; var a: arr; i, n, temp, j: integer; s: string; begin writeln('Введите количество записей'); readln(n); for i := 1 to n do begin writeln('Введите номер склада '); readln(a[i].number); writeln('Введите код товара '); readln(a[i].cod); writeln('Введите наименование товара'); readln(a[i].title); writeln('Введите дату поступления на склад'); readln(a[i].data); writeln('Введите срок хранения'); readln(a[i].shelflife); writeln('Введите кол-во едениц товара '); readln(a[i].count); writeln('Введите цену '); readln(a[i].price); writeln; end; sort_n(a, n); sort_s(a, n); writeln('Отсортированный список товаров'); for j := 1 to n do begin writeln(a[j].number); writeln(a[j].title); writeln; end; end. |
21.02.2020, 09:16 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,546
|
Ну для начала текст исходника следовало бы отформатировать - глядишь, и структура проги немного прояснится. Не знаешь как - посмотри хотя бы в этом форуме нормальные вопросы и ответы. А вопрос "За что отвечает каждая команда?" вообще убивает всякое желание отвечать - видимо, для ТС Паскаль - как для меня хинди+бенгали.
Код:
Стесняюсь спросить - книжка по Паскалю хоть раз в руках была ? Последний раз редактировалось digitalis; 21.02.2020 в 09:40. |
21.02.2020, 09:51 | #3 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
Код:
Код:
Код:
Код:
программа — запись алгоритма на языке понятном транслятору
|
21.02.2020, 14:31 | #4 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,546
|
Ну вот, есть на форуме добрые люди - всё разжуют, так что не надо ни на занятия ходить, ни книжки, так-их-разэтак, читать
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Демонстрация фрактальной графики. Поле из одуванчиков. Напишите пожалуйста что выполняет каждая строчка и за что отвечает | Viksa123 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 08.03.2015 10:47 |
объясните эту программу | Zulfat 22 | Общие вопросы C/C++ | 3 | 22.11.2012 10:31 |
Команда System: запуск программы в свёрнутом режиме, Не работает команда /min | Me777 | Общие вопросы C/C++ | 0 | 12.07.2011 11:49 |
Объясните, что значит каждая строка в программе | *natali* | Помощь студентам | 5 | 07.11.2009 15:17 |
Напишите пожалуйста за что отвечает каждая строчка | Saaashka | Помощь студентам | 1 | 02.07.2008 08:34 |