segítség pascalba

[btomi002]

Hali a héten kaptam 1 beadandó házit és nem tudom hogy álljak neki a feladatnak:S

íme a feladat amit kaptam: Készíts programot ami egy logikai függvény igazságtáblázatát elkészíti ( max 4 változó ) !

Aki tud bármit is hozzászólni akkor azt nagyon szépen megköszönném:)

Üdv!

 

[SixHouse]

Hi!

 

Ennyi a feladatleírás?

 

Ez alapján Én ilyesmire gondolok:

Kapsz egy stringet

/pl.: (( a or b ) and ( not (c ) or d )) /és ezt kell feldolgozni.

Meg kell vizsgálni minden lehetséges interpretációt. ami itt 2^4.(16 )

 

Sztem ennyi a feladat. vagy eddig te is eljutottál csak nincs ötleted hogyan írd meg?

[btomi002]

Hali!!

utána jártam tanárom, hogy gondolja ezt az egészet, ime amire ő gondolt

pl: hogy a felhasználó ilyet ad meg, hogy a+b*c+d

és erre kellene megirni az igazság táblát és ennek az eredménye is kell!

amit még gondolt hozzá tanárom hogy zárójelek is legyenek benne.

én amugy valami vermes megoldásra gondoltam ami soronként megy és dolgozza ki az igazságtáblát.

 

ha valaki bármiféle segítséget tud nyújtani akkor nagyon megköszönném:)

üdv mindenkinek, további szép napot!

[SixHouse]

Ha jól tudom a műveleti jelek közt is vannak megfeleltetések, tehát a +,-,*,/ stb. valamijen operácó ami és, vagy, kizáró vagy na ezeket kellene kideríteni hogy melyik műveleti jel milyen logikai "döntést" hordoz és utána már sztem nem nehéz.

 

Na talán ezen el tudsz indulni:

http://www.tankonyvtar.hu/main.php?objectID=5318361

Módosította Április 27, 2009 SixHouse

[fsut]

üdv,

 

nemtom vki itt van e, de ha itt akkor válaszoljon pls! mert most kéne vmi progit írni nekem meg lövésem sincs

[SixHouse]

nemtom vki itt van e, de ha itt !*! akkor

 

!*! = 'van,'

 

vmi progit írni nekem meg lövésem sincs

program shooter;

uses crt; var shot:boolean;

BEGIN clrscr; shot := false;

if not(shot) then Write('no shooting');

[Marky18]

Program uberkiralyfps;
Uses uberkiralyfpsunit;

Begin
ukfstart;
if vege then ukfvege;
End.

 

Amíg nem mondod meg, mi kell, nem tudunk segíteni.

[Tosin]

Szevasztok valaki el tudná magyarázni a formális paramétereket??

[SixHouse]

Eljárások és függvények paramétere a deklaráció fázisában formális paraméter. Az eljárás ill. függvény aktivizálásakor ezek az aktuális paraméterrel helyettesít?dnek.

 

procedure stringalakito(sztringem:string; karakter:char; csere:char);
var i:integer;
Begin
 for i := 1 to  length(sztringem) do Begin
     if sztringem[i] = karakter then sztringem[i] := csere;
End;
End;

Ebben az eljárásban, ennek is a fej részében találhatók a formális paraméterek:

(sztringem:string; karakter:char; csere:char)

 

a főprogramban:

{s:string; c,d:char;}
stringatalakito(s,c,d);

Ebben a részben hívjuk meg az eljárást és átadjuk neki az aktuális paramétereket:

s,c,d

Ezeket a parmétereket "helyettesíti" be a formálisok helyére.

 

Próbáltam érthetően, remélem segít valamit.

[Tosin]

Kösszi. Ezt lérte kell hozni a deklarációs részbe is vagy csak a formális paramétereknél?

[SixHouse]

Nem kell deklarálni, de ezek a változók(formális paraméterek) csak az adott eljárásban használhatók és ebből az eljárásból hívott eljárásokban(ha nincs takarás).

[Tosin]

Azt nem értem hogyha a formális paraméterek is változok akkor miért kell külön létrehozni az eljárás deklarácios részében is változokat?

[SixHouse]

Procedure csinal(var x:integer; u:integer; var c:char; p:char);
var i,j:integer;<--ERRE A RÉSZRE GONDOLSZ??
Begin...end;

 

Ezek a változók amikor vége van az eljárásnak akkor az ezeknek a változóknak lefoglalt hely felszabadul.

 

vagy a főprogramban a deklarációs részre?

 

var x:integer; u:integer; var c:char; p:char

ezeket a változókat a főprogramban nem kell deklarálni

BEGIN