Написать программу для вывода информации в виде таблицы - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Записать сведения о веществах: название, удельный вес, проводимость (проводник, полупроводник, изолятор). Вывести в виде таблицы информацию про все полупроводники.

Решение задачи: «Написать программу для вывода информации в виде таблицы»

textual
Листинг программы
type
   v=record
     name:string[20];
     ves:real;
     Prov:integer;
   end;  
var
  a:array of v;
  n,i:integer;
  b:boolean;
begin
  repeat
    write('К-во веществ:');
    readln(n);
  until n>0;
  SetLength(a,n);
  for i:=0 to n-1 do begin
    Writeln('Вещество ',i+1,':');
    write('Наименование:');readln(a[i].name);
    write('Удельный вес:');readln(a[i].ves);
    repeat
      write('Проводимость (1-проводник,2-полупроводник,3-изолятор):');
      readln(a[i].Prov);
    until a[i].Prov in [1..3];
    writeln('***************************************************************');
  end;
  writeln('Все полупроводники:');
  writeln('-----------------------------------------------------------------');
  writeln('Наименование вещества ':25,'|','Удельный вес':20,'|');
  writeln('-----------------------------------------------------------------');
  b:=false;
  for i:=0 to n-1 do
    if a[i].Prov=2 then begin
      writeln(a[i].name:25,'|',a[i].ves:20:4,'| полупроводник');
      b:=true;
    end;  
  writeln('-----------------------------------------------------------------');
  if not b then writeln('Нет полупроводников');
  readln;
end.

Объяснение кода листинга программы

  1. Объявлен тип записи v с полями name (наименование вещества), ves (удельный вес) и Prov (проводимость).
  2. Объявлена переменная a типа array of v для хранения информации о веществах.
  3. Объявлены переменные n, i и b типа integer для управления циклом и проверки наличия полупроводников.
  4. В цикле repeat-until пользователю предлагается ввести количество веществ.
  5. Массив a инициализируется с помощью функции SetLength(a,n).
  6. В цикле for выводится информация о каждом веществе: наименование, удельный вес и проводимость.
  7. Проводимость запрашивается повторно, пока не будет выбрано допустимое значение (1-проводник, 2-полупроводник, 3-изолятор).
  8. Выводится таблица с наименованием вещества, удельным весом и признаком полупроводник для всех полупроводников.
  9. Если полупроводников нет, выводится сообщение Нет полупроводников.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы