Вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет - Turbo Pascal

  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).


textual

Код к задаче: «Вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет - Turbo Pascal»

program ss;
uses crt;
const
    n=5;
   type  stud=record
fam:string[30];
im:string[20];
otch:string[30];
pol:char;
voz:byte;
end;
var
i:integer;
st:array[1..100] of stud;
 
begin
clrscr;
for i:=1 to n do begin
with  st[i] do begin
Writeln('Введите фамилию студента');
readln(fam);
Writeln('Введите имя студента');
readln(im);
writeln('Введите отчество студента');
readln(otch);
Writeln('Введите пол студента');
readln(pol);
writeln('Введите во зраст студента');
readln(voz);
end;
end;
WriteLn('|','Фамилия':10,'|','Имя':8,'|','Отчество':10,'|','Пол':3,'|','Возраст':7,'|');
for i:=1 to n do begin
with st[i] do begin
write('|',fam:10,'|');
write(im:8,'|');
write(otch:10,'|');
write(pol:3,'|');
write(voz:7,'|');
end;
readln
end;
writeln;
Writeln('Студенты мужского пола старше 18-ти лет');
writeln;
for i:=1 to n do begin
if (st[i].pol='м') and (st[i].voz>17) then   begin
WriteLn('|','Фамилия':10,'|','Имя':8,'|','Отчество':10,'|','Пол':3,'|','Возраст':7,'|');
with st[i] do begin
write('|',fam:10,'|');
write(im:8,'|');
write(otch:10,'|');
write(pol:3,'|');
write(voz:7,'|');
end;
readln
end;
end;
end.

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

15   голосов, оценка 3.867 из 5



Похожие ответы
  1. Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.

  1. ввести и вывести матрицу 4х4. Вычислить и вывести скалярные произведения первой строки на вторую, второй на третью, третьей на четвертую, а также первого столбца на второй, на третий и на четвертый.

  1. Даны результаты, ререписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990г.

  1. ребят как посчитать средний бал и вывести ученика с такой-же оценкой как и средний бал?

  1. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.

  1. Вывести на экран первые четыре числа, кратные s и больше x. Натуральные числа s и x пользователь вводит с клавиатуры.

  1. Создать двумерный массив и вывести его на печать в виде матрицы.Выполнить задание: (i,j=1..4) 1) xi,j = i tan(pi/5) / 2+sin(ij) -вычислить сумму элементов столбцов. 2)xi,j=ctg(pi/5)+0,4 / 56+sin j -вычислить произведение элементов столбцов. Что тут означает вывести двумерный массив на печать? И что нужно делать с примерами 1 и 2?

  1. 1. В прямоугольной матрице размером Т*М, имеющей имя МАТР содержаться целые числа. Т - число строк, М - число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму элементов в каждой строке. Определить строку с максимальным значением этой суммы и вывести ее номер на экран.

  1. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево. 556 655 заранее спасибо...