Pascal - Procedury i funkcje

Powiększanie słów

Powiększanie słów
Pascal - Procedury i funkcje

Program: powiększający litery po wprowadzeniu danego tekstu.

Program wykorzystuje metodę upcase do zrobienia z małej litery, dużej. Wyraz podaje użytkownik.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program procka4;
uses crt;
var txt:string;
procedure duze(var txt:string);
var i:integer;
begin
     for i:=1 to length(txt) do
     txt[i]:=upcase(txt[i]);
end;
begin
clrscr;
       writeln('Podaj wyraz ktory zostanie powiekszony: ');
       readln(txt);
       duze(txt);
       writeln(txt);
       readkey;
end.