BitCell

Buna tuturor. Recent am inceput sa fac programarea in Pascal si o idee ma tot obsedeaza si nu resusesc sa ii dau de capat. Vreau sa fac un program gen un calculator, adica:
Optiunea 1. Suma a doua numere
Op 2 Produsul
.
.
Op x.O anumita operatie.
Vreau ca atunci cand cineva tasteaza numarul optiunii sa introduca a,b,c ...x si sa primeasca rezultatul.

Ceea ce nu stiu eu este cum sa fac sa leg optiunea X cu operatie respectiva.

Salut,

Poti sa ne arati ce ai incercat pana acuma ? Nu e asa greu de facut, dar totul depinde de ceea ce sti tu sa faci pana acuma in Pascal, intre timp uita-te peste topicul cu: Tutoriale Pascal (ideal ar fi sa le citesti).

P.S. Daca ai timp si chef, prezinta-te.

Pai cel mai simplu ar fi sa lucrezi cu subprograme (procedure cred ca este in pascal).
Lungimea codului va fi direct proportionala cu numarul operatiilor si cred ca nu numai lungimea ci si timpul de executie.
Eu as face in felul urmator:
In functia principala introduci numarul optiunii iar apoi, cu ajutorul instructiunii switch (nu stiu cum este in pascal, asa e in C), valoarea se duce la un anumit caz in care se afla apelarea unei functii (subprogram) iar functia reprezinta operatia respectiva. Mai concret: daca n (de exemplu) == 1, apeleaza functia adunare, daca n == 2, apeleaza functia produs s.a.m.d..
Eu cred ca voi reusi sa scriu codul in C++ dar nu cred ca te va ajuta la ceva daca tu studiezi pascal. Alte idei in afara de subprograme nu imi vin acum in minte...probabil intr-o structura repetitiva sa citesti n-ul si in acea structura sa ai mai multe structuri conditionale care sa execute operatia respectiva.
Ceva de genul: cat timp (n<>0) executa
citeste n
daca n==1
citeste a,b
scrie suma
daca n==2
citeste a,b
scrie produs
.............
Asa cred ca este cel mai simplu.
Bafta.

M-am gandit la ceva ca tot zicea cosmin daca fac ceva de genul:
program minicalculator;
var a,b,n:integer;
begin
writeln('Alegeti operatia din sir:');readln();
Writeln('1.Adunarea a doua numere;');readln();
writeln('2.Produsul a doua numere.');readln();
apoi de aici in jos sa pun doua conditii daca n=1 si apoi daca n=2.Asta ar putea merge?Daca da cum sa fac n?Adica de unde sa vada programul de unde sa-l ia.Ar fi fost mult mai simplu sa zic daca 1,2 atunci dar asa nu pot.MA rog poate ati inteles la ce ma refer.O sa mai lucrez maine dupa teza.

Tutorialul despre conditii si bucle ar trebui sa fie ce ai tu nevoie. Ai putea sa te uiti si peste meniul demonstrativ - s-ar putea sa te ajute.

Unde ai nelamuriri, intreaba

Spor la butonat !

L.E. in cazul expus de tine, structura "case" ar trebui sa-ti fie de ajutor (sau un IF multiplu).

Cum a spus si DarkByte, structura "case" ar trebuie sa iti fie de ajutor (e foarte usor de folosit). Pe langa "case" ai nevoie si de o structura "repeat" sau "while", din moment ce tu vrei sa alegi o optiune si sa execute ceva, sa alegi alta optiune si sa execute altceva etc.

Bafta

Offtopic

@DarkByte: Cu meniul demonstrativ, cred ca l-ai "zapacit" .

Am citit tutorialul cu instructiuni si bucle dar pentru nu prea am inteles.sa incerc sa vad totusi
din ce am inteles cred ca ar veni cam asa:
variabile
begin
writeln( alegi op de mai jos)
writeln(1.adunare)
writeln(1.produs)
case 1 of
si aici pun writeln(dati a );readln(a);
writeln(dati b );readln(b);
writeln(suma celor doua nr este ,a+b)
eu cam asa am inteles.

Da, e ok ... dar fiindca nu ai nicio instructiune de ciclare (bucla), se va executa o singura data - o singura operatie.

MIa iesit ceva dar inca am nelamuriri.Ecam greu sa inveti singur ce si cum fac astea mai ales cum nu se fac din clasa a 8a.pun ce am pana acuma.

in timp ce scriam acest post mi-a venit alta idee si am modificat rezultand asta, dar imi da niste erori ... poate ma puteti ajuta.


Poate reusesc sa-l fac si eu saptamana asta.

Pentru inceput, invata-te sa indentezi si sa spatiezi un program - te va ajuta la debugging. Si pe noi, la fel ...

Codul tau de mai sus (al doilea) ar trebui sa arate cam asa:


Acum se vede destul de clar unde ai greseli, nu ?

In primul rand, daca ai mai multe instructiuni pentru o ramura din case, foloseste begin - end si pune toate instructiunile inauntru. Deci ... writeln ala urmat de begin (apare in doua locuri - linia 9 si 16) NU e bun.

