Объяснить работу программы(написать для чего каждая строка) - Turbo Pascal

  1. Задача:Дан массив целых чисел.Найти максимальный элемент среди отрицательных Код программы:


textual

Код к задаче: «Объяснить работу программы(написать для чего каждая строка) - Turbo Pascal»

const
  n = 10; {размер массива задан константой}
var
  a : array[1..n] of integer; {описание массива}
  i, max, k : integer;
begin
  max := -32768; {изначально полагаем максимум = минимально 
  возможному числу которое помещается в тип integer}
  k := 0; {счетчик количества отрицательных}
  writeln('вводим массив:');
  for i := 1 to n do {цикл}
  begin
    write('Элемент [', i, ']: '); {вывод сообщения о вводе i элемента}
    readln(a[i]); {ввод элемента}
    {если элемент отрицательный a[i] < 0 и при этом больше 
    или равен максимальному a[i] >= max }
    if (a[i] < 0) and (a[i] >= max) then {то}
    begin
      max := a[i]; {максимальным становится этот элемент}
      inc(k) {прибавляем +1 к счетчику отрицательных}
    end
  end; {конец цикла}
  writeln('Вы ввели массив:');
  {вывод массива в строку}
  for i := 1 to n do write(a[i]:6);  
  writeln; {перевод строки}
  {если количество отрицательных не 0, то выводим максимальный}
  if k <> 0 then writeln('максимальное из отрицательных: ', max)
  {иначе выводим, что их нет}
  else writeln('отрицательных нет');
  {ожидаем нажатия enter}
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.714 из 5



Похожие ответы
  1. Напишите программу,вычисляющую работу силы тяжести.

  1. Текст задачи: "Имеются данные о 10 сотрудниках фирмы: фамилия, имя, отчество, год рождения, должность, год поступления на работу. В виде таблицы вывести данные о сотрудниках фирмы. Вывести данные о старейших сотрудниках фирмы и о тех, кто был принят на работу позже всех." Что написал я:

  1. 1. Задания В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одной матрицей, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обеим матрицам. 2. Правила оформления работы 1. Предусмотреть вывод на экран ФИО, № группы студента, сделавшего работу. 2. Автоматическое формирование исходного массива. 3. Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями. 4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода матрицы. Вот 5я лаба (Найти число строк матрицы А(6,4), минимальный элемент которых равен 0.)

  1. Как понять...имеются 2 файла строк?)это как их описывать?) например:F:file of string так что ли?) мне надо просто создать 2 файла строк)в одном женские,а в другом мужские имена)  

  1. Найдите и объясните ошибки в следующей программе (в турбо паскале).

  1. 1) Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц. Структура записи имеет поля: фамилия сборщика, наименование цеха, количество изделий по категориям, собранных рабочим за месяц. Количество записей не менее 10. Текст программы(спасибо форумчанину Kodzaev))):

  1. Здравствуйте.Прошу помочь с объяснением цикла в программе!(а именно,что такое а,t1,t2,k?)Заранее благодарю.

  1. Алгоритм типа: Продолжить y/n? Чтобы после всех операций в конце программы появлялась надпись "Продолжить y/n?" и при выборе y, вся программа начиналась с начала, если же n, то программа заканчивалась. Заранее спасибо.