Pascal - program sprawdzający pełnoletność

Dla specjalistów Programowanie
#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

#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:

#3

Chyba już wiesz co jest nie tak 8)

realdn --> readln

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

#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:

#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

#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ść.

#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:

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