[mgit]

A. Typy ca***322;kowite

program wyliczanie;

{Program wylicza liczby calkowite z przedzialu od 10 do 25}

uses crt;

{Uzywa modulu crt-czyszczenie ekranu i czekanie na klawisz}

var
i : integer; {Zakres znakow}
begin
clrscr;

{Polecenie clrscr czysci ekran ze zbwdnych wpisow, i wy***347;wietla na ekranie monitora program}

writeln('Program wylicza liczby calkowite z przedzia***322;u od 10 do 25');

{Wyswietla na ekranie monitora tekst zawarty w nawiasach i przechodzi do nastepnej lini, czyli do wyliczenia liczb ca***322;kowitych}

for i:=10 to 25 do

{Przedzial liczbowy dla zmiennej "i" w tym przypadku "i" ma argument liczb ca***322;kowitych}

writeln(i);

{wypisuje wynik dla zmiennej i}

writeln('Nacisnij ENTER, aby zakonczyc...');

{Ten zapis wyswietla nam tekst informuj***261;cy czego b***281;dzie oczekiwa***263; w danym momencie program, w naszym przypadku procedura realn oczekuje naci***347;ni***281;cia klawisza ENTER, o czym jeste***347;my informowany dzi***281;ki temu zapisowi}

readln;

{Procedura w tym przypadku nie zosta***322; podany ***380;aden argument, tak wi***281;c aplikacja zostaje zamknienta, po nacisnieciu klawisza ENTER}

end.

B. Typ rzeczywisty

program cena_brutto;

{Program oblicza cene brutto towaru na podstawie ceny netto oraz wielko***347;ci podatku VAT}

uses crt;

{Uzywa modulu crt-czyszczenie ekranu i czekanie na klawisz}

var {zmienne programu}
cenaNetto : real;
VAT : real;
cenaBrutto : real;

{Zmienna real to 6 bajtow pamieci w ktorych przechowywane sa liczby rzeczywiste w naszym przypadku jest to cena netto, cena butto, i vat}

begin
clrscr;

{Polecenie clrscr czysci ekran ze zbwdnych wpisow, i wy***347;wietla na ekranie monitora program}

write('Podaj cene netto: ');

{Wyswietla na ekranie monitora tekst zawarty w nawiasach i przechodzi do nastepnej lini}

readln(cenaNetto);

{Nastepuje przypisanie wartosci zmiennej}

write('Podaj stawke VAT: ');

{Wyswietla na ekranie monitora tekst zawarty w nawiasach i przechodzi do nastepnej lini}

readln(VAT);

{Nastepuje przypisanie kolejnej wartosci zmiennej}

cenaBrutto := cenaNetto * (VAT + 100)/ 100;

{Nastepuje wyliczenie cenny brutto, na podstawie danych podanych powyzej, za pomoca wzoru}

writeln('Cena brutto wynosi: ', cenaBrutto:0:2);

{Wyswietla wynik, czyli cene brutto ktora otrzymalismy dzieki zmiennej readln(VAT) poczym przechodzi do nastepnej lini}

writeln('Nacisnij ENTER, aby zakonczyc...');

{Ten zapis wyswietla nam tekst informuj***261;cy czego b***281;dzie oczekiwa***263; w danym momencie program, w naszym przypadku procedura realn oczekuje naci***347;ni***281;cia klawisza ENTER, o czym jeste***347;my informowany dzi***281;ki temu zapisowi}

readln;

{Procedura w tym przypadku nie zosta***322; podany ***380;aden argument, tak wi***281;c aplikacja zostaje zamknienta, po nacisnieciu klawisza ENTER}

end.

Po kilku godzinach siedzenia nonstoper, zaczynam robi***263; post***281;py

nie jestem pewny co do komentarza integer

ale chyba zaczyna mi si***281; ten ca***322;y pascal podoba***263;

Jak macie jakie***347; pomys***322;y jak upiekszy***263;, poprawi***263; co***347; w tych kodach to jestem otwarty na sugestie

Jutro planj***281; napisa***263; ze cztery programy, a pojutrze ze trzy

Wi***281;c szybka reakcja mile widzina, 9.12 musze to odda***263; do oceny

Wprawdzie programiki s***261; bardzo proste, ale to i tka sukces, jak na osobe kt***243;ra pierwszy raz zaczyna pisa***263; w pascalu i to tylko dzi***281;ki kursom, a nie nauczycielowi kt***243;ry ola***322; sprawe