Задача: напишите программу выводящих на экран список всех программистов и дополнительный список программистов на С++ решить нужно через записи , программу написать на паскаль авс.net сома программа ниже но вместо списка выводится белый экран. то есть программа завершается на слове ввод закончен что не так? Type pr=record nm:string; Ln:string; end; var prog:array[1..3]of pr; i:integer; begin for i:= 1 to 3 do begin Writeln(' Введите Фамилию и имя ',i,'человека'); Readln(prog[i].nm); Writeln(' Введите язык'); Readln(prog[i].Ln); end; Writeln('вВОД ЗАКОНЧЕН'); for i:= 1 to 3 do if prog[i].Ln= 'C ++' then Write(prog[i].Ln); end.
Задача: напишите программу выводящих на экран список всех программистов и дополнительный список программистов на С++ решить нужно через записи , программу написать на паскаль авс.net сома программа ниже но вместо списка выводится белый экран. то есть программа завершается на слове ввод закончен что не так? Type pr=record nm:string; Ln:string; end; var prog:array[1..3]of pr; i:integer; begin for i:= 1 to 3 do begin Writeln(' Введите Фамилию и имя ',i,'человека'); Readln(prog[i].nm); Writeln(' Введите язык'); Readln(prog[i].Ln); end; Writeln('вВОД ЗАКОНЧЕН'); for i:= 1 to 3 do if prog[i].Ln= 'C ++' then Write(prog[i].Ln); end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа на Паскаль, которая выводит список программистов и дополнительный список программистов на С++:
program ProgrammersList;type
pr = record
nm: string;
Ln: string;
end;
var
prog: array1..31..31..3 of pr;
i: integer;
begin
for i := 1 to 3 do
begin
Writeln′ВведитеФамилиюиИмя′,i,′человека:′'Введите Фамилию и Имя ', i, ' человека:'′ВведитеФамилиюиИмя′,i,′человека:′;
Readlnprog[i].nmprog[i].nmprog[i].nm;
Writeln′Введитеязык:′'Введите язык:'′Введитеязык:′;
Readlnprog[i].Lnprog[i].Lnprog[i].Ln;
end;
Writeln′Вводзакончен′'Ввод закончен'′Вводзакончен′;
Writeln′Списокпрограммистов:′'Список программистов:'′Списокпрограммистов:′;
for i := 1 to 3 do
Writelnprog[i].nm,′−′,prog[i].Lnprog[i].nm, ' - ', prog[i].Lnprog[i].nm,′−′,prog[i].Ln;
Writeln′ДополнительныйсписокпрограммистовнаC++:′'Дополнительный список программистов на C++:'′ДополнительныйсписокпрограммистовнаC++:′;
for i := 1 to 3 do
if progiii.Ln = 'C++' then
WriteLnprog[i].nm,′−′,prog[i].Lnprog[i].nm, ' - ', prog[i].Lnprog[i].nm,′−′,prog[i].Ln;
Readln;
end.
Проверьте правильность ввода данных и убедитесь, что язык программирования указан как "C++" без пробелов. Если после ввода данных программа завершается и вы видите только белый экран, это может быть связано с тем, что она ждет ввода данных в консоли. Попробуйте ввести данные и нажать Enter, чтобы программа завершила свою работу и вывела результат.