Ładny brzuch
Mam nastepujace zadanie:
Wyswietlic tablice z 20 liczbami jednocyfrowymi (tlyko zera i jedynki)
i po wylosowaniu w powstalym ciagu cyfr odnalezc najdluzszy ciag jedynek...
kompletnie nie wiem jak sie do tego zabrac...
dziekuje z gory za pomoc (ratujecie mi 4 literki)....
Po wylosowaniu czego? Moesz zacytowa tre zadania?
Po wylosowaniu czego? Moesz zacytowa tre zadania?
#include <iostream> #include <time.h> #include <stdlib.h> using namespace std; int main() { srand(time(NULL)); char tab[20]; for (int i=0;i<20;i++) { tab[i]=rand()%2; cout << (int) tab[i]; } cout<<endl; int akt_element=0; bool czyZero; int ile_jed=0; int element=0; int ile_max=0; while (akt_element<20) { if (tab[akt_element]==0) { czyZero=true; ile_jed=0; } else { if (++ile_jed>ile_max) { element=akt_element+1-ile_jed; ile_max=ile_jed; } czyZero=false; } akt_element++; } cout<<"Najwiekszy ciag jedynek to: "<<element+1<<" - "<<ile_max+element<<endl; system("PAUSE"); return EXIT_SUCCESS; }
To bdzie jako tak :)
Pomyliem si i napisaem w c++. Wersja w delphi znajduje si kilka postw niej
Uytkownik Damian.K. edytowa ten post 01 czerwiec 2006, 14:58
#include <iostream> #include <time.h> #include <stdlib.h> using namespace std; int main() { srand(time(NULL)); char tab[20]; for (int i=0;i<20;i++) { tab[i]=rand()%2; cout << (int) tab[i]; } cout<<endl; int akt_element=0; bool czyZero; int ile_jed=0; int element=0; int ile_max=0; while (akt_element<20) { if (tab[akt_element]==0) { czyZero=true; ile_jed=0; } else { if (++ile_jed>ile_max) { element=akt_element+1-ile_jed; ile_max=ile_jed; } czyZero=false; } akt_element++; } cout<<"Najwiekszy ciag jedynek to: "<<element+1<<" - "<<ile_max+element<<endl; system("PAUSE"); return EXIT_SUCCESS; }
To bdzie jako tak :)
nie dziaa.... byc moze cos zle wstawilem - Dodam ze mam delphi 7 personal
omg bo to co napisa Damian, to kod C++ :rolleyes:
Ale ja jestem... nie zauwayem, e miao by w delphi i z przyzwyczajenia wczyem c++ :D
To w ramach rehabilitacji:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var tab: array [0..19] of integer; i:integer; akt_element:integer; element:integer; ile_jed:integer; ile_max:integer; czyZero:boolean; begin randomize; for i:=0 to 19 do begin tab[i]:=random(2); write(inttostr(tab[i])); end; while akt_element<20 do begin if tab[akt_element]=0 then begin czyZero:=true; ile_jed:=0; end else begin ile_jed:=ile_jed+1; if ile_jed>ile_max then begin element:=akt_element+1-ile_jed; ile_max:=ile_jed; end; czyZero:=false; end; akt_element:=akt_element+1; end; writeln('Najwiekszy ciag jedynek to: '+inttostr(element+1)+' - '+inttostr(ile_max+element)); readln; end.
ale poniewaz jestem dosyc zielony to robie co mi kaza biggrin.gif
To kaesz innym robi to co Ci ka :D
Gwoli cisoci
Uytkownik Damian.K. edytowa ten post 01 czerwiec 2006, 14:56
Ale ja jestem... nie zauwayem, e miao by w delphi i z przyzwyczajenia wczyem c++ :D
To w ramach rehabilitacji:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var tab: array [0..19] of integer; i:integer; akt_element:integer; element:integer; ile_jed:integer; ile_max:integer; czyZero:boolean; begin randomize; for i:=0 to 19 do begin tab[i]:=random(2); write(inttostr(tab[i])); end; while akt_element<20 do begin if tab[akt_element]=0 then begin czyZero:=true; ile_jed:=0; end else begin ile_jed:=ile_jed+1; if ile_jed>ile_max then begin element:=akt_element+1-ile_jed; ile_max:=ile_jed; end; czyZero:=false; end; akt_element:=akt_element+1; end; writeln('Najwiekszy ciag jedynek to: '+inttostr(element+1)+' - '+inttostr(ile_max+element)); readln; end.
To kaesz innym robi to co Ci ka :D
Gwoli cisoci
niewazne:D dziala!!! :D
dziekuje bardzo !!!
wiem ze jestem paskudnym wyzyskiwaczem... ale naprawde nie potrafilem tego zmejkowac sam :D
dzieki ans egejn!
ekhem a to nie jest przypadkiem Pascal?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Wyswietlic tablice z 20 liczbami jednocyfrowymi (tlyko zera i jedynki)
i po wylosowaniu w powstalym ciagu cyfr odnalezc najdluzszy ciag jedynek...
kompletnie nie wiem jak sie do tego zabrac...
dziekuje z gory za pomoc (ratujecie mi 4 literki)....
Po wylosowaniu czego? Moesz zacytowa tre zadania?
Po wylosowaniu czego? Moesz zacytowa tre zadania?
#include <iostream> #include <time.h> #include <stdlib.h> using namespace std; int main() { srand(time(NULL)); char tab[20]; for (int i=0;i<20;i++) { tab[i]=rand()%2; cout << (int) tab[i]; } cout<<endl; int akt_element=0; bool czyZero; int ile_jed=0; int element=0; int ile_max=0; while (akt_element<20) { if (tab[akt_element]==0) { czyZero=true; ile_jed=0; } else { if (++ile_jed>ile_max) { element=akt_element+1-ile_jed; ile_max=ile_jed; } czyZero=false; } akt_element++; } cout<<"Najwiekszy ciag jedynek to: "<<element+1<<" - "<<ile_max+element<<endl; system("PAUSE"); return EXIT_SUCCESS; }
To bdzie jako tak :)
Pomyliem si i napisaem w c++. Wersja w delphi znajduje si kilka postw niej
Uytkownik Damian.K. edytowa ten post 01 czerwiec 2006, 14:58
#include <iostream> #include <time.h> #include <stdlib.h> using namespace std; int main() { srand(time(NULL)); char tab[20]; for (int i=0;i<20;i++) { tab[i]=rand()%2; cout << (int) tab[i]; } cout<<endl; int akt_element=0; bool czyZero; int ile_jed=0; int element=0; int ile_max=0; while (akt_element<20) { if (tab[akt_element]==0) { czyZero=true; ile_jed=0; } else { if (++ile_jed>ile_max) { element=akt_element+1-ile_jed; ile_max=ile_jed; } czyZero=false; } akt_element++; } cout<<"Najwiekszy ciag jedynek to: "<<element+1<<" - "<<ile_max+element<<endl; system("PAUSE"); return EXIT_SUCCESS; }
To bdzie jako tak :)
nie dziaa.... byc moze cos zle wstawilem - Dodam ze mam delphi 7 personal
omg bo to co napisa Damian, to kod C++ :rolleyes:
Ale ja jestem... nie zauwayem, e miao by w delphi i z przyzwyczajenia wczyem c++ :D
To w ramach rehabilitacji:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var tab: array [0..19] of integer; i:integer; akt_element:integer; element:integer; ile_jed:integer; ile_max:integer; czyZero:boolean; begin randomize; for i:=0 to 19 do begin tab[i]:=random(2); write(inttostr(tab[i])); end; while akt_element<20 do begin if tab[akt_element]=0 then begin czyZero:=true; ile_jed:=0; end else begin ile_jed:=ile_jed+1; if ile_jed>ile_max then begin element:=akt_element+1-ile_jed; ile_max:=ile_jed; end; czyZero:=false; end; akt_element:=akt_element+1; end; writeln('Najwiekszy ciag jedynek to: '+inttostr(element+1)+' - '+inttostr(ile_max+element)); readln; end.
ale poniewaz jestem dosyc zielony to robie co mi kaza biggrin.gif
To kaesz innym robi to co Ci ka :D
Gwoli cisoci
Uytkownik Damian.K. edytowa ten post 01 czerwiec 2006, 14:56
Ale ja jestem... nie zauwayem, e miao by w delphi i z przyzwyczajenia wczyem c++ :D
To w ramach rehabilitacji:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var tab: array [0..19] of integer; i:integer; akt_element:integer; element:integer; ile_jed:integer; ile_max:integer; czyZero:boolean; begin randomize; for i:=0 to 19 do begin tab[i]:=random(2); write(inttostr(tab[i])); end; while akt_element<20 do begin if tab[akt_element]=0 then begin czyZero:=true; ile_jed:=0; end else begin ile_jed:=ile_jed+1; if ile_jed>ile_max then begin element:=akt_element+1-ile_jed; ile_max:=ile_jed; end; czyZero:=false; end; akt_element:=akt_element+1; end; writeln('Najwiekszy ciag jedynek to: '+inttostr(element+1)+' - '+inttostr(ile_max+element)); readln; end.
To kaesz innym robi to co Ci ka :D
Gwoli cisoci
niewazne:D dziala!!! :D
dziekuje bardzo !!!
wiem ze jestem paskudnym wyzyskiwaczem... ale naprawde nie potrafilem tego zmejkowac sam :D
dzieki ans egejn!
ekhem a to nie jest przypadkiem Pascal?