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