Tpascal pomoc

Chalesnik

zdravim chcel by som pomoct upravit tento program na to aby mi z toho suctu vypisalo aj kolko je to hodin .... dik

neutronmind

Hadam moze byt

program ja;
var s, i, min, hod, sec, x: integer;
begin
  s:=0;
  for i:=1 to 10 do
   begin
    write ('Zadaj cislo: ');
    readln(x);
    s:=s+x;
   end;
  writeln('Sucet cisel je: ',s);
  hod := s div 3600;
  min := (s - hod*3600) div 60;
  sec := s - hod*3600 - min*60;
  writeln('Zo suctu cisel je hodin: ', hod,', minut: ', min, ',sekund : ', sec);
  readln;
end.

Chalesnik

jasne moze len co je to div ?? lebo to sme sa asi neucili este takze mu to nemozem odovzdat s tim ... ucili sme sa len tie zakladne prikazy cikly podmienku a write atd....

tukilluki

div je celociselne delenie cize 5 div 2 vrati 2 lebo 5/2 je 2 zv 1. Operand mod vrati zvysok po celociselnom deleni cize 5 mod 2 vrati 1.

Chalesnik

a keby som tam dal miesto toho div normalne delenie tak to nevinde ?
alebo proste spravit to dako podla cyklu ci to nejde ??

BX · Príspevok od používateľa BX » 14 apr 2009, 17:56

normalne delenie pri integer nieje. Je iba div a mod
Ak to chces len pomocou cyklov, urob si algoritmus pre delenie len pomocou scitania a odcitania premennych (len neviem ci by si to zvladol

)

-> povedz ucitelovy, ze sa ti s tym nechcelo srat, tak si si kukol nejaky prikaz naviac

Chalesnik

aha oki aj tak diki ...

... hadam mi to uzna

neutronmind

Asi ste nepozerali do toho zdrojaku, ale on to mal predtym pomocou cyklov... Samozrejme da sa to spravit aj s tym, len je to zbytocne dlhsie...

Chalesnik

zdravym ak by sa niekto nudil mohol by mi pomoct s tymto programom...
Program v Pascale- Hra kameň, papier, nožnice
Naprogramujte hru kameň, papier, nožnice. Používateľ zvolí počet hier. Počítač hrá za oboch hráčov t. j. náhodne generuje, či hráč ukázal kameň, papier alebo nožnice. Nožnice vyhrávajú nad papierom, papier nad kameňom a kameň nad nožnicami. Vypíše sa každá hra a kto celkovo zvíťazil

BX · Príspevok od používateľa BX » 01 jún 2009, 16:42

Daj mi sekundu za chvilu si to tu najdes (editnem prip)

// s takym nadsenim som sa do toho pustil a po chvili som zistil, ze dhnes som uplne vymlety

Neviem ci je to uplne super riesenie, ale dnes sa na viac nezmozem

Funguje to a to je hlavne

- .pas nieje potrebne, je to kratke. Mas am repeat-until #27 -> to je do stlacenia Esc (keby nahodou)

Uz si to uprav ako potrebujes, dufam ze to zvladnes...

Kód: Vybrať všetko

uses crt;
var a,b:integer;

begin
     clrscr;
     randomize;
      repeat

     a:=random(3);
     b:=random(3);

      case a of
              0 : write('kamen vs.');
              1 : write('papier vs.');
              2 : write('noznice vs.');
      end;

      case b of
               0 : write('kamen');
               1 : write('papier');
               2 : write('noznice');
      end;

     if (a=0)and(b=0) or (a=1)and(b=1) or (a=2)and(b=2) then write(' ... remiza!');

     if (a=0)and(b=1) or (a=1)and(b=0) then write(' ... vyhra | papier');
     if (a=0)and(b=2) or (a=2)and(b=0) then write(' ... vyhra | kamen');
     if (a=1)and(b=2) or (a=1)and(b=2) then write(' ... vyhra | noznice');

     writeln;
      until(readkey=#27);
     readkey;
end.

Chalesnik

diki budem ti velmo vdacny

//autoeditácia príspevku ( 01 Jun 2009, 17:07 )
a co je to scrcrl ci ako to tam je hore pls ?

zmazanie obrazovky

BX · Príspevok od používateľa BX » 01 jún 2009, 18:44

Clear-screen

Chalesnik

nespravi niekto toto pls ak budete mat cas ?

najprv zadame 3 cisla to budu ako vyplaty Účtovníčka robí výplaty pre 3 zamestnancov. Potrebuje zistiť, aké mince a bankovky bude potrebovať na výplatu.
Výpisom z programu bude počet mincí a bankoviek pre každého zamestnanca a na záver počet mincí a bankoviek za celú organizáciu.

BX · Príspevok od používateľa BX » 02 jún 2009, 16:56

Skus to urobit sam a my ti potom upravime co a ako

Nemozes sem chodit a urobte mi toto a urobte mi toto... Toto su lahke veci co musi zvladat kazdy, kto sa stretava s programovanim.
Dam ti aspon akoo taky postup.

zadas vyplaty, napr 454. Delis 50(50€ bankovka) kym bude vysledok mensi ako 50, teda uz nemozes vyplatit 50€ bankovku. Tak zacnes delit 20€ bankovkou a tak dalej

neutronmind

Alebo jednoduchsie riesnie v konstantnom case:
nacitas cislo x
vypises, ze potrebuje x jednoeurovych minci

BX · Príspevok od používateľa BX » 02 jún 2009, 17:34

neutronmind: dotycny uz je z toho dost domotany, nemotaj ho este viac

picuge

Kód: Vybrať všetko

program p11;
uses crt;
const a: array[0..7] of integer = (500,100,50,20,10,5,2,1);
var    plat:array[0..2] of integer;
    i,j,p:integer;
begin
     clrscr;
     for i:=0 to 2 do
         begin
         writeln('zadaj ',i+1,'. vyplatu');
         readln(plat[i]);
         end;
     for j:=0 to 7 do
         begin
         for i:=0 to 2 do
             begin
             p:=p+plat[i] div a[j];
             plat[i]:=plat[i] mod a[j];
             end;
         writeln(a[j],'-',p);
         p:=0;
         end;
     readln;
end.

Aj ked je to len tak v rychlosti natukane, takze je mozne, ze to bude treba trochu doladit

BX · Príspevok od používateľa BX » 02 jún 2009, 18:52

picuqe mohol si ho nechat nech to urobi sam

picuge

No a myslis, ze by to v konecnom dosledku sam aj urobil?

Keby som bol ja v jeho situacii, tak bud tu otravujem dalej, alebo by som zasiel na ine forum a skusal tam a myslim, ze ak to v skutocnosti vediet nepotrebuje(napr. maturita), len to potrebuje mat vyriesene, tak je to takto jednoduchsie. A ak to potrebuje vediet, tak sa mu to mozno vypomsti a potom sa uvedomi