Zavrieť

Porady

PASCAL a ACCESS

Cafte mam hotovy program na pascal,len mam k nemu spravit vyvojovy diagram a strukturogram mohliby ste mi pomoct prosim?

a este mam vacsi problem neviem robit v ms ACCESS mohol by mi niekto pomoct zozadanim navysku?

dakujem, prijimam mail aj SS

vdaka
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    sthruska je offline (nepripojený) sthruska

    sthruska
    MS Access má intuitívne grafické rozhranie. S tým nemôžeš mať problém. Napíš čo konkrétne potrebuješ vyriešiť. Takto Ti nikto nepomôže.

    kuklo je offline (nepripojený) kuklo

    kuklo
    mam ten isty problem... prosim vas ak to niekto viete pomozte mi ...na mna je to privela :-(


    program pascal;

    type zaznam=record
    pocet: integer;
    pouzita: boolean;
    end;

    var
    cislo, orig, cif_sucet, i, l, pocetcif, j: integer;
    pole: array[0..9] of zaznam;

    begin
    cif_sucet:=0;
    pocetcif:=0;

    for j:=1 to 9 do begin
    pole[j].pouzita:=false;
    pole[j].pocet:=0;
    end;

    write('Zadaj cislo: ');
    readln(cislo);
    orig:=cislo;

    while (cislo<>0) do begin
    i:=cislo mod 10;
    pole[i].pocet:=pole[i].pocet+1;
    pole[i].pouzita:=true;
    cif_sucet:=cif_sucet+i;
    cislo:=cislo div 10;
    pocetcif:=pocetcif+1;
    end;
    writeln('Cislo ', orig,' ma ', pocetcif, ' cifier, jeho ciferny sucet je ', cif_sucet);
    writeln('Usporiadane cislice: ');

    for j:=0 to 9 do
    if (pole[j].pouzita=true) then
    for i:=1 to pole[j].pocet do
    writeln(j);

    readln;
    end.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.