x-kom hosting

Malutka Pomoc W Pascalu

AIR041992
utworzono
utworzono

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
komentarz

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ł :)

  • 2 tygodnie później...
shycat
komentarz
komentarz

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

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.