24-02-2008, smf, , programowanie
[ Pobierz całość w formacie PDF ]
----------------------------// gotowe dzialania z case i ifprogram Untitled;Uses CRT,DOS;vara,b,wynik:real;vardzialanie:char;beginwrite('T3H DZ1ALAN1A 4 N00BZ');writeln;writeln;writeln('liczba a: ');readln(a);writeln('znak dzialania: ');readln(dzialanie);writeln('liczba b: ');readln(b);CASE dzialanie OF'+':beginwynik:=a+b;write('wynik dzialania ', a:5:2, ' +', b:5:2, ' = ', wynik:5:2);end;'-': beginwynik:=a-b;write('wynik dzialania ', a:5:2, ' -', b:5:2, ' = ', wynik:5:2);end;'*': beginwynik:=a*b;write('wynik dzialania ', a:5:2, ' *', b:5:2, ' = ', wynik:5:2);end;'/': beginwynik:=a/b;IF b=0 THENbeginwriteln('Nie dzieli sie przez 0 nup');endELSEbeginwriteln('wynik dzialania ', a:5:2, ' /', b:5:2, ' = ', wynik:5:2);end;end;elsewriteln('znak dzialania musi byc +, -, * lub /.');end;readln;end.------------------------------// dzialania + pytanieprogram Untitled;Uses CRT,DOS;vara,b,wynik:real;vardzialanie,pytanie:char;beginwrite('T3H DZ1ALAN1A 4 N00BZ');REPEATwriteln;writeln;writeln('Liczba a: ');readln(a);writeln('Znak dzialania: ');readln(dzialanie);writeln('Liczba b: ');readln(b);CASE dzialanie OF'+':beginwynik:=a+b;write('Wynik dzialania ', a:5:1, ' +', b:5:1, ' = ', wynik:5:1);end;'-': beginwynik:=a-b;write('Wynik dzialania ', a:5:1, ' -', b:5:1, ' = ', wynik:5:1);end;'*': beginwynik:=a*b;write('wynik dzialania ', a:5:2, ' *', b:5:2, ' = ', wynik:5:2);end;'/': beginIF b=0 THENbeginwriteln('Nie dzieli sie przez 0 nup');endELSEbeginwynik:=a/b;writeln('wynik dzialania ', a:5:2, ' /', b:5:2, ' = ', wynik:5:2);end;end;elsewriteln('znak dzialania musi byc +, -, * lub /.');end;writeln;writeln;writeln('Czy chcesz jeszcze cos policzyc?');writeln;writeln('t albo n:');readln(pytanie);UNTIL pytanie<>'t';end. [ Pobierz całość w formacie PDF ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl charloteee.keep.pl
----------------------------// gotowe dzialania z case i ifprogram Untitled;Uses CRT,DOS;vara,b,wynik:real;vardzialanie:char;beginwrite('T3H DZ1ALAN1A 4 N00BZ');writeln;writeln;writeln('liczba a: ');readln(a);writeln('znak dzialania: ');readln(dzialanie);writeln('liczba b: ');readln(b);CASE dzialanie OF'+':beginwynik:=a+b;write('wynik dzialania ', a:5:2, ' +', b:5:2, ' = ', wynik:5:2);end;'-': beginwynik:=a-b;write('wynik dzialania ', a:5:2, ' -', b:5:2, ' = ', wynik:5:2);end;'*': beginwynik:=a*b;write('wynik dzialania ', a:5:2, ' *', b:5:2, ' = ', wynik:5:2);end;'/': beginwynik:=a/b;IF b=0 THENbeginwriteln('Nie dzieli sie przez 0 nup');endELSEbeginwriteln('wynik dzialania ', a:5:2, ' /', b:5:2, ' = ', wynik:5:2);end;end;elsewriteln('znak dzialania musi byc +, -, * lub /.');end;readln;end.------------------------------// dzialania + pytanieprogram Untitled;Uses CRT,DOS;vara,b,wynik:real;vardzialanie,pytanie:char;beginwrite('T3H DZ1ALAN1A 4 N00BZ');REPEATwriteln;writeln;writeln('Liczba a: ');readln(a);writeln('Znak dzialania: ');readln(dzialanie);writeln('Liczba b: ');readln(b);CASE dzialanie OF'+':beginwynik:=a+b;write('Wynik dzialania ', a:5:1, ' +', b:5:1, ' = ', wynik:5:1);end;'-': beginwynik:=a-b;write('Wynik dzialania ', a:5:1, ' -', b:5:1, ' = ', wynik:5:1);end;'*': beginwynik:=a*b;write('wynik dzialania ', a:5:2, ' *', b:5:2, ' = ', wynik:5:2);end;'/': beginIF b=0 THENbeginwriteln('Nie dzieli sie przez 0 nup');endELSEbeginwynik:=a/b;writeln('wynik dzialania ', a:5:2, ' /', b:5:2, ' = ', wynik:5:2);end;end;elsewriteln('znak dzialania musi byc +, -, * lub /.');end;writeln;writeln;writeln('Czy chcesz jeszcze cos policzyc?');writeln;writeln('t albo n:');readln(pytanie);UNTIL pytanie<>'t';end. [ Pobierz całość w formacie PDF ]