Question

napisz program który przy uzyciu procedury będzie wyświetlał wizytówki zgodne z danymi wprowadzanymi przez użytkownika

Program w Turbo Pascalu

Answer 1

program wizytowka;
USES CRT;
VAR
dane,zawod,mail,adres:string;
telefon1,telefon2:qword;
begin
clrscr;
write('Podaj imię i nazwisko: ');
readln(dane);
write('Podaj zawód i/lub nazwę firmy: ');
readln(zawod);
write('Podaj adres (kod pocztowy i miejscowość, ulica): ');
readln(adres);
write('Podaj nr. telefonu: ');
readln(telefon1);
write('Podaj nr. telefonu komórkowego: ');
readln(telefon2);
write('Podaj e-mail: ');
readln(mail);
clrscr;
writeln('Wizytówka:');
read;
writeln(dane);
writeln(zawod);
writeln(adres);
writeln('Telefon: ',telefon1);
writeln('Telefon kom.: ',telefon2);
writeln('E-mail: ',mail);
readln;
end.

Proszę mam nadzieję że o to chodziło i pomogłem :) Liczę na naj ;)