Alta problema ca ai un Witeln pe linia 13 ... probabil un WriteLn scris gresit.

Alta problema e ca niciun end nu se termina cu punct, in afara de ultimul - dar tu ai unul pe linia 14.

Ultima problema (din cate am vazut eu), e faptul ca nu ai inchis structura case - nu are "end" ... ar trebui sa fie undeva intre linia 22 si 23.

Rezolva greselile astea si incearca sa nu le mai faci altadata

Succes !

Offtopic

P.S. Daca ai intrat aici si ai copiat codul de mai jos, asigura-te ca ai inteles ce greseli ai facut. Nu o sa ti mai corectez inca o data !

Programul corectat ar trebui sa arate cam asa:

Line number On/Off | Expand/Contract | Select all

1. Program MiniCalculator;
2. var
3.   a, b, nr: integer;
4. begin
5.   Writeln('Selectia operatia din sirul de mai jos: '); readln();
6.   writeln('1. Aduna doua numere naturale; '); readln(nr);
7.   Writeln('2. Inmulteste doua numere naturale: '); readln(nr);
8.   case nr of
9.     1:
10.       begin
11.         writeln('Ati ales suma');
12.         writeln('Dati a: '); readln(a);
13.         writeln('Dati b: '); readln(b);
14.         writeln('Suma este: ',a + b); readln();
15.       end;
16.     else
17.       begin
18.         writeln('Ati ales produsul');
19.         writeln('Dati a: '); readln(a);
20.         writeln('Dati b: '); readln(b);
21.         writeln('Produsul este: ', a * b);
22.         readln
23.       end;
24.   end;
25. end.

Deci dupa o lunga perioada de inactivitate am revenit cu aceasta idee de aceasta data cu mai multe rezultate.Inca nu e terminat caci voi mai adauga cateva dar sunt fericit ca am reusit si asa.
L.E:in pascal e spatiat si se observa mai lejer.Ms DarkByte pentru sfat.

Foloseste tagul code cand postezi programe (citeste pe aici pentru mai multe informatii) - ti-am editat eu acum.

Legat de program : GOTO este nitel cam ... "ilegal". Citeste primul paragraf din tutorialul despre instructiuni conditionate si bucle. Foloseste un while sau un repeat in locul saltului neconditionat.

^ Apropo de "GO TO": ca și o lectură ușoară înainte de lăpticul ce precede somnicul, recomand un articol considerat de mulți ca fiind unul dintre cele mai de impact publicații din CS în urma căreia s-a abandonat trend-ul cu GO TO încă de la sfârșitul anilor '60 (cred) și anume "A Case against the GO TO Statement." a colosului Dijkstra.

Spor

^ Nu te-ai uitat in tutorialul de la mine, asa-i ?

Conform anumitor teorii, da.
Dar ... inca apare destul de frecvent, inclusiv in codul unor proiecte de mare vizibilitate.
De exemplu, in kernelul de linux (de pilda http://lxr.linux.no/#linux+v2.6.39/fs/hfsplus/dir.c#L105), unde se foloseste frecvent ca si mecanism de cleanup ... iar felul in care e folosit uneori chiar poate creste usurinta de a citi si intelege respectivul cod.

Da, morpheus, in anumite cazuri GO TO este chiar folositor (exceptia care confirma regula ?). However, in codul lui getlow12 de mai sus nu e cazul.

Am recitit, dar vai de capul meu. Oricum trebuia sa mentionez ca nu stapanesc TOT ceea ce e in program, cel putin inca. Apoi daca as folosi while cum ar trebui sa arate pentru a se reintoarce la meniul initial ? Va multumesc ca ajutati pe unul ca mine

Folosind repeat (bucla infinita si pastrand codul in ideea programului tau), codul ar trebui sa arate cam asa:



Pentru a folosi while, inlocuiesti linia (replace1) cu

si linia (replace2) cu

Dupa cum vezi, codul a devenit (relativ) mult mai scurt decat al tau (tine cont si de comentariile din cod) ... si este mai clar. Also, nici nu trebuie sa "vanezi" locurile din care se face saltul neconditionat (GOTO).

Am o curiozitate: de ce ai folosit ReadLn intr-un loc si ReadKey intr-altul ? Eu as fi mers cu ReadKey all the way.

P.S. nu am avut unde compila codul, deci e posibil sa-ti dea cine stie ce erori de compilare. Sper, totusi, sa nu fie cazul.

@DarkByte: Stai liniștit, am compilat eu codul și merge. I-ar mai trebui o opțiune de ieșire, gen: 3.Ieșire, și ceva mesaj în cazul în care ai tastat alt număr (bineînțeles aceste sarcini ii revin lui getlow12).

^ Good to know, thanks.

Optiunea de iesire ar fi buna, dar nu strict necesara - are una dupa ce a executat o operatie. Mesaj in cazul in care ai tastat ceva ce nu trebuie ar fi, in schimb, interesant

Bring it on, getlow12