Misja Tereski
FUNKCJE PASCALA.
Program pokazuje zastosowanie funkcji wbudowanych w Pascalu: Download: Rapidshare, Hotfile, Megaupload, Przeklej i Inne 1 Wartość bezwzględna - abs() 2 Zaokrąglenie w dół - trunc() 3 Zaokrąglenie w górę - round() 4 ID znaku w tablicy ASCII - ord() 5 Zwracanie wartości FALSE, gdy liczba jest parzysta - odd() 6 Następna wartość z listy znaków - succ() 7 Operacje na typie znakowym STRING a) Zwraca litery z danego słowa - []; b) Złącza dwa podane teksty - concat() / tekst+tekst2 c) Wycina pod słowo - copy() d) Szukanie litery w słowie - pos() e) Zwraca długość tekstu - length() f) Usuwanie tekstu - delete() Download bez limitów Kod źródłowy : Download: Rapidshare, Hotfile, Megaupload, Przeklej i Inne program funkcje_pascala; uses crt; (* -------------------------- *) var wybor:byte; var a:Int64; var b:real; var c:real; var d:char; var e:Int64; var f:char; var g:byte; var h:string[15]; var i:string; var j:string; var k:string; var l:string; var m:byte; var x:byte; {Do kazdej procedury zostala uzyta inna zmienna} (* -------------------------- *) Procedure wartosc_bezwzgledna; begin clrscr; writeln('Podaj liczbe: '); readln(a); writeln; writeln('Wartosc bezwzgledna z liczby ',a,' wynosi ',abs(a)); readkey; end; (* -------------------------- *) Procedure zaokraglenie; begin clrscr; writeln('Podaj liczbe: '); readln(b); writeln; writeln('Czesc ulamkowa (zaokraglenie w dol) z liczby ',b:2:1); textcolor(yellow); writeln('wynosi ',trunc(b),'.'); textcolor(lightgray); readkey; end; (* -------------------------- *) Procedure zaokraglenie2; begin clrscr; writeln('Podaj liczbe: '); readln(c); writeln; writeln('Zaokraglenie w gore liczby ',c:2:1); textcolor(yellow); writeln('wynosi ',round(c),'.'); textcolor(lightgray); readkey; end; (* ------------------------- *) Procedure zamiana; begin clrscr; write('Podaj litere a ja wskaze ci jej numer na tablicy ASCII: '); readln(d); writeln; writeln ('Litera ',d,' ma miejsce nr. ',ord(d)); readkey; end; (* ------------------------- *) Procedure parzystosc; begin clrscr; write('Podaj liczbe: '); readln(e); writeln; writeln('Wartosc TRUE = liczby nieparzyste'); writeln('Wartosc FALSE = liczby parzyste'); writeln; writeln('Liczba ',e,' ma wartosc ',odd(e)); readkey; end; (* ------------------------- *) Procedure nastepna; begin clrscr; write('Podaj litere: '); readln(f); writeln; writeln('Nastepna wartosc(litera) z listy to ',succ(f)); readkey; end; (* ------------------------- *) Procedure lancuchowy; begin clrscr; write('Menu dla typu string: '); writeln; writeln; writeln('1. Dlugosc w ciagu'); writeln('2. Zlaczanie tekstu'); writeln('3. Wyciaganie fragmentu ze slowa'); writeln('4. Pokazywanie podslowa'); writeln('5. Zwracam dlugosc wyrazu'); writeln('6. Kasuje czesc tekstu'); writeln; write('Wybrales: '); readln(g); clrscr; case g of 1:begin clrscr; h:='Polska'; writeln('Pierwsza litera nazwy kraju Polska to ',h[1]); writeln; writeln('Druga litera nazwy kraju Polska to ',h[2]); writeln; writeln('Trzecia litera nazwy kraju Polska to ',h[3]); writeln; writeln('Czwarta litera nazwy kraju Polska to ',h[4]); writeln; writeln('Piata litera nazwy kraju Polska to ',h[5]); writeln; writeln('Szosta litera nazwy kraju Polska to ',h[6]); end; // ----------------------------------- 2:begin clrscr; write('Podaj pierwszy lancuch: '); readln(i); write('Podaj drugi lancuch: '); readln(j); writeln; i:=i+j; writeln('Zlaczone teksty to slowo: ',i); end; // ----------------------------------- 3:begin clrscr; writeln('Podaj slowo: '); readln(k); writeln; l:=Copy (k, 2, 5); writeln('Twoje wyciete podslowo to: ',l); end; // ----------------------------------- 4:begin clrscr; write('Podaj slowo: '); readln(k); write('Podaj litere ktora mam wyszukac: '); readln(d); m:=Pos(d, k); writeln('Litera na pozycji ',m); end; // ------------------------------------ 5:begin clrscr; write('Podaj slowo: '); readln(k); m:=Length(k); writeln('Ilosc znakow w twoim fragmencie(wraz ze spacjami)to : ',m); end; // ------------------------------------- 6:begin clrscr; write('Podaj slowo: '); readln(k); Delete(k, 1, 4); writeln; writeln('Twoj tekst po usunieciu liter 1-4 to: ',k); end; // ------------------------------------- end; readkey; end; Procedure poczatek; begin REPEAT clrscr; writeln('Menu wyboru: '); writeln; writeln('1. Wartosc bezwzgledna ( abs )'); writeln('2. Zaokraglenie w dol (trunc )'); writeln('3. Zaokraglenie w gore (round )'); writeln('4. Zamiana zmiennej na wartosc ( ord )'); writeln('5. Parzysztosc liczby ( odd )'); writeln('6. Nastepna wartosc z listy ( succ )'); textcolor(yellow); writeln('7 Typ string'); textcolor(lightgray); writeln('8. Wylacz'); textcolor(lightgray); writeln; write('Wybrales: '); readln(wybor); clrscr; case wybor of 1:wartosc_bezwzgledna; 2:zaokraglenie; 3:zaokraglenie2; 4:zamiana; 5:parzystosc; 6:nastepna; 7:lancuchowy; end; UNTIL wybor=8; readkey; end; BEGIN poczatek; END. Download bez limitów Dziękuje i zapraszam na kolejne poradniki & programy mojego autorstwa. Jaspher © Maciej Sikorski, 2010 Wszelkie prawa zastrzeżone. |