Pascal - need help

gh0st · Napísal **gh0st**: 02.04.2008 15:58

Zdravim vsetkych , potreboval by som do dnesneho vecera spravit toto zadanie pascalu:

)

GoodWill · Napísal **GoodWill**: 02.04.2008 16:22

Tvoja lenivost/neschopnost ma udivuje... Ani len ten text nie si schopny prepisat a cloveka ktory by ti bol ochotny pomoct a urobit za teba zadanie na ktore si sa vyflakol (a riesis to na poslednu chvilu) nutis stahovat pol megovy obrazok.

zamysli sa nad sebou

gh0st · Napísal autor témy **gh0st**: 02.04.2008 16:54

Kedze GoodWill ma pravdu a nemohol som najst edit prispevku tak sem davam ešte raz to zadanie:

Zostavte algoritmus a program, ktorý načíta 8-mieste číslo od užívateľa(kontroluje dĺžku čísla, či nezadal viac/menej cifier), vypočíta a vypíše počet totožných prvkov v danom čísle, rovnako tak aj súčet párnych prvkov v danom čísle a nakoniec zoradí a vypíše čísla vzostupne. Všetky výpisy sú realizované aj do súboru aj na obrazovku. Napr. zadané číslo 12333154 má 5 totožných prvkov, súčet párnych prvkov je 6, a zoradenie: 11233345.

to zoradenie čísla by sa dalo spraviť možno týmto algoritmom

Kód:

http://www.trsek.com/zadania/bublinkove_triedenie

ale nepodarilo sa mi ho správne prepísať na vzostupné zoradenie

GoodWill · Napísal **GoodWill**: 02.04.2008 17:34

Nemam debuger, takze tam mozno budu nejake chybky, ale to uz odladis. Priblizne takto by to mohlo fungovat:

Kód:

program bublinkove_triedenie;
type prvok=integer;
     index=0..100;
var i,j,k,n:index;
    x:prvok;
    pocet_totoznych:prvok;
    sucet_parnych:prvok;
    a: array[index] of prvok;
begin
     writeln('Program na zostupne usporiadanie ciselneho pola bublinovym triedenim.');
     write('Zadaj pocet prvkov:');
     readln(n);
     writeln('Zadaj ',n,' prvkov: ');
     for i:=1 to n do
         begin
            write(i,'.:');
            readln(a[i]);
         end;
     for i:=1 to n do
         begin
              for j:=1 to N-1 do
                  if a[j]>a[j+1] then
                     begin
                         x:=a[j];
                         a[j]:=a[j+1];
                         a[j+1]:=x;
                     end;
         end;

     sucet_parnych:=0;
     pocet_totoznych:=0;

     write('Zoradenie podla velkosti: ');
     for i:=1 to n do
         begin
            write(a[i],',');
            
            if (i>1) and (a[i-1]=a[i]) then
                begin
                    pocet_totoznych:=pocet_totoznych+1;
                end;
            if (i<n) and (a[i]=a[i+1]) then
                begin
                    pocet_totoznych:=pocet_totoznych+1;
                end;
            
            
            if a[i] mod 2 = 0 then
                begin
                    sucet_parnych:=sucet_parnych + a[i];
                end;
            
         end;

     writeln('');
     write('Pocet totoznych: ',pocet_totoznych);

     writeln('');
     write('Sucet parnych: ',sucet_parnych);
         
     writeln; readln;
end.

gh0st · Napísal autor témy **gh0st**: 02.04.2008 17:54

ďakujem pekne za pomoc, nech ti žehná programátorky boh

GoodWill · Napísal **GoodWill**: 02.04.2008 18:03

No

Akurat je to zle... Este to bude chciet drobnu opravu

Dam to sem radsej cele znova... a to uz snad bude dobre. Ak nie, tak pardon, pascal som nevidel aspon 10 rokov.

Kód:

program bublinkove_triedenie;
type prvok=integer;
     index=0..100;
var i,j,k,n:index;
    x:prvok;
    pocet_totoznych:prvok;
    sucet_parnych:prvok;
    a: array[index] of prvok;
