BitCell

by **getlow12** » 07 Jul 2011, 11:06

O sa incerc. Deja am o idee, dar nu stiu cat de corecta e si nu prea stiu sa o integrez pentru tot programul (???). Ideea mea e in felul urmator: mai pun o variabila pe un sir array ce contine ASCII pentru toate tastele in afara de cele numerice si apoi If x (fiind var. respctiva) then writeln('Nu ati apasat ceea ce trebuia') else Continue dar sunt in ceata putin. O sa incerc si o sa mai postez pe parcursul zilei.

by **DarkByte** » 07 Jul 2011, 11:08

O sa te trimit, din nou, la tutorial

Nu vad de ce te-ai complica cu array-uri, cand poti folosi else la structura case.

Spor !

by **getlow12** » 07 Jul 2011, 11:56

Deci DarkByte mersi mult(iar).

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

   Program Calculator;
   Uses Crt;
 
   var      SEL, a, b: integer;
            YN:char;
 
    begin
       repeat
          Clrscr;
          Writeln('Alegeti operatia corepunzatoare din lista de mai jos: ');
          Writeln('[1]. Adunarea a doua numere');
          Writeln('[2]. Scaderea a doua numere');
            readln(SEL);
            case SEL of
              1:
                begin
                  writeln('Ati ales adunarea!');
                  writeln('Dati primul nr: ');readln(a);
                  writeln('Dati cel de-al doilea nr: ');readln(b);
                  writeln('Suma celor doua numere este: ',a+b);
                end;
              2:
                begin
                  writeln('Ati ales scaderea!');
                  Writeln('Dati primul nr: ');readln(a);
                  writeln('Dati cel de-al doilea nr: ');readln(b);
                  Writeln('Diferenta celor doua numere este: ',a-b);
                end;
                Else
                writeln('Ai facut o alegere invalida'); 
            end;
 
            Delay(2000);
            Writeln(#13#10 + 'Doriti sa reveniti la meniul initial (Y / N) ?');
            YN := Readkey;
            case YN of
              'y', 'Y':
                begin
                  writeln('Veti reveni la meniul initial');
                  Delay(1000);
                end;
              'n', 'N':
                begin
                  Writeln('Nuuuuuuu.....');
                  Delay(1000);
                  Break;
                end;
             end;
          until False;
        end.
 
 

Asta e codul pentru cazul in care ai tasta ceva mai mare ca 2. Dupa ce am vazut unde trebuia pus else nu a fost decat o linie scrisa. Dar daca as vrea sa aibe acelasi efect pentru toate tastele inafara de cele doua numerice? Ce ar trebui sa am in vedere cand modific?

by **DarkByte** » 07 Jul 2011, 11:59

Problema ta nu e la case, ci e faptul ca optiunea ta (1 sau 2) o citesti intr-o variabila integer. Daca nu primesti cifra la rularea programului, citirea variabilei crapa si ia tot programul dupa ea.

Varianta else de la case se ocupa de toate cazurile de care nu te ocupi tu in mod explicit. Solutia e destul de simpla: modifica prima structura case si adu-o la forma celei de-a doua (care foloseste citire pe caractere - ReadKey, as I said

).

Bafta

by **getlow12** » 08 Jul 2011, 14:05

Nu prea imi dau seama cum sa fac ce ai zis, DarkByte. Ma puteti ajuta cu o idee sau un inceput?

by **DarkByte** » 08 Jul 2011, 14:13

Avand in vedere ca nu prea mare chestie, nu am ce (alta) idee sa-ti dau, asa ca iti postez codul:

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

Program Calculator;
Uses Crt;
 
var a, b: integer;
    option: char;
 
begin
  repeat
    Clrscr;
    Writeln('Alegeti operatia corepunzatoare din lista de mai jos: ');
    Writeln('[1]. Adunarea a doua numere');
    Writeln('[2]. Scaderea a doua numere');
 
    option := ReadKey; { citim caracter (Char), nu citim numar (Integer) }
    case option of
      '1':
        begin
          writeln('Ati ales adunarea!');
          writeln('Dati primul nr: ');readln(a);
          writeln('Dati cel de-al doilea nr: ');readln(b);
          writeln('Suma celor doua numere este: ',a+b);
        end;
      '2':
        begin
          writeln('Ati ales scaderea!');
          Writeln('Dati primul nr: ');readln(a);
          writeln('Dati cel de-al doilea nr: ');readln(b);
          Writeln('Diferenta celor doua numere este: ',a-b);
        end;
      else writeln('Ai facut o alegere invalida');
    end;
 
    Delay(2000);
    Writeln(#13#10 + 'Doriti sa reveniti la meniul initial (Y / N) ?');
    option := Readkey;
    case option of
      'y', 'Y', #13: {#13 este Enter}
        begin
          writeln('Veti reveni la meniul initial');
          Delay(1000);
        end;
      'n', 'N', #27: {#27 este Escape}
        begin
          Writeln('Nuuuuuuu.....');
          Delay(1000);
          Break;
        end;
    end;
  until False;
end.

Dupa cum vezi, am redenumit "YN" al tau in "option" si l-am folosit in ambele locuri - si la verificarea daca e adunare sau scadere ... si la continuare sau iesire. Cam asta-i tot ...

Bafta

BitCell

Program pascal "mini calculator"

Re: Program pascal "mini calculator"

Re: Program pascal "mini calculator"

Re: Program pascal "mini calculator"

Re: Program pascal "mini calculator"

Re: Program pascal "mini calculator"

Re: Program pascal "mini calculator"

Who is online