Forum CDRinfo.pl - Turbo Pascal Referat = problem

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Komputery - oprogramowanie i sprzęt (https://forum.cdrinfo.pl/f113/)

- - Turbo Pascal Referat = problem (https://forum.cdrinfo.pl/f113/turbo-pascal-referat-problem-75514/)

najprostsze rozwi***261;zania s***261; najlepsze :)

ten ^ poda***322;em jako przyk***322;ad :)

Dzia***322;a faktycznie, musia***322;em w***322;***261;czy***263; num lk w notebooku bo na tej g***243;rnej nie dzia***322;a***322;o :D

dzia***322;a dzia***322;a tylko w***322;***261;cz NumLocka :)

A jaki znak chcesz wstawi***263;?

Bo pod 094 widz***281; ^ z nad 6 na klawiaturze...

Poza tym dzia***322;a numeryczna: LAlt + 094...

Cytat:

Napisany przez ksviper (Post 917281)

proponuję użyć lewego alta i klawiatury numerycznej :)

nie działa :nie:

proponuj***281; u***380;y***263; lewego alta i klawiatury numerycznej :)

ale mi nie chodzi by program wowo***322;a***322; to, tylko ***380;eby do kodu programu wstawi***263; ;) symbol ktory nie jet dost***281;pny na klawiaturze ;) a kt***243;ry znajduje si***281; w tablicy, by***322; dot ego jaki***347; skr***243;t ale nie pami***281;tam jaki ... :(

je***347;li dobrze rozumiem to skorzystaj z funkcji Chr()

Jak wstawi***263; znak z tablicy znakow ASCII ??

np. znak w tablicy ma kod 94

Jak go wstawi***263; w turbo pascalu/free pascalu

:>

wprowad***378; testy na poprawno***347;***263; wprowadzanych danych :D
zobacz co si***281; stanie jak zamiast liczb zaczniesz wprowadza***263; literki :)

A. Typy ca***322;kowite

Cytat:

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

Cytat:

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 :D

nie jestem pewny co do komentarza integer

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

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

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 :D

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 :D

Sortowanie (po zmianie typ***243;w w programie) to akurat b***281;dzie dzia***322;a***322;o dla ka***380;dego typu liczbowego, nie tylko ca***322;kowitego.

Dla typu ca***322;kowitego to mi si***281; np. nasuwa Collatz problem. Mi***322;e, ***322;atwe (je***380;eli chodzi o definicje problemu).

Dla typu znakowego to co***347; ze string matchingu, typu: http://en.wikipedia.org/wiki/Knuth-M...ratt_algorithm

Mam pytanie czy porz***261;dkowanie liczba mo***380;na zaliczy***263; do typ***243;w ca***322;kowitych:

Cytat:

PROGRAM Porzadkowanie_Liczb_Rosnaco_Malejaco;

USES Crt;

TYPE Tab = ARRAY[1..2598] OF Integer;

VAR a : Tab;
n, i : Word;
Zn : Char;

PROCEDURE Losuj(Var x : Tab; l : Word);
Begin
For i:=1 To l Do x[i]:=Random(100);
End;

PROCEDURE Wypisz(x : Tab; l : Word; t : String);
Begin
WriteLn;
WriteLn(t);
For i:=1 To l Do Write(x[i]:0, ' ');
WriteLn;
End;

PROCEDURE QuickSort(Var A: Tab; Lo, Hi: Integer); { Sortowanie QuickSort }

Procedure Sort(l, r: Integer);
Var i, j, x, y: Integer;
Begin
i:=l;
j:=r;
x:=a[(l+r)DIV2];
Repeat
While a[i] < x Do i:=i+1;
While x < a[j] Do j:=j-1;
If i <= j Then
Begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
i:=i+1;
j:=j-1;
End;
Until i > j;
If l < j Then Sort(l, j);
If i < r Then Sort(i, r);
End;

Begin; { QuickSort }
Sort(Lo,Hi);
End;

PROCEDURE Sort_Mal(Var x : Tab; l : Word); { Sortowanie b***261;belkowe }
Var P : Boolean;
B : Integer;
Begin
Repeat
P:=True;
For i:=l DownTo 2 Do
If x[i] > x[i-1] Then
Begin
B:=x[i];
x[i]:=x[i-1];
x[i-1]:=B;
P:=False;
End;
Until P=True;
End;

BEGIN
ClrScr;
WriteLn(' PROGRAM : ');
WriteLn(' Porzadkowanie Liczb. ');
WriteLn;
Write('Podaj ile liczb losowac : ');
ReadLn(n);
Randomize;
Losuj(a, n);
Wypisz(a, n, 'Wylosowane liczby :');
QuickSort(a, 1, n);
Wypisz(a, n, 'Liczby uporzadkowane rosnaco :');
Sort_Mal(a, n);
Wypisz(a, n, 'Liczby uporzadkowane malejaco :');
Zn:=ReadKey;
END.

Pozatym ma ktos jaki***347; pomys***322; na typ znakowy ? Mile widziany kod programu przyk***322;adowego :D

To ja od siebie mog***281; poleci***263; t***261; stronk***281;:
http://www.lo2.opole.pl/~dragosystems/kursy/kpascal.htm

Ca***322;kiem przyzwoity i fajnie napisany kurs Pascala ;)

Jutro bior***281; si***281; ostro za ten referat, jak co***347; to bed***281; dawa***263; kolejne programy do poprawki :D