begin
     writeln('Program na zostupne usporiadanie ciselneho pola bublinovym triedenim.');
     write('Zadaj pocet prvkov:');
     readln(n);
     writeln('Zadaj ',n,' prvkov: ');
     for i:=1 to n do
         begin
            write(i,'.:');
            readln(a[i]);
         end;
     for i:=1 to n do
         begin
              for j:=1 to N-1 do
                  if a[j]>a[j+1] then
                     begin
                         x:=a[j];
                         a[j]:=a[j+1];
                         a[j+1]:=x;
                     end;
         end;

     sucet_parnych:=0;
     pocet_totoznych:=0;

     write('Zoradenie podla velkosti: ');
     for i:=1 to n do
         begin
            write(a[i],',');
            
            if ((i>1) and (a[i-1]=a[i]) or
                (i<n) and (a[i]=a[i+1])) then
                begin
                    pocet_totoznych:=pocet_totoznych+1;
                end;
            
            
            if a[i] mod 2 = 0 then
                begin
                    sucet_parnych:=sucet_parnych + a[i];
                end;
            
         end;

     writeln('');
     write('Pocet totoznych: ',pocet_totoznych);

     writeln('');
     write('Sucet parnych: ',sucet_parnych);
         
     writeln; readln;
end.

gh0st · Napísal autor témy **gh0st**: 03.04.2008 19:53

diky :)

ale stale mam problem s tym vypisovanym totoznych prvkov, skusal som to spravit aj sam ale nepocita to dobre pokial su dva susedne prvky rovnake( ale neni to v tomto kode ;) ) :

a dalo by sa este spravit aby to vsetko aj zapisovalo do suboru?

Kód:

program bublinkove_triedenie;
type prvok=integer;
     index=0..100;
var i,j,k,n:index;
    x:prvok;
    pocet_totoznych:prvok;
    sucet_parnych:prvok;
    a: array[index] of prvok;
    vstup : string;
    m1, m2, m3, m4, m5, m6, m7, m8, s1, s2, s3, s4, s5, s6, s7, s8 : integer;
begin
    { writeln('Program na zostupne usporiadanie ciselneho pola bublinovym triedenim.');
     write('Zadaj pocet prvkov:');
     readln(n); }
    { writeln('Zadaj ',n,' prvkov: ');
     for i:=1 to n do
         begin
            write(i,'.:');
            readln(a[i]);
         end; }
     writeln('Prosim zadajte 8 miestne cislo');
     readln(vstup);
     if length(vstup) > 8 then writeln('Zadali ste vacsi pocet cisel') else
          if length(vstup) < 8 then writeln('Zadali ste mensi pocet cisel ako je 8');
     if length(vstup) = 8 then
     begin
     n:=8;
     val(vstup[1], m1, s1);
     a[1]:=m1;
     val(vstup[2], m2, s2);
     a[2]:=m2;
     val(vstup[3], m3, s3);
     a[3]:=m3;
     val(vstup[4], m4, s4);
     a[4]:=m4;
     val(vstup[5], m5, s5);
     a[5]:=m5;
     val(vstup[6], m6, s6);
     a[6]:=m6;
     val(vstup[7], m7, s7);
     a[7]:=m7;
     val(vstup[8], m8, s8);
     a[8]:=m8;
     for i:=1 to n do
         begin
              for j:=1 to N-1 do
                  if a[j]>a[j+1] then
                     begin
                         x:=a[j];
                         a[j]:=a[j+1];
                         a[j+1]:=x;
                     end;
         end;

     sucet_parnych:=0;
     pocet_totoznych:=0;

     write('Zoradenie podla velkosti: ');
     for i:=1 to n do
         begin
            write(a[i],',');

            if ((i>1) and (a[i-1]=a[i]) or
                (i<n) and (a[i]=a[i+1])) then
                begin
                    pocet_totoznych:=pocet_totoznych+1;
                end;


            if a[i] mod 2 = 0 then
                begin
                    sucet_parnych:=sucet_parnych + a[i];
                end;

         end;

     writeln('');
     write('Pocet totoznych: ',pocet_totoznych);

     writeln('');
     write('Sucet parnych: ',sucet_parnych);

     writeln; readln;

     end;


readln;
end.

Pascal - need help

Podobné témy