GRY-Online.pl --> Archiwum Forum

Pascal

13.12.2009
20:18
[1]

kajtek603 [ International Level ]

Pascal

Witam nie mogę sobie poradzić z napisaniem tego programu:
1-10 wyświetli imię
10-20 wyświetli nazwisko
w przeciwnym razie wyświetli klasę
Za pomoca if i case.

Mam coś takiego ale nie wiem jak zrobić żeby jeszcze klase wyświetlało dodać or i and.

program przedzial;
uses crt;
var x:integer;
begin
clrscr;
writeln('Podaj liczbe z przedzialu od 1 do 20');
readln(x);
If x<=10 then write('1i1')
else if x<=20 then write('1i1');
repeat until keypressed;
end.

13.12.2009
20:26
[2]

DEXiu [ Senator ]

Żadnych andów i orów nie musisz dodawać - wystarczy dopisać jeszcze jeden else. W ten sposób:

if x<=10 then write('1i1')
else if x<=20 then write('1i1')
else write('klasa');

13.12.2009
20:33
[3]

kajtek603 [ International Level ]

Dzięki działa :) A jak zrobić w case ?

© 2000-2024 GRY-OnLine S.A.