Question

Turbo Pascal- Napisz program, który przy użyciu procedury będzie wyświetlał wizytówki zgodne z danymi wprowadzonymi przez użytkownika.

2. Napisz program zawierający funkcję podnoszącą liczbę podaną przez użytkownika do potęgi trzeciej.

Z góry dziękuje i podkreślam że musi to być turbo pascal nie może być to C++

Answer 1

 

1. Wizytówka:

 

program dane;
uses crt;
var
imie,nazwisko:string[20];
email,poczta,miejscowosc:string[25];
wiek:string[3];
telefon:string[9];
pesel:string[11];
kod_pocztowy:string[6];
data_urodzenia:string[10];
plec:string[9];
procedure wypisz;
begin
clrscr;
writeln('==================================TWOJE DANE===================================');
writeln('===============================================================================');
writeln('Imie: ',imie);
writeln('Nazwisko: ',nazwisko);
writeln('Wiek: ',wiek,' lat');
writeln('Plec: ',plec);
writeln('Data urodzenia: ',data_urodzenia);
writeln('Adres: ',miejscowosc);
writeln('Kod Pocztowy: ',kod_pocztowy);
writeln('Poczta: ',poczta);
writeln('Pesel: ',pesel);
writeln('================================DANE KONTAKTOWE================================');
writeln('===============================================================================');
writeln('Telefon: ',telefon);
writeln('e-mail: ',email);
writeln('===============================================================================');
writeln('===============================================================================');
end;
begin
clrscr;
writeln('==============================WPROWADZ SWOJE DANE===============================');
writeln('================================================================================');
writeln('Twoje imie:');
readln(imie);
writeln('Twoje nazwisko:');
readln(nazwisko);
writeln('Twoj wiek:');
readln(wiek);
writeln('Plec:');
readln(plec);
writeln('Data Urodzenia:');
readln(data_urodzenia);
writeln('Adres:');
readln(miejscowosc);
writeln('Kod Pocztowy:');
readln(kod_pocztowy);
writeln('Poczta:');
readln(poczta);
writeln('Twoj numer PESEL:');
readln(pesel);
writeln('Numer Telefonu (Stacjonarny lub Komorkowy):');
readln(telefon);
writeln('Adres Poczty Elektronicznej:');
readln(email);
wypisz;
readln;
end.

2.

program funkcja;
uses crt;
var
a,w :integer;
function potega(a,w :word) :longint;
var
sum :longint;
begin
sum:=1;
while(w<>0)do
begin
sum:=sum*a;
w:=w-1;
end;
potega:=sum;
end;
begin
clrscr;
writeln('Podaj liczbe');
readln(a);
writeln('Podaj wykladnik');
readln(w);
writeln('Wynik potegowania to ' ,potega(a,w));
readln
end.

Mam nadzieje że pomogłem :)