AlatarQ/AHE
1
0
Fork 0
mirror of https://github.com/AlatarQ/AHE.git synced 2025-04-18 18:00:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

crlf mess

Browse Source
This commit is contained in:
alatar 2024-02-10 14:41:42 +01:00
parent f00e4c086f
commit 689cbe540d
43 changed files with 2259 additions and 2250 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
AiSD/Ćwiczenie 2/Zadanie_1.lpi
View File

@ -1,63 +1,63 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

1
AiSD/Ćwiczenie 2/Zadanie_1.lpr
View File

@ -1,6 +1,5 @@
program Zadanie_1;
uses unit1;
var a,b,c,x1,x2,delta :real;

51
AiSD/Ćwiczenie 2/Zadanie_1.lps
View File

@ -1,23 +1,28 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="9" Y="50"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos Y="2"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory>
<Position>
<Filename Value="Zadanie_1.lpr"/>
<Caret Line="50" Column="9"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

126
AiSD/Ćwiczenie 2/Zadanie_2.lpi
View File

@ -1,63 +1,63 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_2"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_2"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_2"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_2"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

106
AiSD/Ćwiczenie 2/Zadanie_2.lpr
View File

@ -1,53 +1,53 @@
program Zadanie_2;
uses CRT, math, sysUtils;
function czytaj_rok() :integer;
var rok :integer;
begin
write('Podaj rok: ');
readln(rok);
czytaj_rok:=rok;
end;
function sprawdz_rok(rok :integer) :boolean;
begin
if rok mod 400 = 0 then
sprawdz_rok:= true
else
if rok mod 4 <> 0 then
sprawdz_rok:= false
else
if rok mod 100 = 0 then
sprawdz_rok:= false
else
sprawdz_rok:= true
end;
procedure wypisz_rok(rok: integer; przestepny :boolean);
begin
write('Rok ');
write(rok);
if przestepny = false then
write(' nie');
write(' jest ');
writeln('przestepny')
end;
procedure zadanie2;
var rok :integer;
var przestepny :boolean;
begin
rok := czytaj_rok();
przestepny := sprawdz_rok(rok);
wypisz_rok(rok,przestepny);
readln();
end;
begin
zadanie2();
end.
program Zadanie_2;
uses CRT, math, sysUtils;
function czytaj_rok() :integer;
var rok :integer;
begin
write('Podaj rok: ');
readln(rok);
czytaj_rok:=rok;
end;
function sprawdz_rok(rok :integer) :boolean;
begin
if rok mod 400 = 0 then
sprawdz_rok:= true
else
if rok mod 4 <> 0 then
sprawdz_rok:= false
else
if rok mod 100 = 0 then
sprawdz_rok:= false
else
sprawdz_rok:= true
end;
procedure wypisz_rok(rok: integer; przestepny :boolean);
begin
write('Rok ');
write(rok);
if przestepny = false then
write(' nie');
write(' jest ');
writeln('przestepny')
end;
procedure zadanie2;
var rok :integer;
var przestepny :boolean;
begin
rok := czytaj_rok();
przestepny := sprawdz_rok(rok);
wypisz_rok(rok,przestepny);
readln();
end;
begin
zadanie2();
end.

48
AiSD/Ćwiczenie 2/Zadanie_2.lps
View File

@ -1,24 +1,24 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="13"/>
<CursorPos X="37" Y="28"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="13"/>
<CursorPos X="37" Y="28"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

126
AiSD/Ćwiczenie 2/Zadanie_3.lpi
View File

@ -1,63 +1,63 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_3"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_3"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_3"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_3"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

92
AiSD/Ćwiczenie 2/Zadanie_3.lpr
View File

@ -1,46 +1,46 @@
program Zadanie_3;
var inp :integer;
function czytaj_liczbe() :integer;
var liczba: integer;
begin
writeln('Wpisz liczbe');
read(liczba);
czytaj_liczbe:=liczba;
end;
function sumuj_cyfry(liczba :integer) :integer;
var suma :integer;
begin
suma := 0;
liczba := abs(liczba);
while liczba <> 0 do
begin
suma:= suma + (liczba mod 10);
liczba:=liczba div 10
end;
sumuj_cyfry:=suma;
end;
procedure wypisz_sume(liczba,suma :integer);
begin
write('suma cyfr liczby ');
write(liczba);
write(' wynosi ');
writeln(suma);
end;
procedure zadanie3();
var liczba,suma :integer;
begin
writeln('Obliczanie sumy cyfr liczby rzeczywistej');
liczba:=czytaj_liczbe();
suma:=sumuj_cyfry(liczba);
wypisz_sume(liczba,suma);
end;
begin
zadanie3();
read(inp);
end.
program Zadanie_3;
var inp :integer;
function czytaj_liczbe() :integer;
var liczba: integer;
begin
writeln('Wpisz liczbe');
read(liczba);
czytaj_liczbe:=liczba;
end;
function sumuj_cyfry(liczba :integer) :integer;
var suma :integer;
begin
suma := 0;
liczba := abs(liczba);
while liczba <> 0 do
begin
suma:= suma + (liczba mod 10);
liczba:=liczba div 10
end;
sumuj_cyfry:=suma;
end;
procedure wypisz_sume(liczba,suma :integer);
begin
write('suma cyfr liczby ');
write(liczba);
write(' wynosi ');
writeln(suma);
end;
procedure zadanie3();
var liczba,suma :integer;
begin
writeln('Obliczanie sumy cyfr liczby rzeczywistej');
liczba:=czytaj_liczbe();
suma:=sumuj_cyfry(liczba);
wypisz_sume(liczba,suma);
end;
begin
zadanie3();
read(inp);
end.

46
AiSD/Ćwiczenie 2/Zadanie_3.lps
View File

@ -1,23 +1,23 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="9" Y="13"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="9" Y="13"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

140
AiSD/Ćwiczenie 3/Zadanie_1.lpi
View File

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

106
AiSD/Ćwiczenie 3/Zadanie_1.lpr
View File

@ -1,53 +1,53 @@
program Zadanie_1;
function czytaj_liczbe() :int64;
var liczba :int64;
begin
write('podaj liczbe:');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function silnia_rek(liczba :int64) :int64;
begin
if liczba > 0 then
silnia_rek:=liczba * silnia_rek(liczba-1)
else
silnia_rek:=1;
end;
function silnia_iter(liczba :int64) :int64;
var wynik :int64;
begin
wynik:=1;
while liczba>=1 do
begin
wynik := wynik * liczba;
liczba := liczba - 1;
end;
end;
procedure wyswietl_wynik(silnia1,silnia2 :int64);
begin
write('Silnia rekurencyjnie: ');
writeln(silnia1);
write('Silnia iteracyjnie: ');
writeln(silnia2);
end;
procedure start();
var liczba,silnia1,silnia2 :int64;
begin
liczba:=czytaj_liczbe();
silnia1:=silnia_rek(liczba);
silnia2:=silnia_iter(liczba);
wyswietl_wynik(silnia1,silnia2);
end;
begin
writeln('Program obliczajacy silnie');
start();
readln();
end.
program Zadanie_1;
function czytaj_liczbe() :int64;
var liczba :int64;
begin
write('podaj liczbe:');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function silnia_rek(liczba :int64) :int64;
begin
if liczba > 0 then
silnia_rek:=liczba * silnia_rek(liczba-1)
else
silnia_rek:=1;
end;
function silnia_iter(liczba :int64) :int64;
var wynik :int64;
begin
wynik:=1;
while liczba>=1 do
begin
wynik := wynik * liczba;
liczba := liczba - 1;
end;
end;
procedure wyswietl_wynik(silnia1,silnia2 :int64);
begin
write('Silnia rekurencyjnie: ');
writeln(silnia1);
write('Silnia iteracyjnie: ');
writeln(silnia2);
end;
procedure start();
var liczba,silnia1,silnia2 :int64;
begin
liczba:=czytaj_liczbe();
silnia1:=silnia_rek(liczba);
silnia2:=silnia_iter(liczba);
wyswietl_wynik(silnia1,silnia2);
end;
begin
writeln('Program obliczajacy silnie');
start();
readln();
end.

