AIR041992 utworzono 10 listopada 2007 utworzono 10 listopada 2007 uses crt; var a:integer; begin clrscr; writeln('kalkulator'); writeln; write('a='); readln (a); case a of >0:writeln('dodatnia'); <0:writeln('ujemna'); 0:writeln('zero'); end; readln end. Oto moja próba zrobienia programu który ma wyświetlić czy liczba jest ujemna,dodatnia albo równa zeru.Musi być zrobiony w CASE a nie w IF w if zrobiłem juz i wygląda nastepująco: Uses crt; var a:real; begin clrscr; writeln('jaka to liczba'); writeln; write('a='); if a<0 then writeln('ujemna'); if a=0 then writeln('zero'); if a>0 then writeln('dodatnia'); readln; end. PROSZE O POMOC w napisaniu tego programiku.CZEKAM!!! z góry THX
onna komentarz 12 listopada 2007 komentarz 12 listopada 2007 W case musisz mieć wybór tzn menu wyboru. Zastanawiałam sie jakie to moze być menu i coś wymyśliłam: var a:real; wybor:byte;BEGIN writeln('Sprawdź czy liczba jest:'); writeln('1- dodatnia'); writeln('2-ujemna'); writeln('3- rowna zeru); writeln('Wybierz 1,2 lub3');readln(wybor);case wybor of 1:begin if a<0 then writeln('Liczba jest dodatnia') else writeln('Liczba nie jest dodatnia') end; 2:begin if a>0 then writeln('Liczba jest ujemna') else writeln('Liczba nie jest ujemna); end;3:begin if a=0 then writeln('Liczba jest rowna zero'); else writeln('Liczba nie jest rowna zero')endelsewriteln('Mozna wybrac tylko 1,2 lub 3');END. Może ktoś ma inny pomysł
shycat komentarz 25 listopada 2007 komentarz 25 listopada 2007 "onna" chyba nie o to chodzilo, AIRO potrzebuje raczej program, ktory sprawdzi czy wpisana przez uzytkownika cyfra/liczba jest wieksza od zera, mniejsza lub rowna zeru... nie znam zbyt dobrze, Pascala, poniewaz nigdy ten jezyk nie byl mi do niczego potrzebny, ale Twoj program o ile sie nie myle oczekuje na podanie cyfry z zakresu 1-3 - wnioskuje to po tym "writeln('Mozna wybrac tylko 1,2 lub 3');" ... pozatym uzywajac case nie uzywa sie "elsow" do podanych warunkow, ale okresla sie je w innych "czesciach" case... pozatym w Twoim programie jest swego rodzaju blad logiczny, bo wiadomo, ze dana wartosc (cyfra/liczba) moze byc jedynie wieksza od zera, mniejsza lub rowna jemu, nie ma innej opcji ;-) sa 3, u Ciebie robi sie ich 6 - przez dodanie eslow, o ktorych juz pisalem, pozdrawiam.
Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!
Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.