materus
/
AHE
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Silnia, czas wykonywania - Pascal : Usunięcie polskich znaków, zmiana nazwy

This commit is contained in:
Mateusz Słodkowicz 2024-11-18 15:36:34 +01:00
parent 8eaf0b9eec
commit bb0bda28ae
Signed by: materus
GPG Key ID: 28D140BCA60B4FD1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Algorytmy i struktury danych/Pascal/AiSD5_C3/zad2_silnia_czas.pas
View File

@ -1,10 +1,10 @@
program silnia; program silnia_czas;
uses sysUtils; uses sysUtils;
function Czytaj_liczbe: Int64; function Czytaj_liczbe: Int64;
var var
liczba : Int64; liczba : Int64;
begin begin
Write('Podaj liczbę calkowita: '); Write('Podaj liczbe calkowita: ');
ReadLn(liczba); ReadLn(liczba);
Czytaj_liczbe := liczba; Czytaj_liczbe := liczba;
end; end;
@ -46,7 +46,7 @@ var
wynikI, wynikR : Int64; wynikI, wynikR : Int64;
begin begin
liczba := Czytaj_liczbe(); liczba := Czytaj_liczbe();
Write('Podaj liczbę iteracji: '); Write('Podaj liczbe iteracji: ');
ReadLn(ile); ReadLn(ile);
CzasI := Time(); CzasI := Time();
for i := 0 to ile do for i := 0 to ile do