46
AiSD/Ćwiczenie 3/Zadanie_1.lps
View File

@ -1,23 +1,23 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="16"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="16"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

140
AiSD/Ćwiczenie 3/Zadanie_2.lpi
View File

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_2"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_2"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_2"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_2"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

198
AiSD/Ćwiczenie 3/Zadanie_2.lpr
View File

@ -1,99 +1,99 @@
program Zadanie_2;
Uses SysUtils,DateUtils;
function czytaj_n(nmax :integer) :int64;
var n :int64;
begin
n:=nmax+1;
while (( n > nmax ) or ( n < 0 )) do
begin
write('podaj argument silni:');
readln(n);
end;
czytaj_n:=n;
end;
function czytaj_liczbe :int64;
var liczba :int64;
begin
write('podaj liczbe powtorzen:');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function silnia_rek(n :int64) :int64;
begin
if n > 0 then
silnia_rek:=n * silnia_rek(n-1)
else
silnia_rek:=1;
end;
function silnia_iter(n :int64) :int64;
var wynik :int64;
begin
wynik:=1;
while n>=1 do
begin
wynik := wynik * n;
n := n - 1;
end;
silnia_iter:=wynik
end;
procedure wyswietl_wynik(silnia1,silnia2 :int64);
begin
write('Silnia rekurencyjnie: ');
writeln(silnia1);
write('Silnia iteracyjnie: ');
writeln(silnia2);
end;
procedure wyswietl_czasy(t1,t2 :TDateTime);
begin
write('czas wykonania silni rekurencyjnie: ');
write(FormatDateTime('ss.zzz',t1));
writeln(' sekund');
write('czas wykonania silni iteracyjnie: ');
write(FormatDateTime('ss.zzz',t2));
writeln(' sekund');
end;
procedure start();
var n,liczba,silnia1,silnia2,i,nmax :int64;
var t1,t2 :TDateTime;
begin
nmax:=20;
n:=czytaj_n(20);
liczba:=czytaj_liczbe;
i:=liczba;
t1 := Time;
while i >= 0 do
begin
silnia1:=silnia_rek(n);
i := i-1;
end;
t1 := Time - t1;
i:=liczba;
t2 := Time;
while i >= 0 do
begin
silnia2:=silnia_iter(n);
i := i-1;
end;
t2 := Time - t2;
wyswietl_wynik(silnia1,silnia2);
wyswietl_czasy(t1,t2);
end;
begin
writeln('Program badajacy czas liczenia silni roznymi algorytmami');
start();
readln();
end.
program Zadanie_2;
Uses SysUtils,DateUtils;
function czytaj_n(nmax :integer) :int64;
var n :int64;
begin
n:=nmax+1;
while (( n > nmax ) or ( n < 0 )) do
begin
write('podaj argument silni:');
readln(n);
end;
czytaj_n:=n;
end;
function czytaj_liczbe :int64;
var liczba :int64;
begin
write('podaj liczbe powtorzen:');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function silnia_rek(n :int64) :int64;
begin
if n > 0 then
silnia_rek:=n * silnia_rek(n-1)
else
silnia_rek:=1;
end;
function silnia_iter(n :int64) :int64;
var wynik :int64;
begin
wynik:=1;
while n>=1 do
begin
wynik := wynik * n;
n := n - 1;
end;
silnia_iter:=wynik
end;
procedure wyswietl_wynik(silnia1,silnia2 :int64);
begin
write('Silnia rekurencyjnie: ');
writeln(silnia1);
write('Silnia iteracyjnie: ');
writeln(silnia2);
end;
procedure wyswietl_czasy(t1,t2 :TDateTime);
begin
write('czas wykonania silni rekurencyjnie: ');
write(FormatDateTime('ss.zzz',t1));
writeln(' sekund');
write('czas wykonania silni iteracyjnie: ');
write(FormatDateTime('ss.zzz',t2));
writeln(' sekund');
end;
procedure start();
var n,liczba,silnia1,silnia2,i,nmax :int64;
var t1,t2 :TDateTime;
begin
nmax:=20;
n:=czytaj_n(20);
liczba:=czytaj_liczbe;
i:=liczba;
t1 := Time;
while i >= 0 do
begin
silnia1:=silnia_rek(n);
i := i-1;
end;
t1 := Time - t1;
i:=liczba;
t2 := Time;
while i >= 0 do
begin
silnia2:=silnia_iter(n);
i := i-1;
end;
t2 := Time - t2;
wyswietl_wynik(silnia1,silnia2);
wyswietl_czasy(t1,t2);
end;
begin
writeln('Program badajacy czas liczenia silni roznymi algorytmami');
start();
readln();
end.

48
AiSD/Ćwiczenie 3/Zadanie_2.lps
View File

@ -1,24 +1,24 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="53"/>
<CursorPos X="15" Y="12"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="52"/>
<CursorPos X="15" Y="12"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

90
AiSD/Ćwiczenie 3/Zadanie_3.py
View File

@ -1,46 +1,46 @@
from datetime import datetime
def czytaj_n(nmax):
n = nmax+1 # pierwszy warunek poza zakresem wymusza odpalenie pętli, symulacja do...while
while (( n > nmax ) or ( n < 0 )):
n = int(input('Podaj argument silni: '))
return n
def czytaj_liczbe():
liczba = int(input('Podaj liczbe powtorzen: '))
return liczba
def silnia_rek(n):
if n > 0:
return n * silnia_rek(n-1)
else:
return 1
def silnia_iter(n):
wynik = 1
while n >=1 :
wynik = wynik * n
n = n - 1
return wynik
def wyswietlwynik(metoda,czas,wynik):
print(f'Obliczenia metoda {metoda} : wynik = {wynik} , czas = {czas}')
def zadanie3():
n = czytaj_n(18)
imax = czytaj_liczbe()
t1 = datetime.now()
for i in range (1 , imax):
wynik1 = silnia_rek(n)
t1 = datetime.now() - t1
wyswietlwynik('rekurencyjna',t1,wynik1)
t2 = datetime.now()
for i in range (1 , imax):
wynik2 = silnia_rek(n)
t2 = datetime.now() - t2
wyswietlwynik('iteracyjna ',t2,wynik2)
from datetime import datetime
def czytaj_n(nmax):
n = nmax+1 # pierwszy warunek poza zakresem wymusza odpalenie pętli, symulacja do...while
while (( n > nmax ) or ( n < 0 )):
n = int(input('Podaj argument silni: '))
return n
def czytaj_liczbe():
liczba = int(input('Podaj liczbe powtorzen: '))
return liczba
def silnia_rek(n):
if n > 0:
return n * silnia_rek(n-1)
else:
return 1
def silnia_iter(n):
wynik = 1
while n >=1 :
wynik = wynik * n
n = n - 1
return wynik
def wyswietlwynik(metoda,czas,wynik):
print(f'Obliczenia metoda {metoda} : wynik = {wynik} , czas = {czas}')
def zadanie3():
n = czytaj_n(18)
imax = czytaj_liczbe()
t1 = datetime.now()
for i in range (1 , imax):
wynik1 = silnia_rek(n)
t1 = datetime.now() - t1
wyswietlwynik('rekurencyjna',t1,wynik1)
t2 = datetime.now()
for i in range (1 , imax):
wynik2 = silnia_rek(n)
t2 = datetime.now() - t2
wyswietlwynik('iteracyjna ',t2,wynik2)
zadanie3()

