23-02-2008, smf, , programowanie
[ Pobierz całość w formacie PDF ]
------------------//Definiowanie i wy�wietalnie zmiennych.program Untitled;Uses CRT,DOS; //dodawanie bibliotekvarzmienna1:integer; //liczba calkowitabeginzmienna1:=10;write('zmienna1 jest roowna: ',zmienna1);readln; //ten crap wczytuje (i zatrzymuje program)end.------------------// wczytywanie zmiennychvarzmienna1, zmienna2:integer;beginwrite('prosze wpisac zmienna 1');read(zmienna1); //wczytujewrite('prosze wpisac zmienna 2');read(zmienna2);end.varzmienna1,zmienna2:integer;beginwrite('prosze wpisac zmienna 1: ');read(zmienna1);write('prosze wpisac zmienna 2: ');read(zmienna2);write('wpisales: ',zmienna1,' i ',zmienna2);read;end.------------------//kalkulatorprogram Untitled;Uses CRT,DOS;varzmienna1,zmienna2,wynik:real;beginwriteln('wpisz zmienna 1: ');readln(zmienna1);writeln('wpisz zmienna 2: ');readln(zmienna2);wynik:=zmienna1+zmienna2;writeln('wynik dodawania = ',wynik:10:2);wynik:=zmienna1-zmienna2;writeln('wynik odejmowania = ',wynik:10:2);wynik:=zmienna1*zmienna2;writeln('wynik mnozenia = ',wynik:10:2);wynik:=zmienna1/zmienna2;writeln('wynik dzielenia = ',wynik:10:2);readln;end.------------------//pola kola i prostopadloscianuprogram Untitled;Uses CRT,DOS;varr,a,b,c,wynik:real;beginwriteln('KOLO');writeln('wpisz promien kola: ');readln(r);wynik:=Pi*r*r;writeln('pole kola = ',wynik:5:1);writeln;writeln('PROSTOPADLOSCIAN');writeln('wpisz dlugosc boku a: ');readln(a);writeln('wpisz dlugosc boku b: ');readln(b);writeln('wpisz dlugosc boku c: ');readln(c);wynik:=2*(a*b+a*c+b*c);writeln('pole prostopadloscianu = ',wynik:5:1);readln;end.-----------------------//kalkulator z warunkiem ifprogram Untitled;Uses CRT,DOS;varzmienna1,zmienna2,wynik:real;beginwriteln('wpisz zmienna 1: ');readln(zmienna1);writeln('wpisz zmienna 2: ');readln(zmienna2);wynik:=zmienna1+zmienna2;writeln('wynik dodawania = ',wynik:10:2);wynik:=zmienna1-zmienna2;writeln('wynik odejmowania = ',wynik:10:2);wynik:=zmienna1*zmienna2;writeln('wynik mnozenia = ',wynik:10:2);IF zmienna2=0 THENbeginwriteln('nie dziali sie przez 0 noobie');endELSEbeginwynik:=zmienna1/zmienna2;writeln('wynik dzielenia = ',wynik:10:2);end;readln;end. [ Pobierz całość w formacie PDF ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl charloteee.keep.pl
------------------//Definiowanie i wy�wietalnie zmiennych.program Untitled;Uses CRT,DOS; //dodawanie bibliotekvarzmienna1:integer; //liczba calkowitabeginzmienna1:=10;write('zmienna1 jest roowna: ',zmienna1);readln; //ten crap wczytuje (i zatrzymuje program)end.------------------// wczytywanie zmiennychvarzmienna1, zmienna2:integer;beginwrite('prosze wpisac zmienna 1');read(zmienna1); //wczytujewrite('prosze wpisac zmienna 2');read(zmienna2);end.varzmienna1,zmienna2:integer;beginwrite('prosze wpisac zmienna 1: ');read(zmienna1);write('prosze wpisac zmienna 2: ');read(zmienna2);write('wpisales: ',zmienna1,' i ',zmienna2);read;end.------------------//kalkulatorprogram Untitled;Uses CRT,DOS;varzmienna1,zmienna2,wynik:real;beginwriteln('wpisz zmienna 1: ');readln(zmienna1);writeln('wpisz zmienna 2: ');readln(zmienna2);wynik:=zmienna1+zmienna2;writeln('wynik dodawania = ',wynik:10:2);wynik:=zmienna1-zmienna2;writeln('wynik odejmowania = ',wynik:10:2);wynik:=zmienna1*zmienna2;writeln('wynik mnozenia = ',wynik:10:2);wynik:=zmienna1/zmienna2;writeln('wynik dzielenia = ',wynik:10:2);readln;end.------------------//pola kola i prostopadloscianuprogram Untitled;Uses CRT,DOS;varr,a,b,c,wynik:real;beginwriteln('KOLO');writeln('wpisz promien kola: ');readln(r);wynik:=Pi*r*r;writeln('pole kola = ',wynik:5:1);writeln;writeln('PROSTOPADLOSCIAN');writeln('wpisz dlugosc boku a: ');readln(a);writeln('wpisz dlugosc boku b: ');readln(b);writeln('wpisz dlugosc boku c: ');readln(c);wynik:=2*(a*b+a*c+b*c);writeln('pole prostopadloscianu = ',wynik:5:1);readln;end.-----------------------//kalkulator z warunkiem ifprogram Untitled;Uses CRT,DOS;varzmienna1,zmienna2,wynik:real;beginwriteln('wpisz zmienna 1: ');readln(zmienna1);writeln('wpisz zmienna 2: ');readln(zmienna2);wynik:=zmienna1+zmienna2;writeln('wynik dodawania = ',wynik:10:2);wynik:=zmienna1-zmienna2;writeln('wynik odejmowania = ',wynik:10:2);wynik:=zmienna1*zmienna2;writeln('wynik mnozenia = ',wynik:10:2);IF zmienna2=0 THENbeginwriteln('nie dziali sie przez 0 noobie');endELSEbeginwynik:=zmienna1/zmienna2;writeln('wynik dzielenia = ',wynik:10:2);end;readln;end. [ Pobierz całość w formacie PDF ]