Turbo Pascal Referat = problem

[andy]

Polecam stronk***281; www.4programmers.net
Du***380;o przyk***322;ad***243;w z opisami.

[mgit]

Dwuletnia, zaj***281;cia dwa weekendy w miesi***261;cu

[FatAlbert]

tez sobie miele sobie pascala i jakos mi to idzie.

Napisany przez Patrix

(...)
przyklad abys zrozumial:

program bleble;
uses crt;
var
zonk:char;
begin
clrscr;
repeat
 writeln('Czy chcesz zakonczyc ? [T/N]');
 readln(zonk);
until zonk in ['t','T'];
end.

ocb z until? bo tego jesio nie mialem.

[Patrix]

Napisany przez mgit

Dwuletnia, zajęcia dwa weekendy w miesiącu

Uuuu to bedzie tasiemiec
tez bym tak skonczyl... na szczescie po LPzi TI bylo dzienne roczne...
czyli skonczylem jak koledzy z techników

Napisany przez FatAlbert

tez sobie miele sobie pascala i jakos mi to idzie.
ocb z until? bo tego jesio nie mialem.

until: http://forum.cdrinfo.pl/showpost.php...5&postcount=24

a zonk in ['t','T']; odpowiada dokladnie poleceniu:
if (zonk='t') or (zonk='T') then...
ale ładniej wygląda

[mgit]

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

[kraluk]

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

[mgit]

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

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

[pawelblu]

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

[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

[ksviper]

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

[mgit]

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

np. znak w tablicy ma kod 94

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

[ksviper]

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

[mgit]

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 ...

[ksviper]

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

[mgit]

Napisany przez ksviper

proponuję użyć lewego alta i klawiatury numerycznej

nie działa