From 689cbe540dd2bcbc502fcc957eef058fc6d48f86 Mon Sep 17 00:00:00 2001 From: alatar Date: Sat, 10 Feb 2024 14:41:42 +0100 Subject: [PATCH] crlf mess --- AiSD/Ćwiczenie 2/Zadanie_1.lpi | 126 ++++----- AiSD/Ćwiczenie 2/Zadanie_1.lpr | 1 - AiSD/Ćwiczenie 2/Zadanie_1.lps | 51 ++-- AiSD/Ćwiczenie 2/Zadanie_2.lpi | 126 ++++----- AiSD/Ćwiczenie 2/Zadanie_2.lpr | 106 +++---- AiSD/Ćwiczenie 2/Zadanie_2.lps | 48 ++-- AiSD/Ćwiczenie 2/Zadanie_3.lpi | 126 ++++----- AiSD/Ćwiczenie 2/Zadanie_3.lpr | 92 +++--- AiSD/Ćwiczenie 2/Zadanie_3.lps | 46 +-- AiSD/Ćwiczenie 3/Zadanie_1.lpi | 140 ++++----- AiSD/Ćwiczenie 3/Zadanie_1.lpr | 106 +++---- AiSD/Ćwiczenie 3/Zadanie_1.lps | 46 +-- AiSD/Ćwiczenie 3/Zadanie_2.lpi | 140 ++++----- AiSD/Ćwiczenie 3/Zadanie_2.lpr | 198 ++++++------- AiSD/Ćwiczenie 3/Zadanie_2.lps | 48 ++-- AiSD/Ćwiczenie 3/Zadanie_3.py | 90 +++--- AiSD/Ćwiczenie 3/Zadanie_4.lpi | 126 ++++----- AiSD/Ćwiczenie 3/Zadanie_4.lpr | 120 ++++---- AiSD/Ćwiczenie 3/Zadanie_4.lps | 48 ++-- AiSD/Ćwiczenie 3/Zadanie_5.lpi | 126 ++++----- AiSD/Ćwiczenie 3/Zadanie_5.lpr | 164 +++++------ AiSD/Ćwiczenie 3/Zadanie_5.lps | 46 +-- AiSD/Ćwiczenie 3/Zadanie_5.py | 114 ++++---- AiSD/Ćwiczenie 4/Zadanie_1.docx | Bin 12855 -> 13119 bytes AiSD/Ćwiczenie 4/Zadanie_1.lpi | 140 ++++----- AiSD/Ćwiczenie 4/Zadanie_1.lpr | 82 +++--- AiSD/Ćwiczenie 4/Zadanie_1.lps | 73 +++-- AiSD/Ćwiczenie 4/Zadanie_1.py | 74 ++--- AiSD/Ćwiczenie 4/Zadanie_2.lpi | 140 ++++----- AiSD/Ćwiczenie 4/Zadanie_2.lpr | 100 +++---- AiSD/Ćwiczenie 4/Zadanie_2.lps | 130 ++++----- AiSD/Ćwiczenie 4/Zadanie_2.py | 36 +-- AiSD/Ćwiczenie 4/Zadanie_3.lpi | 140 ++++----- AiSD/Ćwiczenie 4/Zadanie_3.lpr | 114 ++++---- AiSD/Ćwiczenie 4/Zadanie_3.lps | 226 +++++++-------- AiSD/Ćwiczenie 4/Zadanie_4.lpi | 140 ++++----- AiSD/Ćwiczenie 4/Zadanie_4.lpr | 154 +++++----- AiSD/Ćwiczenie 4/Zadanie_4.lps | 296 ++++++++++---------- AiSD/Ćwiczenie 5/Zadanie_1.py | 78 +++--- AiSD/Ćwiczenie 5/Zadanie_2.py | 94 +++---- AiSD/Ćwiczenie 5/Zadanie_3.py | 84 +++--- AiSD/Ćwiczenie 5/Zadanie_4.py | 78 +++--- Podstawy programowania/Zadanie 1.P/main.cpp | 96 +++---- 43 files changed, 2259 insertions(+), 2250 deletions(-) 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 1b61f96fabcad16687b9afde4c0fc871b0a39ede..7ce75e0b89ea2e3c3a1e5ae8caeb5b0854b814ba 100644 GIT binary patch delta 3580 zcmZ8kXE+;*8jcWZ1+f)9Rz({-l%i%L_FgSPQIsfEBdACyEsBU$)QZ+ITTy$@7_F`7 zP_=id8pYwBbAR0PJoo$ct>^voKHqrj-P`ZI?WD&c`eLK|K>$D+7XZKk002TBJam_J zf8Z8`@$h>j6N>SzupjbUROb51yQay0+pMBQVm2#uzGu&cNAXfN52%SO^(o_^K+D3S zco~3bcO4yBQ*Q3Nm@?8h<5Lr!E#=M7+sF$K#r|k~_YD^suk#Cq-KaUfJr<r#@G{O? zrQ#BNmg}8M?5YTscsI5<*z0LSZL8((wblH&Ro!GFtf*QGz){kzE;2o6`PBW-GAW1g zOC_!SlDV&ZWx`?**K$T4>rCYam?^=X%6A~cmrSg7LlPGCbFZ-qVmD$}0&=6P>E2mW zdK^bfq+=tMQO-ht?ueuW(6CpGj<OZLufY}i+E8u+C^A5xEd%PWp_C-pa2v~jirzyR zT?IDcm!TB!xYSK!|BO+-tE-9n_8nr*e{!s7XE@UM6P{@9>pF8qmCj1D94^iSkuJ5` zPmO>0(&<0X($}5vv6!h%-3y(WamH*(9Jpe>IV$tOw^n$*uv(vpcUixyYcblozmGEz zgV{`4o9aFlOPF|-?>i~d#Kn3wQ@Ve#6rhfDJw@lO2^noGdFM=iehb>tX`gL|R=mhZ zPS%2(r9_l@oS<8$zAyArI`2?<pWKsd2-Dy5rb(m)<cubLDC+gU%#!X~erMrWXsE2W zGz775{JCR8NNG1*K@CtU*|O{aMdB{o*?hW-&s6y;-lSK&O5AubAMYiJ99Y0S*(KJ% zW{ZA5&^>*Z-s322I^1!e>3)6xL_HB}zd)C!Alhw~kQJcLjOR#WAh769f%_kzxUi*u z>sCrKM*;@VEs*|Y+465vrs-BHTnVb@bOxo(A@$j64Hjh<YX(IEFTWg8-Ebf9V<Nfp zEzVWk_E{cBLT-xi!ob`oI>TRPG8DJ#6_3<()4RjbPQrQ|z^U(I^wk#xUR72Wgix#9 zjW@eIr+K(I5hTuqjd}|a#`c(Ib{Qn)mZ)N)BCQ=G@8HUHQk*M7n0BVk&<zncVwAbY z+Y<bUk7lt?;r*RE-;$#yB5;SIZ`+6cILwnn;S9s>VTxamy!Z}#*4f09WrQ(zu6$ud zCt$fv<+Ee>D$#A}h^R3QQ%0~wq8+w6(sU?O(*j(=UU!~z?EhoHE?|CwJAUSb|85Si zLSFBXGxVT)2KPJG7S7#2dPr!h@kxz#yItir%}6b;wWA)pX1f5ram>x>mglH+3v>_c zfP+?FX!nrQjrxp_Kf{|v>owdi#P{>~`~-3S`ui|c?1xbf&K6jaFM?cTDt!qb5ijCc z;<y%K>txZKo70)SpYCB#>r&}JYjlOLY5BGvLl0-MMOVSihb@svMp^F;c`5nbTThr? zXtqvWHsk<n5d)ySxalR(R?B;)&+4GN-X9w@RShsJ3Al>^H7nJmhc`_Qi<rCETZj}) zYk-=v2a?yA{*UqmNm(GhL3+F>HDC{!Dy+uOIaJpde3|nFm;1oO^=T?97P=W^PCZ{j zDn9U|3QY#ENQBm>zY(hZlwbO;jQ`X9sXe9hxqiFDzYGgCaFpLdnan&0pt844_pY|q z%E#2tP#4Rm5(#Sj-+Je&)~{>JiskpoBcvt`8qb+52NpzsasXT#v`B=yXkdS+sRg5_ z_uwAWTzV_BfJ=vY$3m2q2zOm&O$cQ)#+X~%h)bK+C!2qZ3vIxdszxuwruESLuBeSb zu>hA)RN=}#4mnpNETBtDhoTu}>9rD(4if8y`4cypXN?IHOqCd#+I~CG506dH#;5U} z%|aeTdZiA6t^g5|k<@Z9?K>7syn3@-=7my_5;cnJB42Uypv|XgVo&SJQ1FRZvdOmK zUW4X7ZL+Czj@Ro*Jhhc`^f%nnu;(v%C6#z*4rg`0G&#ohxkr!xxUlMv+tt;scbdT1 z)*UC7$Gh%|S=Il_Zfm!X-(E~)>@3<2M6IgT7{zNaMGAdLPY&$s8D13SoFdyci@}Ut z-$`lxHdWe^|4AGo@5udf3;V$ggqbueSbh$&t3SZneLa7va>7R1<Kn7mVm4xA%zL$_ z;YJ4l43NOwSDD^OIHY2NUOtfxAl>4I;;3dLiNV44*SdzPc_VgP!7_p9l!uCk=b?^| z;?Vlu);v#tLXul)ZRbjI@^L2(X51eICaoEuhUt`uEle$s_nVTR()Uo0=Yg4ksz!HI zH~GsizErdHwUu1PVgn>}EDpVP`fPf1x7uz%0RwGHTuQy(_OVZVc~fa1V1E&YTT+Vj zA*qgBk2S(*9E!hYr<I+`xU@Vob7vOt<!0*FWSMHW$@Oj8i}=l*MpzQhbc`oU%#x}t z6PleYqh(o_MCR4g|8}J#BoJW)TERasD<M+fh+T4K7gvpp6r#TUzJ_0xVv|BsNrG5Z z&deX!J93hAWuv`^Hn74WpOG1y=<_<1P<g-H!Ze8c$~w5>1F>k@+Jsdj#aPtg$lXc- zX7=NTL?)EX4o)*=n2V$$J<oL@ACff|Jg?ut?)tePBUW>R4of=};*fZn#Z&YMz&tOa zbsR;DD5HBlX_}jR*ZQLX2u+UP&`+y`^A^<V`aj2OR(#*q_6_hpJ;KRm8H1C%8v6F7 zQ=!xLRdj>+@IE7H)u1rY#mh~8V-ZG^ar>DUlX<oW5wr;q`G(`!_qTrn=|^u>iZ`CK z^3!f=_-msd^|%TfS<dT|cGGW}w?xg`Eve<D^{yIv0}~HdF2o2|KmaUg#JNCEm<=c^ zH_lzW{xWy=Ms<N64EHR}aV`^NJ=m-&wyBgcAEmV{UD)z;DLiLYEs@DS`o~he<*}K0 zEO=W}$KjSq<Hy{uwMu8f?RAA=CCki1E#^DB&jTM@Kam#{-**ry)qbPnNB-^=#>iMQ zcK73#Q^99vUXT%4Q3JSv3`N2M!q%05f+YIsXQpUt3V>6M`f)u+arL}zIakMA#^Cd+ zlq`t}gZ2SW5+WnJ_uQt5<lPG{m%jJZBeh_7yy84>tbb`DEe$*(_ueidzM||s{;MA= zG#2WlWuem1W}d;L_e>T2S<y+f(Hnc26>Gs1xW7*vGIoODNG%YhrcBhN^olhBdLL#` zdgW5!LmQ9lI8U1{qzb-_a!es9n_<EZOJh@O$s07Y<MmC1;PzYaO6}#rG$pjC$i_~; za_0=$y=Dq8<;7|SiV*n}=gX;V?^XS_Z;N*D!w0Qq)pwN90n=Y6rXL@85J`wiSTLm_ zUBWbjkKb1a=4zv%O>QC+->ANdNKR<x!HJZS3hHpEd2H+Ff|gKeuZ)))Tb5@m;SgTE z?zs9tK)NIMFtK(0mof3+mT}J}dd0zo+|CF~IJq?Bp0ClFW_8xf98M^83h%L9cJ>OK z3jw*Abl6Tg-rTZF09oALJ)4W5*Q*u0+IN@Fm@JUAt^6_gXJ`0D?6g&}|Cq}#yvpQ4 z7%U+fJ$6?(_%FFjO%~tsgCzHSKe5I|a<Qdq!v%UT;3gaA42{2e|Jfy^13C7ZLjH&B zpz5WUYxo+zYgcJ-L#Eww?1&@OneNi#4RM5e5gY{y0zn{%f*r?jsNZ7T7JgLvq7V07 z9Aij_LZRP>4m&2ladK=czZOQj`f7|bH3<U2uOLya*(q_qVYeiS`maIdiLs2c1j)?h zJ&R7v@bhRjPnb&DJh`Cw@$hy`%O9U|Ek~TS<TaUMz_?z|MXv6YChpqA2Qy4w8R8|@ zGzy(5V@SEWR?%4lra7Zec6PNug4Lf|c%<2cg&`Y^V0AtnTle$1HKd*=5^>a<7kNZs z*lZG>TI6BfFZs28xYE{o9~QL8&0xtxScO&-C<SqHdgnon^hsZX^JB8qT)Z4rJ;0ip ziK%asa6G>JI&DPhR!M;$H{Mo0=e)JXLWyGB{bG>t9now>e;HquMg6?nGXm*(bUKaK z?0h}lnd5tIh#iAGzP*+BBbJT>)ctdK?(uR!M36>4QNf5pQZZPBzwlgCuMl^D2ZB%7 z2={MvXmZu;W5Y6%&En$2@xx``OQhTX{@*VyNC#Z(pl?P!=>au^FgY4rrPZWulya5% z^&Wg?8o+aCR-7jZGb>Ys8+naSiNCD6{XUFZ!`Z!3Gcmw$Qcy84(W`F62_Lr|gkw)E z=Z0k_#PwXS6;^htYq+3poSm`cwFa$`yHZkO7_p!F)~fiKDZQpKs<o^^_czrz7*Aqn zn`|K=wmWKYqLce<_II48o|UUoAlc<66pib-h_|&pJn!<s`WI6RdxpI^h?<8aff<yR zH+l5cMvCk+VH))WdRk||Wv0-YHm0-qr-cN}^_CPOWwD%ljFaWYu(t%F*!p*L>Ky$Y z>e9NG()udiBpEO(YrfMO&yYuxqtjp)yCWH>tKHY))#ATh@6ybnE%KyKT6);0kQR6< z;o_qv$udw~E!ujtyI|P78GS6QDj{jqRyxCDilV$l=T)e!YiYx5mvHaoApZKA-J9tA zdnVCSBQM&Y-|CqDZu7G@EN?8tcq@+FN?q-02as;drZD|0qe#DG&FIQl007b;vmnV$ z?iz3&OiGrM6#U=C{k!&$()!m9xJl!38o)RK5{JAR&|8v(zsf^emSZP9k{1B3LrFAH zu75(o|IQc<06;_g{|JoNNu%;&g8yax?}lC=0Kon){@-4wG>J_?l-^73pX`4CE@zpx delta 3294 zcmV<43?cKsX18Rp!3KXEUYqyI1ONcY5dZ)Y0001YZ*pWWWN%}2ZDnqBE_iKhq?pTY z<2DqA_XYY6g!ZvSN!G<kJV@erFpCb1rrmT$Q?#vE5(ScuA}<RReTG3FqucD7yjKr( z@nxKNWG9PABE|3g{CRl9<nq%~nxID}WX!WG1NSTgv5fL4&gOqt#_zw4F9HKeMY4z_ zJY!cz$)xdV`14Pf#USEzm9k7BKxA@I<n+o|D3uRPQ_=-XiR`5@6<qR}>QSDWd^U?I zGYc*v)3&fx-Q|K)CMCqXCD|j9MuVeI-Dr^@1q{|e*Q5&~6nok-@X3(A8JfW%$UXxE zGqmv`$~hV3nOc9<0mwZI1gZ{5{qsm~OwK!xWFM0J^GMDiDL9XGkWT4gg7chZ&^hBG zB?=zJ+)RmBuJQ{2=S0QRIEhsWOv`IAB+iy+D1uQNLh3{(6MQq}5lft?rSL0bC9**? z{$ev;OCQwZo6BYdOS*-HaG}YbR3cS7R&?>M9zJRcOXYu>DOdtN@=Pw`d{Z6Lb7|1I zXd#cs40ueF_Prv<9k<$hrEOF%!xq>@ezSIIQY$}B#8!vZ)QHW9E)w=*wn|dS;BDZu ztl2RacPu_Fz&-$Yly&@Aw2Yu(m~^|lH7D-4ty)gKDw-2-jl~^n;P+y705Ve1;v|aQ z`fBR2M3H|5k()%<M0T2}{svd3J09ipk8Om{g0J!|E&dqo%eEvI`fzdrtJzSyn_PZO z%>9DoP$^S7_%hG9AkzdC!S+Cq;iy^x{TmWRU#eU7RJH51M!LorLpW7Uc~t6a4t?$* zCxU!|q{PA9trdhfM%4=6BvrMJZu{5QmJh81IKh8Kzg`(IG1u$+_NHmXW@MEp-E-r) z{<z=vOm>>8fD=(&?p2w9)WIWxV*i!Q3%0Zkb9iZPUJ)&OBEDm&;U6R-S<Ddbp|4PO zMM>8gL4xIit)U1L`an<;)AbZl^7`kJ7w~nY3k_FQ2vG+*bilrGZRgg*`wsZc&z=MO z^Xz}-fcZv5C-g_-oAG``+xA9&Kh!$9MD#oy-i7aZUfHRJqlBP`mv8HGNzjByN)nWj zhoXFamg|?lPywe9{`wD%;Xcx@l4Z;uP|9DQ!P}zLewHtPBN-=I{PGPwFsYDj?U}l> zYFdNuxPkB02`8$#SI78)%n60Gh1HTwJTiY{Sd<x;G2#%Y18+Yuc7mv(?K*Y{Wy%V$ z?|H5TKOF_WqpXLtZ8k<+iFKK-9#~q|sRb73rwr^m76RY7^^V%r+%(pjFI?LVLAB+E zE)H$%25!)SctkYHIqZ&tygs8`tl3f!x+b9e7!@*qe2W`NDOo~ACW)S0lNYe^IxBxX z=NQDb-0S}6sI+OU{`<G+Eah#=@if_U7Yf7jgOWY>gUhkmW^B&20jqlR6y=gbQb|=7 zBr88CGU7))aXt6iYdz6PK^MHxabtqCMXO$i>gWXH>kwb-67-|$*u;CIR_*uvpgQ_} zYh*e2jEH+*jnidFM%Cmk2jBfF<@0X)HFUy>7voU>9aaqBaD~0V37VPBe<7NvI2_Ee zi);Due4)0FQ?3+Gx6cWi?es1fi5SH7tw2A{I9EH5^OdR|tvVd#iG<cBQ}jDkbHwRq zp^pcHB+l3*Ruoh^UNy*U=Uv^_X9RQmFPP!~0F!|l6tlPtO9=^>-V5nn1ONc9lMEIn z3dfQx$+o)A!k2ZEJQgT_hmX&Uc6L}Q!ppH2-1uGxmpLy;xfy$ZJTAIJucI_73q*N| z$KC-e@8j*yKYiGz3Tq8&ssj|IN?AVkwpxp{*HifxGo)^~z$JidE*aABC^tQZ<WnWO zIcEZCk`YSup%?mo;x#mU>{YT%8;UL?x#WtkwJ}NgdQEcN{5T7Ld5z!NWX|)7;Zj?V zJ&7sAz)Q6yLOC|}RyF{)j%4?vOY9hRdi%h?;<|e-i=)Lg;TZ!Vd5)EW7sRLwkd&?C z=mpWy_YL@Nu4t*iJn-%5H1ha$1mO#UB*)LM;}|v^J+M6GA;s%>k|Pgk6B{IN3+9AC z6}s5IiY0V;?HOBtq|p|sV-*=j{JNmxBi(_uIa2hRs;Qv|l1U`%o@`2n<>~#V<Pv2R z!hzE1z}xTG=*(Y8qWQ5${A}eW58f@zi0_=U&OQ}b=FliGV0_=}834+YuU8srph%U# zl-h}tQ;f=5qrhuaQT>RrmF5Dpb_lL9@P{?LJ%}wXZU6p%1(V6)Q5e^FzC{w{8q1YH zIdIQ-sU@dQui(FPJ%cGEp-CDGJCoYes-ACPQ6dHxKbu)gUcdm_r<Ekvzae8_y$3GH zi;g(VV@V49XcE5C2Z|RE{EB?Xld||+DNTUU-u!<=@S^}Aui*I$l*r>j-~~pyf;7F8 zGy5hMl!zsNk&?^%vVcl?H)mwM#u6M5sJtbV7m<8#^L&R<0c-G`{8kG83Chr+{YNOv zrzzK(v%9v2-|p8oRPVHWVVM`o9lmj{kE$?+gJeFdBQ@w%$fsyHnqES}X|$L%_dZ7= zKbpkzi%1epl8bCfl*EJZB9a87Poqo7pdSqf$t7fennZ&|(`M($VwOxN{U&Qou2^c; z_gCporr|oQwwNK7NrE~{v*3G1Ba=^4QaU`tFh%hxvZ^u%cDps87@~9muigRnwXw7y zO3d-vp6L?FP0QP8$cs{#j-QWQX0~Gao8*<K(Y-{XZX~A?L{Vc&O8r2XldCFQIja)p z{s~lnmBp8xw0UaNvrjb?rX5HR$QHQO6}0>Hp=kgrSEhLJ5(!cFK(-0S9wnQt4oul< zcq-sK&^~0Fu)#u$g*9d$P;PDp+RdSrg-&*&*LSjhD~p^gYGtvL#jPxHvc$+>w_phi z=?U7=9gTd=Ddl@y+_m@%QJn;}MFP+34F=_Z#cM&c(o|=c;%C@~xF8xnuLUU>dN#{3 zw58l=Q*_{!KGQXrQ5NS6=EI>GK)o|#TjKwT#cbA`Ksl}sENd6yFLmIQC>UM>cBkgj zVZT}|h|+@R_h#8g&9WVi7Q<i~)o^TguD0_H-upMao+5>d26LuyZTk0cI2nu<^RVk5 zhe6Pd`u?mtiD%PpIP{}<kPM>HDE_BuQum+6?Y{uCff|+&1@InlKzp+sD<%Pd-%7(U z6vpob-=XBbOS_3m={ivHN<na<>@G{rwz%dG$<ex7-_7?jZP(7?1R)pa<owQ;lP}3< zAF7Pr!Fg%)l%%7CM4-75Qm?1vX?`1DlE@>|f|W+Yl<dHhS#f%jbDMGF;K3OS4kh>~ zC~2Q@J0%-Ln^Efd1{Cw7K<H3^Tp6brhSaU8WqixlK*vdPP8A>%3>mEjW7{i|y`<p1 zq<wQ`BOo}15)^3kG##b%z#=&1k2W-wAEc7Fvv3sciaq_|We-+WHL4~J8s<;w%l+MB zbJbYt+A9vE$OX?(VhKe~4`GP>+wv7Sw%dIYV(x&Uam5vL`1NU&gx6?)!ImN9TiMVZ zQG36IU1gl`L1&N!On~Q3S`07Ro-)`7bjdv4hbLZ15Ldgu4*U()y$;@G{a1?1hUn9L zZ+tr>h$tAAwf1(E=gIZW{FW5sWPBDUX`CkW@gxf?Nfz~-gZ_h{+7Ix5#fzb0C(v3o z{Itb400030{{sL}O9KRxiy8_ASqnNZbF<VfFadwmX{msstt(W7IPj>HK+l%5Nh}=O zvfYaQJsZ-7Aa3NeGwU7CP7JHhRwsM(L0Pj*r;{vA&`4V<Q!mrE;^E>ZO+pl=6xteG zrUwk^il3js##@IzDhvrpn6ONn7~L&nK{nWmFrl`gPGx;7B0*m>TUAQpy_LHbO=Pny zyJCO%8PSwjUbsOp?G<nL@xP*_m7TxvUK||haVW5LT14b8-J}LK5K!1CbfH@0bD{?T z8&PB6Q(%1oTkFff=L=wc1?xt5AtPnSXA7c7819_YN{UFS@@FNz4YrEO>$laUn+G;N z0%Si&x$`O>cm`|?;Yk^~e+H~C$e0(k7p{Lfx*HJWQfOS$;=B?%Ag~_-*0y!RkQ^H- z()$Q+uCVuA5XX_<<Y>vQicRi>Bny}G>+!my4&=mQN&W{50|AfpGraEfY1Y(Op3eMj zbOFBiuaZx%CK-L-iJdswdw4GV3jhHB{{sL}O928c02BZQ00;m803iV1q|$6!0RWSK zFmnnVUYqyI1ONcY5tIBdPXeq9lT9&50^$vmmoX<CnBEKNT?7CCuM7YH5dZ)H00000 z00000008$ClMxmZlkG7o0)rWo88SNpWhRqWGC%_5CzF^mBn9vua6o&L!7>#B1uB!+ cG9v|93py`zk~0+ow=9zvGa?3HF8}}l0OKz-xc~qF 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' ); +}