Pascal - Procedury i funkcje

Wizytówka

Wizytówka
Pascal - Procedury i funkcje

Program: prosty tworzący mini wizytówkę składającą się z imienia i nazwiska.

Na podstawie danych podanych przez użytkownika.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program wizytowka;
uses crt;
var
   Nazwisko:string;
   Adres:string;
   i,b:integer;
procedure Gwiazdki (ile:integer;znak:char);
begin
     writeln;
     write('<');
     for i:=1 to ile do write(znak,' ');
     writeln('>');
     writeln;
     writeln;
end;
Begin
     clrscr;
     write('Podaj nazwisko: ');readln(Nazwisko);
     write('Podaj Adres: ');readln(Adres);
     writeln;
     writeln;
     b:=16;
     Gwiazdki(b,'*');
     writeln('   NAZWISKO: ',nazwisko);
     writeln('   ADRES: ', Adres);
     writeln;
     Gwiazdki (16,'&');
     readln;
end.