Задача: напишите программу выводящих на экран список всех программистов и дополнительный список программистов на С++ решить нужно через записи , программу написать на паскаль авс.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.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Программа на Паскаль, которая выводит список программистов и дополнительный список программистов на С++:
program ProgrammersList;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('Ввод закончен');
Writeln('Список программистов:');
for i := 1 to 3 do
Writeln(prog[i].nm, ' - ', prog[i].Ln);
Writeln('Дополнительный список программистов на C++:');
for i := 1 to 3 do
if prog[i].Ln = 'C++' then
WriteLn(prog[i].nm, ' - ', prog[i].Ln);
Readln;
end.
Проверьте правильность ввода данных и убедитесь, что язык программирования указан как "C++" без пробелов. Если после ввода данных программа завершается и вы видите только белый экран, это может быть связано с тем, что она ждет ввода данных в консоли. Попробуйте ввести данные и нажать Enter, чтобы программа завершила свою работу и вывела результат.