Pascal - program sprawdzający pełnoletność


(szpon5) #1

Witam, w czwartek musiałem iść do lekarza i nie było mnie na lekcji programowania, a klasa robiła program który sprawdza pełnoletność. W pascalu jestem zielony bo dopiero zaczynam przygodę. Kolega nie napisał z tablicy wskazówek które pan podawał :evil: , więc proszę was o pomoc jak napisać program który sprawdzi czy jesteś pełnoletni, że napiszesz wiek a program odpowie czy jesteś pełno... czy nie. Ja próbowałem tak zacząć bo co nieco wiem.

Program pelnoletnosci;

uses crt;

var wiek:integer;

begin

clrscr;

if wiek<18 then writeln ('osoba niepełnoletnia');

end;

if wiek>18 then writeln ('osoba pełnoletnia');

realdn;

end.

Ale to nie działa, bardzo proszę o pomoc


(Rafallobocki) #2

Witam nikt za Ciebie nie zrobi zadania domowego :stuck_out_tongue:

Poczytaj o Instrukcjach warunkowch IF..THEN..ELSE a sam zrobisz :slight_smile: pozdro :wink:


(xtracom) #3

Chyba już wiesz co jest nie tak 8)

realdn --> readln


(andhla) #4

Prawie dobrze, ale "prawie" jak wiadomo robi wielką różnicę.

Program pelnoletnosci;

uses crt;

var wiek:integer;

begin

clrscr;

writeln('podaj wiek osoby');

readln(wiek);

if wiek<0 then

writeln ('podana wartość nie jest poprawna');

else

if wiek<18 then

writeln ('osoba niepełnoletnia');

if wiek>=18 then

write('osoba pełnoletnia');

if wiek>120 then

writeln (' i najprawdopodobniej już nie żyje');

readln;

end.


(szpon5) #5

Readln ja wpisywałem tylko niechcący na forum popełniłem błąd - przepraszam. Dzięki andhla już wiem rozumiem jak to zrobić a jeszcze chciałem się zapytać jak zmienić kolor. Na przykład, żeby komunikat nie jesteś osobą pełnoletnią był na czerwono. To chyba było:

textcolor (red) - tylko to też mi nie działa :oops:


(xtracom) #6

Zamiast nazwy koloru po angielsku podajesz nr koloru...

Tu masz listę:

0 -czarny,

1 -niebieski,

2 -zielony,

3 -zielony podobny do tła windows 98 po zainstalowaniu (na pulpicie)

4 - czerwony,

5 -Fioletowy,

6 -brązowy,

7 -j. szary,

8 -szary,

9 -j. niebieski,

10 -j. zielony,

11-j. cyan czyli jasny kolor nr 3,

12 -j. czerwony,

13 -j. fiolet,

14 -żółty,

15 -biały


(szpon5) #7

Ale u nas na lekcji, na tej lekcji jeszcze byłem. Podawali nazwę koloru po angielsku i to działało (tylko zapomniałem jak to robili). Nazwy a nr to dużo łatwiej, więc jak zrobić aby nazwy po EN działały.

Edycja: Już wiem, to był tak, textcolor(nazwa koloru);

Jeszcze mam ostatnią małą prośbę. Czy mógłby ktoś napisać mi program gdzie podajesz wiek i jest napisane, czy jesteś pełnoletni i jak nie jesteś to podaje za ile lat osiągniesz pełnoletność.


(Aschen) #8

program wiek;

uses crt;

var

wiek: integer;

begin

writeln('Podaj swoj wiek');

readln(wiek);

if wiek<0 then

writeln('Jeszcze sie nie urodziles');

if wiek>18 then

writeln('Jestes pelnoletni')

else

writeln('Jestes niepelnoletni a do pelnoletnosci brakuje Ci ', 18-wiek,' lat');

readln;

end.

Powinno chulać :slight_smile:


(L337 Crew) #9
uses crt;

var 

wiek: integer; 


begin 

write('Podaj swoj wiek: ');

readln(wiek);

if wiek<0 then 

   writeln('Jeszcze sie nie urodziles');

if wiek>=18 then

   writeln('Jestes pelnoletni')

else 

     writeln('Jestes niepelnoletni a do pelnoletnosci brakuje Ci ', 18-wiek,' lat');

readkey;

end.