126
AiSD/Ćwiczenie 3/Zadanie_4.lpi
View File

@ -1,63 +1,63 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_4"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_4"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_4"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_4"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

120
AiSD/Ćwiczenie 3/Zadanie_4.lpr
View File

@ -1,60 +1,60 @@
program Zadanie_4;
function czytaj_liczbe() :integer;
var liczba: integer;
begin
writeln('Wpisz liczbe');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function sumuj_cyfry(liczba :integer) :integer;
var suma :integer;
begin
suma := 0;
while liczba <> 0 do
begin
suma:= suma + (liczba mod 10);
liczba:=liczba div 10
end;
sumuj_cyfry:=suma;
end;
function sumuj_cyfry_r(liczba :integer) :integer;
var suma: integer;
begin
if liczba <> 0 then
begin
suma:= liczba mod 10 + sumuj_cyfry_r(liczba div 10)
end
else
suma:=0;
sumuj_cyfry_r:=suma;
end;
procedure wypisz_sume(liczba,suma :integer);
begin
write('suma cyfr liczby ');
write(liczba);
write(' wynosi ');
writeln(suma);
end;
procedure zadanie4();
var liczba,suma :integer;
begin
writeln('Obliczanie sumy cyfr liczby rzeczywistej');
liczba:=czytaj_liczbe();
suma:=sumuj_cyfry(liczba);
writeln('metoda iteracyjna:');
wypisz_sume(liczba,suma);
suma:=sumuj_cyfry_r(liczba);
writeln('metoda rekurencyjna:');
wypisz_sume(liczba,suma);
end;
begin
zadanie4();
readln();
end.
program Zadanie_4;
function czytaj_liczbe() :integer;
var liczba: integer;
begin
writeln('Wpisz liczbe');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function sumuj_cyfry(liczba :integer) :integer;
var suma :integer;
begin
suma := 0;
while liczba <> 0 do
begin
suma:= suma + (liczba mod 10);
liczba:=liczba div 10
end;
sumuj_cyfry:=suma;
end;
function sumuj_cyfry_r(liczba :integer) :integer;
var suma: integer;
begin
if liczba <> 0 then
begin
suma:= liczba mod 10 + sumuj_cyfry_r(liczba div 10)
end
else
suma:=0;
sumuj_cyfry_r:=suma;
end;
procedure wypisz_sume(liczba,suma :integer);
begin
write('suma cyfr liczby ');
write(liczba);
write(' wynosi ');
writeln(suma);
end;
procedure zadanie4();
var liczba,suma :integer;
begin
writeln('Obliczanie sumy cyfr liczby rzeczywistej');
liczba:=czytaj_liczbe();
suma:=sumuj_cyfry(liczba);
writeln('metoda iteracyjna:');
wypisz_sume(liczba,suma);
suma:=sumuj_cyfry_r(liczba);
writeln('metoda rekurencyjna:');
wypisz_sume(liczba,suma);
end;
begin
zadanie4();
readln();
end.

48
AiSD/Ćwiczenie 3/Zadanie_4.lps
View File

@ -1,24 +1,24 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="15"/>
<CursorPos X="8" Y="52"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="15"/>
<CursorPos X="8" Y="52"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

126
AiSD/Ćwiczenie 3/Zadanie_5.lpi
View File

@ -1,63 +1,63 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_5"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_5.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_5"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_5"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_5.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_5"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

164
AiSD/Ćwiczenie 3/Zadanie_5.lpr
View File

@ -1,82 +1,82 @@
program Zadanie_5;
var
p: real; { podstawa }
w: integer; { wykladnik }
function PotegaIteracyjna(p: real; w: integer): real;
var
wynik: real;
i: integer;
begin
wynik := 1.0;
for i := 1 to w do
begin
wynik := wynik * p;
writeln('Krok iteracyjny ', i, ', podstawa: ', p, ', wynik: ', wynik);
end;
PotegaIteracyjna := wynik;
end;
function PotegaRekurencyjna(p: real; w: integer): real;
begin
if w = 0 then
PotegaRekurencyjna := 1.0
else
begin
PotegaRekurencyjna := p * PotegaRekurencyjna(p, w - 1);
writeln('Krok rekurencyjny ', w, ', podstawa: ', p, ', wynik: ', PotegaRekurencyjna);
end;
end;
function PotegaKwadratuIteracyjna(p: real; w: integer): real;
var
wynik: real;
i: integer;
begin
wynik := 1.0;
i:=0;
while w > 0 do
begin
i:=i+1;
if (w mod 2 = 1) then
wynik := wynik * p;
p := p * p;
w := w div 2;
writeln('Krok iteracyjny ',i,' kwadratu, podstawa: ', p, ', wynik: ', wynik);
end;
PotegaKwadratuIteracyjna := wynik;
end;
function PotegaKwadratuRekurencyjna(p: real; w: integer; i: integer): real;
begin
i:=i+1;
if w = 0 then
PotegaKwadratuRekurencyjna := 1.0
else if w mod 2 = 0 then
begin
PotegaKwadratuRekurencyjna := PotegaKwadratuRekurencyjna(p * p, w div 2,i);
writeln('Krok rekurencyjny ',i,' kwadratu (parzysty), podstawa: ', p, ', wynik: ', PotegaKwadratuRekurencyjna);
end
else
begin
PotegaKwadratuRekurencyjna := p * PotegaKwadratuRekurencyjna(p * p, w div 2,i);
writeln('Krok rekurencyjny ',i,' kwadratu (nieparzysty), podstawa: ', p, ', wynik: ', PotegaKwadratuRekurencyjna);
end;
end;
begin
write('Podaj podstawe: ');
readln(p);
write('Podaj wykladnik: ');
readln(w);
writeln('Potega iteracyjna:');
PotegaIteracyjna(p, w);
writeln('Potega rekurencyjna:');
PotegaRekurencyjna(p, w);
writeln('Potega kwadratu iteracyjna:');
PotegaKwadratuIteracyjna(p, w);
writeln('Potega kwadratu rekurencyjna:');
PotegaKwadratuRekurencyjna(p, w, 0);
readln();
end.
program Zadanie_5;
var
p: real; { podstawa }
w: integer; { wykladnik }
function PotegaIteracyjna(p: real; w: integer): real;
var
wynik: real;
i: integer;
begin
wynik := 1.0;
for i := 1 to w do
begin
wynik := wynik * p;
writeln('Krok iteracyjny ', i, ', podstawa: ', p, ', wynik: ', wynik);
end;
PotegaIteracyjna := wynik;
end;
function PotegaRekurencyjna(p: real; w: integer): real;
begin
if w = 0 then
PotegaRekurencyjna := 1.0
else
begin
PotegaRekurencyjna := p * PotegaRekurencyjna(p, w - 1);
writeln('Krok rekurencyjny ', w, ', podstawa: ', p, ', wynik: ', PotegaRekurencyjna);
end;
end;
function PotegaKwadratuIteracyjna(p: real; w: integer): real;
var
wynik: real;
i: integer;
begin
wynik := 1.0;
i:=0;
while w > 0 do
begin
i:=i+1;
if (w mod 2 = 1) then
wynik := wynik * p;
p := p * p;
w := w div 2;
writeln('Krok iteracyjny ',i,' kwadratu, podstawa: ', p, ', wynik: ', wynik);
end;
PotegaKwadratuIteracyjna := wynik;
end;
function PotegaKwadratuRekurencyjna(p: real; w: integer; i: integer): real;
begin
i:=i+1;
if w = 0 then
PotegaKwadratuRekurencyjna := 1.0
else if w mod 2 = 0 then
begin
PotegaKwadratuRekurencyjna := PotegaKwadratuRekurencyjna(p * p, w div 2,i);
writeln('Krok rekurencyjny ',i,' kwadratu (parzysty), podstawa: ', p, ', wynik: ', PotegaKwadratuRekurencyjna);
end
else
begin
PotegaKwadratuRekurencyjna := p * PotegaKwadratuRekurencyjna(p * p, w div 2,i);
writeln('Krok rekurencyjny ',i,' kwadratu (nieparzysty), podstawa: ', p, ', wynik: ', PotegaKwadratuRekurencyjna);
end;
end;
begin
write('Podaj podstawe: ');
readln(p);
write('Podaj wykladnik: ');
readln(w);
writeln('Potega iteracyjna:');
PotegaIteracyjna(p, w);
writeln('Potega rekurencyjna:');
PotegaRekurencyjna(p, w);
writeln('Potega kwadratu iteracyjna:');
PotegaKwadratuIteracyjna(p, w);
writeln('Potega kwadratu rekurencyjna:');
PotegaKwadratuRekurencyjna(p, w, 0);
readln();
end.

