Anonymní profil alex_laco – Programujte.com

Potreboval by som poradit ako zapisat co najjednoduchsie kod ktory ma vyskladat pozadovane cislo z troch cisiel.Napr: Mam cislo 13 a cisla 2,5,7 z ktorych cislo 13 mam vyskladat.Dakujem za napad...

#2 hlucheucho
Ďakujem už všetko ide ako má.

Dobrý deň.

Mám menší problém. Robím program ktorý bude prepočítavať peniaze na inakšú menu.

Ale mám problém že keď sa desatinné číslo vynásobí aj desiatkou tak to divne zapisuje.

program mena;
var SK, CZ, f, x: real;
    stat: String;


begin
   writeln('Chceš premeniť SK-CZ(SK) alebo CZ-SK(CZ)');
   readln(stat);
     if (stat = 'sk') then
       begin
         writeln('SK-CZ kolko ?');
         readln(f);
         writeln(f*27.445);
       end;
   readln();
end.

Připojen obrázek.

#9 hlucheucho
Ďakujem už to všetko funguje ako má. ;) V škole mi to ešte nevraveli lebo som ešte na základnej škole ale chystám sa ísť tou cestou. Páči sa mi tvoj štýl že nepovieš to hneď ale vysvetlíš a necháš nech na to dojdem sám ;) +1

#7 hlucheucho

Skúsil som toto ale stále to nejde. 

begin
          if (A>B) then
            begin
              if (B>C) then
                A1:=C;
                B2:=B;
                C3:=A;
                 else
                   begin
                    if (A>C) then
                    A1:=B;
                    B2:=C;
                    C3:=A;
                      else
                        A1:=B;
                        B2:=A;
                        C3:=C;
                   end;
            end;
           else
            begin
             if (B<C) then
              A1:=A;
              B2:=B;
              C3:=C;
                else
                 begin
                  if (A>C) then
                   A1:=A;
                   B2:=C;
                   C3:=B;
                     else
                       A1:=C;
                       B2:=A;
                       C3:=B;
                 end;
             end;
       end;

#5 hlucheucho
Ospravedlňujem sa ale neviem.

#2 Kit
Ahoj. Ďakujem. Středníky som tam už dal (No neviem či správne) a teraz mi to hádže toto.

Připojen obrázek.

A už neviem čo s tým. Možno je tam iba dáka blbosť. Program má slúžiť na zoradenie čísiel od najmenšieho po najväčšie. Celé to vyzerá takto.

program cisla2;
var A,B,C,A1,B2,C3,M1,M2,M3: integer;

begin
writeln('Napíš číslo A');
readln(A);
writeln('Napíš číslo B');
readln(B);
writeln('Napíš číslo C');
readln(C);
       begin
          if (A>B) then
            begin
              if (B>C) then
               A1:=C;
               B2:=B;
               C3:=A;
                else
                   if (A>C) then
                    A1:=B;
                    B2:=C;
                    C3:=A;
                      else
                        A1:=B;
                        B2:=A;
                        C3:=C;
             end;
           else
            begin
             if (B<C) then
              A1:=A;
              B2:=B;
              C3:=C;
                else
                  if (A>C) then
                   A1:=A;
                   B2:=C;
                   C3:=B;
                     else
                       A1:=C;
                       B2:=A;
                       C3:=B;
             end;
       end;

writeln(A1,'--',B2,'--',C3);
readln();

end.

Dobrý deň mám tento problém. Prosím poradili by ste mi ? 

Připojen obrázek.