pls radu

Denco1 · Napísal **Denco1**: 07.01.2009 15:58

takze caute ... potreboval by som radu ohladom pascalu ... za prve nepytajte sa preco robim taky program ako robim je to pre moje potresenie ze neco dokazem

... chcem spravit program, v ktorom si vyberte moznost vzorca (z fyziky) a ptm podla jednotky ktorej urcite nulu tak sa bude pocitat podla toho vzorca ... tak som spravil proceduru na zapis prikladu a proceduru na vypocet ... ibaze problem je v tom ze vo vypocte vzdy zapisuje jednotku ... mam ich oznacene ako jednotka1, jednotka2. jednotka3 ... no a vzdy napisem pred prikladom jednotka1 je to a to a atd ... a ptm to iste musim dat aj do dalseho vzorca aby isla procedura .... (aby som nemusel na kazdy vzorec robit samotny vypocet a samotny zapis) ... a ked ptm pustim program vyberem jeden vzorec tak mi vypocita vsetky ktore tam mam pretoze v kazdom je urcena jednotka1 jednotka2 jednotka3 ... tak ako mam spravit aby mi pre kazdy vzorec ostalo oznacne jednotka 1 atd ale tak aby vzdy pocital iba ten jeden vzorec ... nwm ci rozumite co cem ale sak skuste

:D

neutronmind · Napísal **neutronmind**: 07.01.2009 16:26

Skus poslat zdrojovy kod.

Skusim si ho spustit a hadam ten problem najdem(lebo v tom popise som ho akosi nenasiel

).

Denco1 · Napísal autor témy **Denco1**: 07.01.2009 16:32

Kód:

program Vzorce;
uses crt;
var jednotka1, jednotka2, jednotka3: string;
    hodnota1, hodnota2, hodnota3: integer;
                           cislo: integer;



procedure vypocet;
 begin
  begin
   if hodnota1 = 0 then
    begin
     writeln(jednotka1, ' = ', jednotka2, ' : ', jednotka3);
     writeln(jednotka1, ' = ', hodnota2, ' : ', hodnota3);
     writeln(jednotka1, ' = ', hodnota2/hodnota3:5:2);
     writeln('Rýchlosť je ', hodnota2/hodnota3:5:2);
    end;


   if hodnota2 = 0 then
    begin
     writeln(jednotka2, ' = ', jednotka1, ' . ', jednotka3);
     writeln(jednotka2, ' = ', hodnota1, ' . ', hodnota3);
     writeln(jednotka2, ' = ', hodnota1*hodnota3);
     writeln('Dráha je ', hodnota1*hodnota3);
    end;

   if hodnota3 = 0 then
    begin
     writeln(jednotka3, ' = ', jednotka2, ' : ', jednotka1);
     writeln(jednotka3, ' = ', hodnota2, ' : ', hodnota1);
     writeln(jednotka3, ' = ', hodnota2/hodnota1:5:2);
     writeln('Čas je ', hodnota2/hodnota1:5:2);
    end;
  end;
  readln;
 end;


begin
  begin
clrscr;
writeln('Vyberte, s ktorým zo vzorcov chcete pracovať (stlačením príslušného čisla.');
writeln('1. vzorec pre rýchlosť');
writeln('2. vzorec pre tiaž telesa');
readln(cislo);
  end;


        begin
         jednotka1:='v';
         jednotka2:='s';
         jednotka3:='t';

          if cislo = 1 then
           begin
            clrscr;
            writeln('Zadajte hodnoty (za hodnotu, ktorú nepoznáme zadáme 0):');
            write('v = ');
            readln(hodnota1);
            write('s = ');
            readln(hodnota2);
            write('t = ');
            readln(hodnota3);
            writeln('----------------');
           end;
        end;
            begin
             vypocet;
            end;




        begin
         jednotka1:='m';
         jednotka2:='G';
         jednotka3:='g';


          if cislo = 2 then
           begin
            clrscr;
            writeln('Zadajte hodnoty: ');
            write('m = ');
            readln(hodnota1);
            write('G = ');
            readln(hodnota2);
            write('g = ');
            readln(hodnota3);
            writeln('---------------');
           end;
        end;
            begin
             vypocet;
            end;
        readln;

end.

co sa tyka inych veci ako co som cel tak nevsimaj som zaciatocnik a dufam ze si pochopil co som cel

neutronmind · Napísal **neutronmind**: 07.01.2009 17:24

No mas to riesenie dost cudne imho. Nechapem naco su ti tam niektore bloky begin a end. Najlepsie by asi bolo, ak by si si spravil este nejaku dalsiu proceduru, ktora by ti nacitavala tie hodnoty. A jednotky poukladat do pola. Ked budem mat neskor viac casu tak ti to popisem obsirnejsie... :rolleyes:

Denco1 · Napísal autor témy **Denco1**: 07.01.2009 17:26

no hej jednotky do pola skusal a neslo tak asi nwm ako ... skusal vselico a nic tak asi nwm ako ... a vies co od teba cem ze?:D

neutronmind · Napísal **neutronmind**: 07.01.2009 17:29

Myslim, ze hej - to ze nejde ten druhy vzorec, nie? :rolleyes:

A inak diakritiku v Pascale nepouzivaj.

Denco1 · Napísal autor témy **Denco1**: 07.01.2009 17:52

ne on ide ale ked vyberem jednotku - vzorec pre rychlost tak vypocita aj druhy a vypocital by vsetky ostatne pretoze v oboch som dazal jednotka1 atd cize on bere jednotka1 ze je "v" a aj "m" .... cize ako spravit aby to tak nebral ale aby to fungovalo s procedurou vypocet ... aby som nemusel pre kazdy vzorec pisat zvlast vypocet

stopa27 · Napísal **stopa27**: 07.01.2009 19:27

mas tam zle bloky.
begin
vypocet;
end;
uz nie je v bloku, pre ktory sa vztahuje podmienka if cislo=nieco then
tebe staci presunut tieto prikazy za prikaz writeln('-------');

// a odnauc sa pouzivat tolko beginov a endov, vedie to k chybam, ako vidis

Denco1 · Napísal autor témy **Denco1**: 07.01.2009 20:32

jee super diki ide to

a ece by som sa chcel spytat ako tam mam to ze vyberte pismeno tak neda sa nejak spravit ze ked slaci cislo na klavesnici tak aby sa nenapisalo a tpm ece treba zmagnut enter ale aby ibba ked zmagne napr 1 tak hned ho to hodi kam treba ?

stopa27 · Napísal **stopa27**: 07.01.2009 20:38

preloz to do slovenciny a potom mozno pochopim

neutronmind · Napísal **neutronmind**: 07.01.2009 20:59

Ja asi viem co potrebuje, skus namiesto readln(cislo) dat cislo:=readkey; :rolleyes:

pls radu

Podobné témy