46
AiSD/Ćwiczenie 3/Zadanie_5.lps
View File

@ -1,23 +1,23 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_5.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="6" Y="10"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_5.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="6" Y="10"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

114
AiSD/Ćwiczenie 3/Zadanie_5.py
View File

@ -1,58 +1,58 @@
def potega_iteracyjna(p, w):
wynik = 1
for i in range(1, w + 1):
wynik *= p
print(f'Krok iteracyjny {i}, podstawa: {p}, wynik: {wynik}')
return wynik
def potega_rekurencyjna(p, w):
if w == 0:
return 1
else:
wynik = p * potega_rekurencyjna(p, w - 1)
print(f'Krok rekurencyjny {w}, podstawa: {p}, wynik: {wynik}')
return wynik
def potega_kwadratu_iteracyjna(p, w):
wynik = 1
i = 0
while w > 0:
i += 1
if w % 2 == 1:
wynik *= p
p *= p
w //= 2
print(f'Krok iteracyjny {i} kwadratu, podstawa: {p}, wynik: {wynik}')
return wynik
def potega_kwadratu_rekurencyjna(p, w, i=0):
i += 1
wynik = 0
if w == 0:
return 1
elif w % 2 == 0:
wynik = potega_kwadratu_rekurencyjna(p * p, w // 2, i)
print(f'Krok rekurencyjny {i} kwadratu (parzysty), podstawa: {p}, wynik: {wynik}')
return wynik
else:
wynik = p * potega_kwadratu_rekurencyjna(p * p, w // 2, i)
print(f'Krok rekurencyjny {i} kwadratu (nieparzysty), podstawa: {p}, wynik: {wynik}')
return wynik
def pobierz_dane():
p = float(input('Podaj podstawe: '))
w = int(input('Podaj wykladnik: '))
return p, w
def zadanie5():
p,w = pobierz_dane()
print('Potega iteracyjna:')
print(f'wynik = {potega_iteracyjna(p, w)}\n\n')
print('Potega rekurencyjna:')
print(f'wynik = {potega_rekurencyjna(p, w)}\n\n')
print('Potega kwadratu iteracyjna:')
print(f'wynik = {potega_kwadratu_iteracyjna(p, w)}\n\n')
print('Potega kwadratu rekurencyjna:')
print(f'wynik = {potega_kwadratu_rekurencyjna(p, w)}\n\n')
def potega_iteracyjna(p, w):
wynik = 1
for i in range(1, w + 1):
wynik *= p
print(f'Krok iteracyjny {i}, podstawa: {p}, wynik: {wynik}')
return wynik
def potega_rekurencyjna(p, w):
if w == 0:
return 1
else:
wynik = p * potega_rekurencyjna(p, w - 1)
print(f'Krok rekurencyjny {w}, podstawa: {p}, wynik: {wynik}')
return wynik
def potega_kwadratu_iteracyjna(p, w):
wynik = 1
i = 0
while w > 0:
i += 1
if w % 2 == 1:
wynik *= p
p *= p
w //= 2
print(f'Krok iteracyjny {i} kwadratu, podstawa: {p}, wynik: {wynik}')
return wynik
def potega_kwadratu_rekurencyjna(p, w, i=0):
i += 1
wynik = 0
if w == 0:
return 1
elif w % 2 == 0:
wynik = potega_kwadratu_rekurencyjna(p * p, w // 2, i)
print(f'Krok rekurencyjny {i} kwadratu (parzysty), podstawa: {p}, wynik: {wynik}')
return wynik
else:
wynik = p * potega_kwadratu_rekurencyjna(p * p, w // 2, i)
print(f'Krok rekurencyjny {i} kwadratu (nieparzysty), podstawa: {p}, wynik: {wynik}')
return wynik
def pobierz_dane():
p = float(input('Podaj podstawe: '))
w = int(input('Podaj wykladnik: '))
return p, w
def zadanie5():
p,w = pobierz_dane()
print('Potega iteracyjna:')
print(f'wynik = {potega_iteracyjna(p, w)}\n\n')
print('Potega rekurencyjna:')
print(f'wynik = {potega_rekurencyjna(p, w)}\n\n')
print('Potega kwadratu iteracyjna:')
print(f'wynik = {potega_kwadratu_iteracyjna(p, w)}\n\n')
print('Potega kwadratu rekurencyjna:')
print(f'wynik = {potega_kwadratu_rekurencyjna(p, w)}\n\n')
zadanie5()

BIN
AiSD/Ćwiczenie 4/Zadanie_1.docx
View File

Binary file not shown.

140
AiSD/Ćwiczenie 4/Zadanie_1.lpi
View File

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

82
AiSD/Ćwiczenie 4/Zadanie_1.lpr
View File

@ -1,41 +1,41 @@
program Zadanie_1;
function czytaj_liczbe() :int64;
var liczba :int64;
begin
write('podaj liczbe:');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function silnia_rek(liczba :int64) :int64;
begin
if liczba > 0 then
silnia_rek:=liczba * silnia_rek(liczba-1)
else
silnia_rek:=1;
end;
procedure wyswietl_wynik(silnia1 :int64);
begin
write('Silnia rekurencyjnie: ');
writeln(silnia1);
end;
procedure start();
var liczba,silnia1 :int64;
begin
while liczba > 0 do
begin
liczba:=czytaj_liczbe();
silnia1:=silnia_rek(liczba);
wyswietl_wynik(silnia1);
end;
end;
begin
writeln('Program obliczajacy silnie');
start();
readln();
end.
program Zadanie_1;
function czytaj_liczbe() :int64;
var liczba :int64;
begin
write('podaj liczbe:');
readln(liczba);
czytaj_liczbe:=liczba;
end;
function silnia_rek(liczba :int64) :int64;
begin
if liczba > 0 then
silnia_rek:=liczba * silnia_rek(liczba-1)
else
silnia_rek:=1;
end;
procedure wyswietl_wynik(silnia1 :int64);
begin
write('Silnia rekurencyjnie: ');
writeln(silnia1);
end;
procedure start();
var liczba,silnia1 :int64;
begin
while liczba > 0 do
begin
liczba:=czytaj_liczbe();
silnia1:=silnia_rek(liczba);
wyswietl_wynik(silnia1);
end;
end;
begin
writeln('Program obliczajacy silnie');
start();
readln();
end.

73
AiSD/Ćwiczenie 4/Zadanie_1.lps
View File

@ -1,37 +1,36 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="6"/>
<CursorPos X="11" Y="25"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="2">
<Position>
<Filename Value="Zadanie_1.lpr"/>
<Caret Line="2" Column="7"/>
</Position>
<Position>
<Filename Value="Zadanie_1.lpr"/>
<Caret Line="3" Column="10"/>
</Position>
<Position>
<Filename Value="Zadanie_1.lpr"/>
<Caret Line="11" Column="10"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_1.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="11" Y="25"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="2">
<Position>
<Filename Value="Zadanie_1.lpr"/>
<Caret Line="2" Column="7"/>
</Position>
<Position>
<Filename Value="Zadanie_1.lpr"/>
<Caret Line="3" Column="10"/>
</Position>
<Position>
<Filename Value="Zadanie_1.lpr"/>
<Caret Line="11" Column="10"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

74
AiSD/Ćwiczenie 4/Zadanie_1.py
View File

@ -1,38 +1,38 @@
from datetime import datetime
import sys
def czytaj_n(nmax):
n = nmax+1 # pierwszy warunek poza zakresem wymusza odpalenie petli, symulacja do...while
while (( n > nmax ) or ( n < 0 )):
n = int(input('Podaj argument silni: '))
return n
def silnia_rek(n):
if n > 0:
return n * silnia_rek(n-1)
else:
return 1
def wyswietlwynik(n,S):
print('Obliczenia: ',n,'! = ',S)
print('type(n):',type(n),'sizeof(n):',sys.getsizeof(n),'type(S):',type(S),'sizeof(S):',sys.getsizeof(S))
def zadanie1():
n = 2
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
n = 20
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
n = 50
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
n = 100
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
from datetime import datetime
import sys
def czytaj_n(nmax):
n = nmax+1 # pierwszy warunek poza zakresem wymusza odpalenie petli, symulacja do...while
while (( n > nmax ) or ( n < 0 )):
n = int(input('Podaj argument silni: '))
return n
def silnia_rek(n):
if n > 0:
return n * silnia_rek(n-1)
else:
return 1
def wyswietlwynik(n,S):
print('Obliczenia: ',n,'! = ',S)
print('type(n):',type(n),'sizeof(n):',sys.getsizeof(n),'type(S):',type(S),'sizeof(S):',sys.getsizeof(S))
def zadanie1():
n = 2
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
n = 20
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
n = 50
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
n = 100
wynik1 = silnia_rek(n)
wyswietlwynik(n,wynik1)
zadanie1()

140
AiSD/Ćwiczenie 4/Zadanie_2.lpi
View File

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_2"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_2"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_2"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_2"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

100
AiSD/Ćwiczenie 4/Zadanie_2.lpr
View File

@ -1,50 +1,50 @@
program Zadanie_2;
const n = 1000000; // liczba sumowań
const s: single = 1.23456789; // liczba sumowana single
const rs: real = 1.23456789; // liczba sumowana real
function suma_single(n: integer; s: single) :single;
var Suma : single;
var i: integer;
begin
Suma:=0.0;
for i:=1 to n do
Suma:=Suma+s;
suma_single:=Suma;
end;
function suma_real(n: integer; s: real) :real;
var Suma : real;
var i: integer;
begin
Suma:=0.0;
for i:=1 to n do
Suma:=Suma+s;
suma_real:=Suma;
end;
procedure zadanie2;
var ss,il,ru: single;
var rss,ril,rru: real;
begin
writeln('single s:=',s:2:10);
writeln('real rs:=',rs:2:10);
ss := suma_single(n,s);
il := n*s;
ru := ss-il;
writeln('TYP SINGLE: Suma:=',ss:10:4,' Iloczyn:=',il:10:4,' roznica:=',ru:10:4,' dlugosc zmiennych:=',sizeof(ss));
rss := suma_real(n,rs);
ril := n*rs;
rru := rss-ril;
writeln('TYP REAL : Suma:=',rss:10:4,' Iloczyn:=',ril:10:4,' roznica:=',rru:10:4,' dlugosc zmiennych:=',sizeof(rss));
end;
begin
zadanie2;
readln;
end.
program Zadanie_2;
const n = 1000000; // liczba sumowań
const s: single = 1.23456789; // liczba sumowana single
const rs: real = 1.23456789; // liczba sumowana real
function suma_single(n: integer; s: single) :single;
var Suma : single;
var i: integer;
begin
Suma:=0.0;
for i:=1 to n do
Suma:=Suma+s;
suma_single:=Suma;
end;
function suma_real(n: integer; s: real) :real;
var Suma : real;
var i: integer;
begin
Suma:=0.0;
for i:=1 to n do
Suma:=Suma+s;
suma_real:=Suma;
end;
procedure zadanie2;
var ss,il,ru: single;
var rss,ril,rru: real;
begin
writeln('single s:=',s:2:10);
writeln('real rs:=',rs:2:10);
ss := suma_single(n,s);
il := n*s;
ru := ss-il;
writeln('TYP SINGLE: Suma:=',ss:10:4,' Iloczyn:=',il:10:4,' roznica:=',ru:10:4,' dlugosc zmiennych:=',sizeof(ss));
rss := suma_real(n,rs);
ril := n*rs;
rru := rss-ril;
writeln('TYP REAL : Suma:=',rss:10:4,' Iloczyn:=',ril:10:4,' roznica:=',rru:10:4,' dlugosc zmiennych:=',sizeof(rss));
end;
begin
zadanie2;
readln;
end.

130
AiSD/Ćwiczenie 4/Zadanie_2.lps
View File

@ -1,65 +1,65 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="22"/>
<CursorPos X="45" Y="42"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="9">
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="7" Column="4"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="6" Column="37"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="7" Column="19"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="6" Column="53"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="8" Column="20"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="14"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="22"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="16"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="38" Column="83" TopLine="15"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="4" Column="16"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_2.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="22"/>
<CursorPos X="45" Y="42"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="9">
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="7" Column="4"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="6" Column="37"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="7" Column="19"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="6" Column="53"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="8" Column="20"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="14"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="22"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="16"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="38" Column="83" TopLine="15"/>
</Position>
<Position>
<Filename Value="Zadanie_2.lpr"/>
<Caret Line="4" Column="16"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

36
AiSD/Ćwiczenie 4/Zadanie_2.py
View File

@ -1,19 +1,19 @@
import sys
def suma_iter(n,s):
suma=0.0
for x in range(n):
suma=suma+s
return suma
def zadanie2():
n = 1000000
s = 1.23456789
suma = suma_iter(n,s)
iloczyn = n*s
roznica = iloczyn - suma
print(f'n=',n,' s=',s,' suma=',suma,' iloczyn=',iloczyn,' roznica=',roznica,' sizeof()=',sys.getsizeof(suma))
import sys
def suma_iter(n,s):
suma=0.0
for x in range(n):
suma=suma+s
return suma
def zadanie2():
n = 1000000
s = 1.23456789
suma = suma_iter(n,s)
iloczyn = n*s
roznica = iloczyn - suma
print(f'n=',n,' s=',s,' suma=',suma,' iloczyn=',iloczyn,' roznica=',roznica,' sizeof()=',sys.getsizeof(suma))
zadanie2()

140
AiSD/Ćwiczenie 4/Zadanie_3.lpi
View File

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_3"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_3"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_3"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_3"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

114
AiSD/Ćwiczenie 4/Zadanie_3.lpr
View File

@ -1,57 +1,57 @@
program Zadanie_3;
const n = 1000000; // liczba sumowan
const s: single = 1.23456789; // liczba sumowana single
function suma_parami(n :integer;s :single) :single;
var suma,suma0,suma1 :single;
var i: integer;
begin
suma:=0; suma0:=0; suma1:=0;
for i:=1 to n do
begin
if i mod 2 = 0 then
suma0:=suma0+s
else
suma1:=suma1+s
end;
suma:=suma0+suma1;
suma_parami:=suma;
end;
function suma_poprawki(n :integer;s :single) :single;
var suma,sumai,poprawka :single;
var i: integer;
begin
//sumowanie z poprawkami
suma:=0.0; poprawka:=0.0;
for i:=1 to n do
begin
sumai:=suma+s;
Poprawka:=Suma-Sumai+s+poprawka;
suma:=sumai
end;
suma_poprawki:=suma+poprawka;
end;
procedure zadanie3();
var suma,iloczyn,roznica :single;
begin
iloczyn:=n*s;
suma:=suma_parami(n,s);
roznica:=suma-iloczyn;
writeln('SUMA PARAMI: suma:=',suma:10:4,' iloczyn:=',iloczyn:10:4,' roznica:=',roznica:10:4);
suma:=suma_poprawki(n,s);
roznica:=suma-iloczyn;
writeln('SUMA POPRAW: suma:=',suma:10:4,' iloczyn:=',iloczyn:10:4,' roznica:=',roznica:10:4);
end;
begin
zadanie3();
readln();
end.
program Zadanie_3;
const n = 1000000; // liczba sumowan
const s: single = 1.23456789; // liczba sumowana single
function suma_parami(n :integer;s :single) :single;
var suma,suma0,suma1 :single;
var i: integer;
begin
suma:=0; suma0:=0; suma1:=0;
for i:=1 to n do
begin
if i mod 2 = 0 then
suma0:=suma0+s
else
suma1:=suma1+s
end;
suma:=suma0+suma1;
suma_parami:=suma;
end;
function suma_poprawki(n :integer;s :single) :single;
var suma,sumai,poprawka :single;
var i: integer;
begin
//sumowanie z poprawkami
suma:=0.0; poprawka:=0.0;
for i:=1 to n do
begin
sumai:=suma+s;
Poprawka:=Suma-Sumai+s+poprawka;
suma:=sumai
end;
suma_poprawki:=suma+poprawka;
end;
procedure zadanie3();
var suma,iloczyn,roznica :single;
begin
iloczyn:=n*s;
suma:=suma_parami(n,s);
roznica:=suma-iloczyn;
writeln('SUMA PARAMI: suma:=',suma:10:4,' iloczyn:=',iloczyn:10:4,' roznica:=',roznica:10:4);
suma:=suma_poprawki(n,s);
roznica:=suma-iloczyn;
writeln('SUMA POPRAW: suma:=',suma:10:4,' iloczyn:=',iloczyn:10:4,' roznica:=',roznica:10:4);
end;
begin
zadanie3();
readln();
end.

226
AiSD/Ćwiczenie 4/Zadanie_3.lps
View File

@ -1,113 +1,113 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="25"/>
<CursorPos X="16" Y="35"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="21">
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="30" Column="5"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="21" Column="22"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="24" Column="26"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="36"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="10" Column="6"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="7" Column="35"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="8" Column="20"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="12" Column="26"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="10" Column="27"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="16" Column="12"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="17" Column="23"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="12" Column="15"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="34"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="19" Column="10"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="20" Column="23" TopLine="5"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="9"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="23" Column="22"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="52"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="23" Column="22" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="24" Column="29" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="26" Column="13" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="50" Column="25" TopLine="22"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_3.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="25"/>
<CursorPos X="16" Y="35"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="21">
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="30" Column="5"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="21" Column="22"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="24" Column="26"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="36"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="10" Column="6"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="7" Column="35"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="8" Column="20"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="12" Column="26"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="10" Column="27"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="16" Column="12"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="17" Column="23"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="12" Column="15"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="34"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="19" Column="10"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="20" Column="23" TopLine="5"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="9"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="23" Column="22"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="6" Column="52"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="23" Column="22" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="24" Column="29" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="26" Column="13" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_3.lpr"/>
<Caret Line="50" Column="25" TopLine="22"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

140
AiSD/Ćwiczenie 4/Zadanie_4.lpi
View File

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_4"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_4"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="Zadanie_4"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="Zadanie_4"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

154
AiSD/Ćwiczenie 4/Zadanie_4.lpr
View File

@ -1,77 +1,77 @@
program Zadanie_4;
type
plecT = (K,M);
type
dzienT = record
zachorowania :integer;
zgony :integer;
end;
type
daneT = array [1..31,plecT] of dzienT;
procedure wyswietl_dane(dane :daneT);
var imax,i,n :integer;
var sumaK,sumaM,z,zmax,zdzien: integer;
begin
sumaK:=0; sumaM:=0; zmax:=0;
writeln('Nr_dnia liczba_zachor_kobiet liczba_zachor_mezczyzn liczba_zgon_kob. liczba_zgon_mez.');
i:=0; // ile wyswietlonych
imax:=31; // ostatni index
while i < imax do
begin
if (imax-i)>10 then //pozostalo wiecej niz 10 elementow
n:=10 //wyswietlamy 10
else
n:=imax-i; //jesli mniej to tyle wyswietlamy
for i:=i+1 to i+n do
begin
writeln(i:7,dane[i][K].zachorowania:21,dane[i][M].zachorowania:23,dane[i][K].zgony:17,dane[i][M].zgony:17);
sumaK:=sumaK+dane[i][K].zachorowania;
sumaM:=sumaK+dane[i][M].zachorowania;
z:=dane[i][K].zgony+dane[i][M].zgony;
if z > zmax then
begin
zmax:=z;
zdzien:=i;
end;
end;
if i <> imax then //jeszcze nie skonczylismy
readln();
end;
writeln('Suma zachorowan: kobiety: ',sumaK,' mezczyzni: ',sumaM,' ogolem: ',sumaK+sumaM);
writeln('Srednia liczba zachorowan dziennie: ',((sumaK+sumaM)/imax):10:2);
writeln('Dzien maksymalnej liczby zgonow: ',zdzien,' liczba: ',zmax);
end;
function generuj_dane() :daneT;
var dane :daneT;
var plec :plecT;
var i :integer;
begin
for i:=1 to 31 do
for plec:=low(plecT) to high(plecT) do
begin
dane[i][plec].zachorowania:=1000+Random(9000);
dane[i][plec].zgony:=20+Random(180);
end;
generuj_dane:=dane;
end;
procedure zadanie4();
var dane :daneT;
begin
dane:=generuj_dane();
wyswietl_dane(dane);
end;
begin
Randomize;
zadanie4();
readln();
end.
program Zadanie_4;
type
plecT = (K,M);
type
dzienT = record
zachorowania :integer;
zgony :integer;
end;
type
daneT = array [1..31,plecT] of dzienT;
procedure wyswietl_dane(dane :daneT);
var imax,i,n :integer;
var sumaK,sumaM,z,zmax,zdzien: integer;
begin
sumaK:=0; sumaM:=0; zmax:=0;
writeln('Nr_dnia liczba_zachor_kobiet liczba_zachor_mezczyzn liczba_zgon_kob. liczba_zgon_mez.');
i:=0; // ile wyswietlonych
imax:=31; // ostatni index
while i < imax do
begin
if (imax-i)>10 then //pozostalo wiecej niz 10 elementow
n:=10 //wyswietlamy 10
else
n:=imax-i; //jesli mniej to tyle wyswietlamy
for i:=i+1 to i+n do
begin
writeln(i:7,dane[i][K].zachorowania:21,dane[i][M].zachorowania:23,dane[i][K].zgony:17,dane[i][M].zgony:17);
sumaK:=sumaK+dane[i][K].zachorowania;
sumaM:=sumaK+dane[i][M].zachorowania;
z:=dane[i][K].zgony+dane[i][M].zgony;
if z > zmax then
begin
zmax:=z;
zdzien:=i;
end;
end;
if i <> imax then //jeszcze nie skonczylismy
readln();
end;
writeln('Suma zachorowan: kobiety: ',sumaK,' mezczyzni: ',sumaM,' ogolem: ',sumaK+sumaM);
writeln('Srednia liczba zachorowan dziennie: ',((sumaK+sumaM)/imax):10:2);
writeln('Dzien maksymalnej liczby zgonow: ',zdzien,' liczba: ',zmax);
end;
function generuj_dane() :daneT;
var dane :daneT;
var plec :plecT;
var i :integer;
begin
for i:=1 to 31 do
for plec:=low(plecT) to high(plecT) do
begin
dane[i][plec].zachorowania:=1000+Random(9000);
dane[i][plec].zgony:=20+Random(180);
end;
generuj_dane:=dane;
end;
procedure zadanie4();
var dane :daneT;
begin
dane:=generuj_dane();
wyswietl_dane(dane);
end;
begin
Randomize;
zadanie4();
readln();
end.

296
AiSD/Ćwiczenie 4/Zadanie_4.lps
View File

@ -1,145 +1,151 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="22"/>
<CursorPos X="75" Y="47"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="29">
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="14" Column="27"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="20" Column="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="10" Column="27"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="19" Column="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="25" Column="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="21" Column="26" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="24" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="30" Column="44" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="24" Column="19" TopLine="9"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="26" Column="15" TopLine="12"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="47" Column="25" TopLine="20"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="18" Column="5" TopLine="3"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="17" TopLine="3"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="23" Column="37" TopLine="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="38" Column="17" TopLine="20"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="37" Column="50" TopLine="20"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="46" Column="14" TopLine="23"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="20" TopLine="7"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="30" Column="9" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="18" Column="15" TopLine="11"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="29" Column="16" TopLine="14"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="33" Column="107" TopLine="15"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="18" Column="20" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="35" Column="14" TopLine="12"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="33" Column="24" TopLine="13"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="45" Column="6" TopLine="31"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="31" Column="21" TopLine="13"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="22" Column="21" TopLine="11"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="19" Column="42" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="50" Column="114" TopLine="30"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Zadanie_4.lpr"/>
<IsPartOfProject Value="True"/>
<TopLine Value="19"/>
<CursorPos X="75" Y="47"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="..\Ćwiczenie 3\Zadanie_2.lpr"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="29">
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="14" Column="27"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="20" Column="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="10" Column="27"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="19" Column="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="25" Column="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="21" Column="26" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="24" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="30" Column="44" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="24" Column="19" TopLine="9"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="26" Column="15" TopLine="12"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="47" Column="25" TopLine="20"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="18" Column="5" TopLine="3"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="17" TopLine="3"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="23" Column="37" TopLine="21"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="38" Column="17" TopLine="20"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="37" Column="50" TopLine="20"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="46" Column="14" TopLine="23"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="20" TopLine="7"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="30" Column="9" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="18" Column="15" TopLine="11"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="29" Column="16" TopLine="14"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="33" Column="107" TopLine="15"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="18" Column="20" TopLine="8"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="35" Column="14" TopLine="12"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="33" Column="24" TopLine="13"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="45" Column="6" TopLine="31"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="31" Column="21" TopLine="13"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="22" Column="21" TopLine="11"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="19" Column="42" TopLine="4"/>
</Position>
<Position>
<Filename Value="Zadanie_4.lpr"/>
<Caret Line="50" Column="114" TopLine="30"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

78
AiSD/Ćwiczenie 5/Zadanie_1.py
View File

@ -1,40 +1,40 @@
from datetime import datetime
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def licz_mzero_bisekcja(a,b,d):
i=1
while True:
x = (a+b)/2
y = abs(f(x))
print(f"iteracja :{i} x={x} f(x)={y} a={a} b={b}")
if y<=d:
break
else:
if f(a) * f(x) < 0 :
b = x
else:
a = x
i = i+1
return x
def Zadanie1():
v = False
while v == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit glebokosci rekurencji imax="))
if f(a) * f(b) >= 0:
v = False
print("brak miejsc zerowych w podanej granicy")
else:
x = licz_mzero_bisekcja(a,b,d)
print("X=",x," z dokladnoscia ",d)
from datetime import datetime
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def licz_mzero_bisekcja(a,b,d):
i=1
while True:
x = (a+b)/2
y = abs(f(x))
print(f"iteracja :{i} x={x} f(x)={y} a={a} b={b}")
if y<=d:
break
else:
if f(a) * f(x) < 0 :
b = x
else:
a = x
i = i+1
return x
def Zadanie1():
v = False
while v == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit glebokosci rekurencji imax="))
if f(a) * f(b) >= 0:
v = False
print("brak miejsc zerowych w podanej granicy")
else:
x = licz_mzero_bisekcja(a,b,d)
print("X=",x," z dokladnoscia ",d)
Zadanie1()

94
AiSD/Ćwiczenie 5/Zadanie_2.py
View File

@ -1,48 +1,48 @@
from datetime import datetime
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def df(x):
x2=3;x1=-2;x0=-1
y = x*x*x2 + x*x1 + x0
return y
def licz_mzero_newton(a,b,d,imax):
i=1
x=a
while True:
x = x - (f(x)/df(x))
y = abs(f(x))
print(f"iteracja :{i} x={x} f(x)={y}")
if y <= d:
break
else:
i=i+1
if i >= imax :
return False
print("X=",x," z dokladnoscia ",d)
return x
def Zadanie2():
v = False
while v == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit iteracji imax="))
if f(a) * f(b) >= 0:
v = False
print("brak miejsc zerowych w podanej granicy")
else:
x = licz_mzero_newton(a,b,d,imax)
print("X=",x," z dokladnoscia ",d)
from datetime import datetime
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def df(x):
x2=3;x1=-2;x0=-1
y = x*x*x2 + x*x1 + x0
return y
def licz_mzero_newton(a,b,d,imax):
i=1
x=a
while True:
x = x - (f(x)/df(x))
y = abs(f(x))
print(f"iteracja :{i} x={x} f(x)={y}")
if y <= d:
break
else:
i=i+1
if i >= imax :
return False
print("X=",x," z dokladnoscia ",d)
return x
def Zadanie2():
v = False
while v == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit iteracji imax="))
if f(a) * f(b) >= 0:
v = False
print("brak miejsc zerowych w podanej granicy")
else:
x = licz_mzero_newton(a,b,d,imax)
print("X=",x," z dokladnoscia ",d)
Zadanie2()

84
AiSD/Ćwiczenie 5/Zadanie_3.py
View File

@ -1,43 +1,43 @@
from datetime import datetime
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def licz_mzero_euler(a,b,d,imax):
if f(a) * f(b) >= 0 :
return False
i=0
x=a-f(a)*(b-a)/(f(b)-f(a))
while True:
print("iteracja :",i," x=",x, " b=",b)
y = abs(f(x))
if y <= d:
break
else:
bx = x
x=x-f(x)*(b-x)/(f(b)-f(x))
b = bx
i=i+1
if i >= imax :
return False
print("X=",x," z dokladnoscia ",d)
return x
def Zadanie3():
y = False
while y == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit iteracji imax="))
y = licz_mzero_euler(a,b,d,imax)
if y==False:
print("brak miejsc zerowych w podanej granicy lub przekroczono liczbe iteracji")
from datetime import datetime
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def licz_mzero_euler(a,b,d,imax):
if f(a) * f(b) >= 0 :
return False
i=0
x=a-f(a)*(b-a)/(f(b)-f(a))
while True:
print("iteracja :",i," x=",x, " b=",b)
y = abs(f(x))
if y <= d:
break
else:
bx = x
x=x-f(x)*(b-x)/(f(b)-f(x))
b = bx
i=i+1
if i >= imax :
return False
print("X=",x," z dokladnoscia ",d)
return x
def Zadanie3():
y = False
while y == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit iteracji imax="))
y = licz_mzero_euler(a,b,d,imax)
if y==False:
print("brak miejsc zerowych w podanej granicy lub przekroczono liczbe iteracji")
Zadanie3()

78
AiSD/Ćwiczenie 5/Zadanie_4.py
View File

@ -1,40 +1,40 @@
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def licz_mzero_bisekcja(a,b,d,i,imax):
x = (a+b)/2
y = abs(f(x))
i = i+1
if i > imax:
return False
print(f"iteracja :{i} x={x} f(x)={y} a={a} b={b}")
if y>d:
if f(a) * f(x) < 0 :
x = licz_mzero_bisekcja(a,x,d,i,imax)
else:
x = licz_mzero_bisekcja(x,b,d,i,imax)
return x
def Zadanie1():
v = False
while v == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit glebokosci rekurencji imax="))
if f(a) * f(b) >= 0:
v = False
print("brak miejsc zerowych w podanej granicy")
else:
x = licz_mzero_bisekcja(a,b,d,0,imax)
if x != False:
print("X=",x," z dokladnoscia ",d)
else:
print("Osiągnieto limit imax")
import sys
def f(x):
x3=1;x2=-1;x1=-1;x0=2
y = x*x*x*x3 + x*x*x2 + x*x1 + x0
return y
def licz_mzero_bisekcja(a,b,d,i,imax):
x = (a+b)/2
y = abs(f(x))
i = i+1
if i > imax:
return False
print(f"iteracja :{i} x={x} f(x)={y} a={a} b={b}")
if y>d:
if f(a) * f(x) < 0 :
x = licz_mzero_bisekcja(a,x,d,i,imax)
else:
x = licz_mzero_bisekcja(x,b,d,i,imax)
return x
def Zadanie1():
v = False
while v == False:
a = float(input("Wprowadz piwerszy punkt graniczny a="))
b = float(input("Wprowadz drugi punkt graniczny b="))
d = float(input("Wprowadz dokładnosc obliczen d="))
imax = int(input("Wprowax limit glebokosci rekurencji imax="))
if f(a) * f(b) >= 0:
v = False
print("brak miejsc zerowych w podanej granicy")
else:
x = licz_mzero_bisekcja(a,b,d,0,imax)
if x != False:
print("X=",x," z dokladnoscia ",d)
else:
print("Osiągnieto limit imax")
Zadanie1()

96
Podstawy programowania/Zadanie 1.P/main.cpp
View File

@ -1,48 +1,48 @@
// Bartlomiej Zablocki 158303 grupa D2
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double a,b,c,delta,x1,x2;
char input;
do {
cout << endl << "===================================================================" << endl;
cout << "Program obliczajacy pierwiastki rownania kwadratowego ax^2 + bx + c" << endl;
cout << "Podaj wspolczynnik a: ";
cin >> a;
cout << "Podaj wspolczynnik b: ";
cin >> b;
cout << "Podaj wspolczynnik c: ";
cin >> c;
if( a == 0) {
if ( b == 0) {
cout << "Rowaninie nie jest rownianiem kwadratowym ani liniowym. " << endl;
}
x1 = -c / b;
cout << "Rowaninie jest rownianiem liniowym, x = " << x1 << endl;
} else {
cout << "Rownanie jest rownianiem kwadratowym, ";
delta = (b * b) - (4 * a) * c;
if (delta > 0) {
x1 = (-b - sqrt(delta)) / (2 * a);
x2 = (-b + sqrt(delta)) / (2 * a);
cout << "x = " << x1 << " lub x = " << x2 << endl;
} else if (delta == 0) {
x1 = (-b / (2 * a));
cout << "x = " << x1 << endl;
} else {
cout << " brak rozwiazan" << endl;
}
}
cout << "czy ochcesz obliczyc kolejny pierwiastek? (T/t) TAK, (inny znak) NIE" << endl;
cin >> input;
}
while ( input == 't' || input == 'T' );
}
// Bartlomiej Zablocki 158303 grupa D2
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double a,b,c,delta,x1,x2;
char input;
do {
cout << endl << "===================================================================" << endl;
cout << "Program obliczajacy pierwiastki rownania kwadratowego ax^2 + bx + c" << endl;
cout << "Podaj wspolczynnik a: ";
cin >> a;
cout << "Podaj wspolczynnik b: ";
cin >> b;
cout << "Podaj wspolczynnik c: ";
cin >> c;
if( a == 0) {
if ( b == 0) {
cout << "Rowaninie nie jest rownianiem kwadratowym ani liniowym. " << endl;
}
x1 = -c / b;
cout << "Rowaninie jest rownianiem liniowym, x = " << x1 << endl;
} else {
cout << "Rownanie jest rownianiem kwadratowym, ";
delta = (b * b) - (4 * a) * c;
if (delta > 0) {
x1 = (-b - sqrt(delta)) / (2 * a);
x2 = (-b + sqrt(delta)) / (2 * a);
cout << "x = " << x1 << " lub x = " << x2 << endl;
} else if (delta == 0) {
x1 = (-b / (2 * a));
cout << "x = " << x1 << endl;
} else {
cout << " brak rozwiazan" << endl;
}
}
cout << "czy ochcesz obliczyc kolejny pierwiastek? (T/t) TAK, (inny znak) NIE" << endl;
cin >> input;
}
while ( input == 't' || input == 'T' );
}