Pascal - Konsolowe

Nazwiska i działania

Nazwiska i działania
Pascal - Konsolowe

Program: wyszukujący nazwiska zaczynające się po literze "K" oraz dłuższe niż 5 liter.

Użytkownik wprowadza 5 nazwisk (liczba zdefiniowana w kodzie), a następnie program wykonuje operacje.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program nazwisko;
uses crt;
var a:array[1..5] of string;
    i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
     writeln('Wpisz ',i,' nazwisko');
     readln(a[i]);
end;
writeln('Nazwiska po K');
for i:=1 to 5 do
begin
     if upcase(a[i][1]) > 'K' then writeln(a[i]);
end;
writeln('Nazwiska majace wiecej niz 5 liter');
for i:=1 to 5 do
begin
     if length(a[i]) > 5 then writeln(a[i]);
end;
readln;
end.