Tpascal pomoc

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

OK, I don't care

Chalesnik

ale vypis tich bankoviek musim spravit pre kazdeho zvlast a tam sa vzdy zamotam ...

ty sa zamotáš na vymenení cyklov? To je iba prehodenie dvoch riadkov

Chalesnik

preco to a je v const a plat len vo var nedalo by sa to dat spolu ?
a takto mi to vypisuje pre vsetkych spolu kolko bankoviek ale keby som chcel ze pre 1 vyplati treba tolko bankoviek pre 2 tolko pre 3 tolko....preto sa tak vela vypitujem lebo to budem musiet vysvetlovat a dost z tych prikazov sme sa este neucili ...

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:integer;
begin
     clrscr;
     for i:=0 to 2 do
         begin
         writeln('zadaj ',i+1,'. vyplatu');
         readln(plat[i]);
         end;
     for i:=0 to 2 do
         begin
         for j:=0 to 7 do
             begin
             writeln(a[j],'-',(plat[i] div a[j]));
             plat[i]:=plat[i] mod a[j];
             end;
         writeln;
         end;
     readln;
     end.

takto je to uzupravene, abyti to vypisovalo pre kazdeho osobitne, ak to este nemas. Const je tam akoze je to konstanta, cize sa to neda zmenit aje to aj preto,lebo inak nejde inicializovat pole. A daloby sa to aj hodit do var a potom plnit to pole az v programe, ale to je este zdlhavejsie. Druhe je pole platov. ia j su pouzite iba v cykloch for. clrscr jepremazanie obrazovky, prvy cyklus for je na nacitanieplatov,potom nasleduju tie dva for-y prvy je opakovanie pre kazdy plat a d ruhy pre kazdu bankovku. Vypis..bankovka-plat/hodnota bankovky, riadok podtym jeznizenie hodnoty platu o tu hodnotu co sme uz vypisali.

Sorry ale do komentov sami to nechcelo pridavat, aj ked bolo by to asi prehladnejsie

Chalesnik

diiki

//autoeditácia príspevku ( 04 Jun 2009, 12:05 )
ako tam dam este aby mi vypisalo este aj pocet bankoviek pre celu org ?... kao vsetky spolu ze zrata ?

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

Kód: Vybrať všetko

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,spolu,bank:integer;
begin
     spolu:=0;
     clrscr;
     for i:=0 to 2 do
         begin
         writeln('zadaj ',i+1,'. vyplatu');
         readln(plat[i]);
         end;

     writeln;

     for i:=0 to 2 do
         begin
         for j:=0 to 7 do
             begin
              bank:=plat[i] div a[j];
               if(bank>0) then writeln(a[j] ,' - ', bank);
              plat[i]:=plat[i] mod a[j];
               spolu:=spolu+bank;
             end;
         writeln;
         end;
     writeln;
     writeln('Spolu mame ',spolu,' bankoviek');

     readln;
     end.

- Zamedzil som vypisu bankoviek, ktore sa nepouzivaju. Ak to je zle, tak len zrus podmienku

Chalesnik

Zdravim nemohol by mi pomoct dakto mam od kamarata jedno zadanie na pascal potreboval by : Naprogramujte clovece nehnevaj sa hraju len dvaja hraci kazdy ma len jedneho panacika stlacenim enter pocitac generuje hodenie kocky. na zaciatku musi hrac cakat kym mu nepadne cislo 6 hra konci ak niektory z hracov dosiahol pocet prejdenych policok v intervale <42-45> a teda prisiel do ciela

picuge

Clovece v Pascale sa tu riesilo uz viackrat

Boli to trochu ine ulohy, ale tak modifikovat existujuce riesenie by uz nemal byt problem.

Napr.
http://www.hojko.com/potrebujem-pomoct- ... 74375.html
http://www.hojko.com/pascal-pohyb-t158318.html
http://www.hojko.com/post1636549.html#p1636549

BX · Príspevok od používateľa BX » 02 jún 2011, 10:21

Ak to chápem správne, tak tu netreba žiadny pohyb. Stačí len jeden cyklus, generovanie náhody, pár podmienok a sčítavanie premenných.
Ak je to takto, tak je to dosť ľahké zadanie. Ak sa to kamarát učí v škole, tak by to mal zvládnuť. Ak niečo nevie, nech príde a vyriešime to spolu. Robiť to ale za ňho celé by nemalo zmysel.

Tpascal pomoc

Re: Tpascal pomoc

Re: Tpascal pomoc

Re: Tpascal pomoc