diff --git a/AiSD/Ćwiczenie 2/Zadanie_1.lpi b/AiSD/Ćwiczenie 2/Zadanie_1.lpi index ee7cfec..2fe1441 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_1.lpi +++ b/AiSD/Ćwiczenie 2/Zadanie_1.lpi @@ -1,63 +1,63 @@ - - - - - - - - - - - - - - <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> diff --git a/AiSD/Ćwiczenie 2/Zadanie_1.lpr b/AiSD/Ćwiczenie 2/Zadanie_1.lpr index b997596..762452f 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_1.lpr +++ b/AiSD/Ćwiczenie 2/Zadanie_1.lpr @@ -1,6 +1,5 @@ program Zadanie_1; -uses unit1; var a,b,c,x1,x2,delta :real; diff --git a/AiSD/Ćwiczenie 2/Zadanie_1.lps b/AiSD/Ćwiczenie 2/Zadanie_1.lps index d80038d..70253fa 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_1.lps +++ b/AiSD/Ćwiczenie 2/Zadanie_1.lps @@ -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> diff --git a/AiSD/Ćwiczenie 2/Zadanie_2.lpi b/AiSD/Ćwiczenie 2/Zadanie_2.lpi index b2b0aee..0155a35 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_2.lpi +++ b/AiSD/Ćwiczenie 2/Zadanie_2.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 2/Zadanie_2.lpr b/AiSD/Ćwiczenie 2/Zadanie_2.lpr index d7c1cb9..4c1ceef 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_2.lpr +++ b/AiSD/Ćwiczenie 2/Zadanie_2.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 2/Zadanie_2.lps b/AiSD/Ćwiczenie 2/Zadanie_2.lps index 99e8b7f..6075880 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_2.lps +++ b/AiSD/Ćwiczenie 2/Zadanie_2.lps @@ -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> diff --git a/AiSD/Ćwiczenie 2/Zadanie_3.lpi b/AiSD/Ćwiczenie 2/Zadanie_3.lpi index e757370..3775132 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_3.lpi +++ b/AiSD/Ćwiczenie 2/Zadanie_3.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 2/Zadanie_3.lpr b/AiSD/Ćwiczenie 2/Zadanie_3.lpr index 41a36db..68b7aaa 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_3.lpr +++ b/AiSD/Ćwiczenie 2/Zadanie_3.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 2/Zadanie_3.lps b/AiSD/Ćwiczenie 2/Zadanie_3.lps index f3e3424..521b8db 100644 --- a/AiSD/Ćwiczenie 2/Zadanie_3.lps +++ b/AiSD/Ćwiczenie 2/Zadanie_3.lps @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_1.lpi b/AiSD/Ćwiczenie 3/Zadanie_1.lpi index 5d1e656..1de2f7b 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_1.lpi +++ b/AiSD/Ćwiczenie 3/Zadanie_1.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_1.lpr b/AiSD/Ćwiczenie 3/Zadanie_1.lpr index e7a332a..5c231d9 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_1.lpr +++ b/AiSD/Ćwiczenie 3/Zadanie_1.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 3/Zadanie_1.lps b/AiSD/Ćwiczenie 3/Zadanie_1.lps index bd5d691..0baa282 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_1.lps +++ b/AiSD/Ćwiczenie 3/Zadanie_1.lps @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_2.lpi b/AiSD/Ćwiczenie 3/Zadanie_2.lpi index 27ad05f..32494fb 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_2.lpi +++ b/AiSD/Ćwiczenie 3/Zadanie_2.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_2.lpr b/AiSD/Ćwiczenie 3/Zadanie_2.lpr index 0ffa309..3f9aadc 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_2.lpr +++ b/AiSD/Ćwiczenie 3/Zadanie_2.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 3/Zadanie_2.lps b/AiSD/Ćwiczenie 3/Zadanie_2.lps index a0109d2..cc512d0 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_2.lps +++ b/AiSD/Ćwiczenie 3/Zadanie_2.lps @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_3.py b/AiSD/Ćwiczenie 3/Zadanie_3.py index 0efaa86..fc023b0 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_3.py +++ b/AiSD/Ćwiczenie 3/Zadanie_3.py @@ -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() \ No newline at end of file diff --git a/AiSD/Ćwiczenie 3/Zadanie_4.lpi b/AiSD/Ćwiczenie 3/Zadanie_4.lpi index e286abb..bf83100 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_4.lpi +++ b/AiSD/Ćwiczenie 3/Zadanie_4.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_4.lpr b/AiSD/Ćwiczenie 3/Zadanie_4.lpr index 433380c..77800ce 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_4.lpr +++ b/AiSD/Ćwiczenie 3/Zadanie_4.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 3/Zadanie_4.lps b/AiSD/Ćwiczenie 3/Zadanie_4.lps index 7eb57ad..86dd139 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_4.lps +++ b/AiSD/Ćwiczenie 3/Zadanie_4.lps @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_5.lpi b/AiSD/Ćwiczenie 3/Zadanie_5.lpi index df75f49..437231b 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_5.lpi +++ b/AiSD/Ćwiczenie 3/Zadanie_5.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_5.lpr b/AiSD/Ćwiczenie 3/Zadanie_5.lpr index 4cede7f..b4624b1 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_5.lpr +++ b/AiSD/Ćwiczenie 3/Zadanie_5.lpr @@ -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. diff --git a/AiSD/Ćwiczenie 3/Zadanie_5.lps b/AiSD/Ćwiczenie 3/Zadanie_5.lps index e64bf8f..ae88e7e 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_5.lps +++ b/AiSD/Ćwiczenie 3/Zadanie_5.lps @@ -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> diff --git a/AiSD/Ćwiczenie 3/Zadanie_5.py b/AiSD/Ćwiczenie 3/Zadanie_5.py index 6dc534f..33175fc 100644 --- a/AiSD/Ćwiczenie 3/Zadanie_5.py +++ b/AiSD/Ćwiczenie 3/Zadanie_5.py @@ -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() \ No newline at end of file diff --git a/AiSD/Ćwiczenie 4/Zadanie_1.docx b/AiSD/Ćwiczenie 4/Zadanie_1.docx index 1b61f96..7ce75e0 100644 Binary files a/AiSD/Ćwiczenie 4/Zadanie_1.docx and b/AiSD/Ćwiczenie 4/Zadanie_1.docx differ diff --git a/AiSD/Ćwiczenie 4/Zadanie_1.lpi b/AiSD/Ćwiczenie 4/Zadanie_1.lpi index 5d1e656..1de2f7b 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_1.lpi +++ b/AiSD/Ćwiczenie 4/Zadanie_1.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 4/Zadanie_1.lpr b/AiSD/Ćwiczenie 4/Zadanie_1.lpr index aa415ed..656247e 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_1.lpr +++ b/AiSD/Ćwiczenie 4/Zadanie_1.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 4/Zadanie_1.lps b/AiSD/Ćwiczenie 4/Zadanie_1.lps index 6e806f2..de2e75b 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_1.lps +++ b/AiSD/Ćwiczenie 4/Zadanie_1.lps @@ -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> diff --git a/AiSD/Ćwiczenie 4/Zadanie_1.py b/AiSD/Ćwiczenie 4/Zadanie_1.py index 205333e..735d47b 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_1.py +++ b/AiSD/Ćwiczenie 4/Zadanie_1.py @@ -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() \ No newline at end of file diff --git a/AiSD/Ćwiczenie 4/Zadanie_2.lpi b/AiSD/Ćwiczenie 4/Zadanie_2.lpi index 27ad05f..32494fb 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_2.lpi +++ b/AiSD/Ćwiczenie 4/Zadanie_2.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 4/Zadanie_2.lpr b/AiSD/Ćwiczenie 4/Zadanie_2.lpr index ae5f667..e2b73a7 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_2.lpr +++ b/AiSD/Ćwiczenie 4/Zadanie_2.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 4/Zadanie_2.lps b/AiSD/Ćwiczenie 4/Zadanie_2.lps index ffc9b1f..0f870f4 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_2.lps +++ b/AiSD/Ćwiczenie 4/Zadanie_2.lps @@ -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> diff --git a/AiSD/Ćwiczenie 4/Zadanie_2.py b/AiSD/Ćwiczenie 4/Zadanie_2.py index e2b77a8..729e2cb 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_2.py +++ b/AiSD/Ćwiczenie 4/Zadanie_2.py @@ -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() \ No newline at end of file diff --git a/AiSD/Ćwiczenie 4/Zadanie_3.lpi b/AiSD/Ćwiczenie 4/Zadanie_3.lpi index d3aa06a..0b196d0 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_3.lpi +++ b/AiSD/Ćwiczenie 4/Zadanie_3.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 4/Zadanie_3.lpr b/AiSD/Ćwiczenie 4/Zadanie_3.lpr index dcfe5d1..9ae2e5b 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_3.lpr +++ b/AiSD/Ćwiczenie 4/Zadanie_3.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 4/Zadanie_3.lps b/AiSD/Ćwiczenie 4/Zadanie_3.lps index acf52d6..bf0f95b 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_3.lps +++ b/AiSD/Ćwiczenie 4/Zadanie_3.lps @@ -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> diff --git a/AiSD/Ćwiczenie 4/Zadanie_4.lpi b/AiSD/Ćwiczenie 4/Zadanie_4.lpi index 8ff7a90..8bca83e 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_4.lpi +++ b/AiSD/Ćwiczenie 4/Zadanie_4.lpi @@ -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> diff --git a/AiSD/Ćwiczenie 4/Zadanie_4.lpr b/AiSD/Ćwiczenie 4/Zadanie_4.lpr index 3ee7f3b..6e13115 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_4.lpr +++ b/AiSD/Ćwiczenie 4/Zadanie_4.lpr @@ -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. + diff --git a/AiSD/Ćwiczenie 4/Zadanie_4.lps b/AiSD/Ćwiczenie 4/Zadanie_4.lps index e417a60..c8cec18 100644 --- a/AiSD/Ćwiczenie 4/Zadanie_4.lps +++ b/AiSD/Ćwiczenie 4/Zadanie_4.lps @@ -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> diff --git a/AiSD/Ćwiczenie 5/Zadanie_1.py b/AiSD/Ćwiczenie 5/Zadanie_1.py index 291134a..d98bd11 100644 --- a/AiSD/Ćwiczenie 5/Zadanie_1.py +++ b/AiSD/Ćwiczenie 5/Zadanie_1.py @@ -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() \ No newline at end of file diff --git a/AiSD/Ćwiczenie 5/Zadanie_2.py b/AiSD/Ćwiczenie 5/Zadanie_2.py index c0b9bf8..db73b45 100644 --- a/AiSD/Ćwiczenie 5/Zadanie_2.py +++ b/AiSD/Ćwiczenie 5/Zadanie_2.py @@ -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() \ No newline at end of file diff --git a/AiSD/Ćwiczenie 5/Zadanie_3.py b/AiSD/Ćwiczenie 5/Zadanie_3.py index ee08c11..895fb34 100644 --- a/AiSD/Ćwiczenie 5/Zadanie_3.py +++ b/AiSD/Ćwiczenie 5/Zadanie_3.py @@ -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() \ No newline at end of file diff --git a/AiSD/Ćwiczenie 5/Zadanie_4.py b/AiSD/Ćwiczenie 5/Zadanie_4.py index 698eb22..6a943f0 100644 --- a/AiSD/Ćwiczenie 5/Zadanie_4.py +++ b/AiSD/Ćwiczenie 5/Zadanie_4.py @@ -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() \ No newline at end of file diff --git a/Podstawy programowania/Zadanie 1.P/main.cpp b/Podstawy programowania/Zadanie 1.P/main.cpp index 730ea4f..5123e75 100644 --- a/Podstawy programowania/Zadanie 1.P/main.cpp +++ b/Podstawy programowania/Zadanie 1.P/main.cpp @@ -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' ); +}