Forum Komputerowe E-comp :: Jak napisać programy w pascalu?

MARCINWENCEL · Wysłany: 2007-12-29, 18:52

Jak mam napisac nastepujace programy w pascalu:
1. zgadywanka - komputer wymysla liczbe od -50 do 50. Odpowiadamy tak dlugo az trafimy.
w miedzyczasie podpowiada czy za duzo czy za malo

2. komputer pyta o imie. W odpowiedzi podaje plec.

3. Komputer pyta o wiek. Pyta tak dlugo az wiek bedzie parzysty

4. Komputer gra tak dlugo losowa melodie az wymysli dzwiek o wysokosci 200.

5. Komputer 10 razy pyta nas o slowo. Jesli slowo brzmi "ala" wydaje dzwiek

6. Komputer pyta nas o slowo maksymalnie 30 razy. Program sie konczy jesli
spytal juz 30 razy lub podalismy odpowiedz "ala ma kota"

Bardzo prosze o pomoc z gory dziekuje

davidiusss · Wysłany: 2007-12-29, 21:59

1 program:

Kod

program zgadywanka;

var wylosowana,moja:integer;

begin

randomize;

wylosowana:=random(100)-50;

repeat

 begin

 writeln('podaj liczbe');

 readln(moja);

 if wylosowana<moja then writeln('podales za duza liczbe')

 else

 if wylosowana>moja then writeln('podales za mala liczbe')

 else

 end;

until wylosowana=moja;

writeln('podales wlasciwa liczbe');

readln;

end.

4 program (powinien dzialac ale mam zwalony glosnik systemowy i nie moge sprawdzic :mrgreen:

):

Kod

program melodia;

uses crt;

var a:integer;

begin

randomize;

repeat

 a:=random(200);

 sound(a);

 delay(500);

 nosound;

until a=200;

writeln('koniec koncertu');

readln;

end.

jak jutro nie bede mial co robic to jeszcze cos napisze...

michaelxp91 · Wysłany: 2007-12-30, 02:33

Dobra, to tak...

Dwojeczka:

Kod

program imie;

uses crt;

var name: string;

var n: byte;

begin

clrscr;

				write('Podaj imie: ');

				readln(name);

				n := lenght(name);

				if name[n] = 'a' then

				begin

				writeln('Plec: kobieta.');

				end

				else

				begin

				writeln('Plec: mezczyzna.');

				end;

				repeat until keypressed;

end.

Trojka:

Kod

program wiek;

uses crt;

var w: byte;

begin

repeat

clrscr;

				write('Podaj wiek: ');

				readln(w);

				if (w mod 2 <> 0) then

until (w mod 2 = 0);

write('Podany wiek jest parzysty');

repeat until keypressed;

end.

Nie wiem jak sie robi dzwieki

A szostke moze jutro zrobie, dzisiaj pozno jest.

davidiusss · Wysłany: 2007-12-30, 12:49

ad.4
nie wiem czy zmienna "a" nie musi byc przypadkiem typu "word"
btw. nie jestem pewien czy takie niskie dzwieki (w zadaniu podane ze 200, moze powinno byc 2000) bedzie wogole slychac

zad.5: (z w/w powodu tez nie mam jak sprawdzic czy dziala)

Kod

program ala;

uses crt;

var i: integer;

    slowo: string;

begin

for i:=1 to 10 do

 begin

 clrscr;

 writeln('wpisz slowo');

 readln(slowo);

 if slowo='ala' then

  begin

  sound(2000);

  delay(500);

  nosound;

  end

 else end;

end.

i ostatnie:

Kod

program ala;

uses crt;

var i: integer;

    slowo: string;

begin

for i:=1 to 30 do

 begin

 clrscr;

 writeln('wpisz slowo/slowa');

 readln(slowo);

 if slowo='ala ma kota' then halt

 else end;

end.

zycze udanego sylwestra (czyt. spedzonego nie przy komputerze

)