Anonymní profil wizard – Programujte.com

Alffy napsal:
To Zuben : Na bux.to se vy*** , vyplácí asi za půl roku. instant a jistota je u neubux, přikladam reflink kdyby ste chteli http://hotfile.com/list/313924/ec5fdc9

To Zuben : Na bux.to se vy*** , vyplácí asi za půl roku. instant a jistota je u neubux, přikladam reflink kdyby ste chteli http://hotfile.com/list/313924/ec5fdc9

To dannyk : OK, začnu se učit reason, dík za kritiku

Potřeboval bych poradit podobnej program jako "fruity loop" a nebo "ProPellerHead Reason", chtěl by som začít tvořit něco co by obstálo na zabavení a aby z toho vylítlo něco co je propracované.

sorry mam tam hned na zacatku chybu hledam NEJVETSI CISLO!

Ahoj mam takovy problem snazim se najit nejdelsi cislo v souboru dostal jsem se az k tomu ze najdu nejdelsi slovo ale kdyz jsou dve cisla stejne dlouha tak to vypise to prvni.pr:123456
654321
tak mi to vypise jako nejvetsi cislo 123456.
nevyte nekdo jak se porovnavaji stringy?
DIKY honza
program nejdelsi_cisla;

var sou:text;
cis,cisl:string;
i,pocet,poc:integer;
z:char;
begin
assign(sou,'text.txt');
reset(sou);

while not eof(sou) do
begin
readln(sou,cis);
for i:=1 to length(cis) do
begin
if cis>=cisl then
begin

pocet:=pocet+1;
end;
end;
if pocet> poc then
begin
poc:=pocet;
pocet:=0;
cisl:=cis;
end
else pocet:=0;
end;
writeln('nejdelsi cislo je: ',cisl);

readln;
end.

mohl by mi nekdo pomoct?

aho lidi
potreboval bych napsat skrit ktery dostane na vstupu 3 argumenty -jmeno souboru, cislo1 a cislo2 a vypise obsah souboru od radku cislo1 do radku cislo2 ´

diky za vsechny odpovedi

Hoj mam takovydle ukol :Napište skript, který spočítá počet souborù v aktuálním adresáři (s použitím cyklu)?

diky moc

ok tak ja to zkusim nejak udelat! dik

no jo ale ten ucitel to nechce prave do toho pole tak proto nevim jak nato!

tak jsem nacetl cisla do souboru ale porad mi nejde vymyslet jak je mam spocitat?

ahojky lidicky potreboval bych nejaky navod na vyreseni ulohy
V textovém souboru jsou uložena celá čísla.Počet všech čísel není předem znám a může být velmi velký (nelze tedy uložit si všechna čísla do pole!). Soubor není nijak uspořádán, hodnoty čísel se v něm mohou jakkoliv opakovat. Napište program, který určí počet různých hodnot obsažených v tomto souboru.


DIk

prosim te muzes mi ten radek jeste vic rozepsat?? dik
vim ze to bude do 255 znaku takze pohoda

Ahoj mam napsat takovy program :
Textový soubor obsahuje text s dlouhými řádky. Napište program, který vytvoří kopii tohoto souboru tak, že řádky delší než N znaků rozdělí podle potřeby vždy na dva nebo více řádků po nejvýše N znacích (N je konstanta uvedená v programu, např. N=80).
Prosim porad te nejak?

To Mircosoft :
ahoj dobry tam to jsem dal do hromady po nekolika zkouseni ale mam dalsi problem mam udelat
Program ktery udela pocatecni naplnení pole daty a vypis vysledku a aby podle své volby naplnit pole bud daty ctenymi ze vstupu, nebo daty náhodne vygenerovanými. Počet čísel N si muze uzivatel zvolit.

nedal by jsi mi nejaky rady??

To Mircosoft :
ahoj, HELE fakt nevim,porad mi to nejak nejede,pac se to tedka ucim poprve! mohl by jsi mi to napsat cely?
abych si to mohl dat i do hlavy dik moc!: :smile1:

To Mircosoft :
mohl by jsi mi to taky prepsat do pascalstiny! ja se tady s tim tyram uz od rana a porad mi neco nejede!! :smile11:
DIK :smile1:

ahoj,
Ja mam taky problém s ukolem v pacalu a nevim jak s nim,jestli by jste mohl někdo pomoci?

Uvažujme následující reprezentaci polynomu:



const MaxStupen = 20;

type Poly = array[0..MaxStupen] of real;

{v poli jsou uloženy koeficienty polynomu,

index = exponent příslušného členu}

var A: Poly;

StA: byte; {stupeň polynomu A}



Napište procedury pro následující operace s polynomy:

a) součet dvou polynomů

b) součin dvou polynomů

c) vstup polynomu (zadání stupně a koeficientů z klávesnice)

d) výstup polynomu (výpis na obrazovku v rozumně čitelném tvaru, např. 3x^2–5x+1 )

Procedury by mohly mít tyto hlavičky:



procedure Soucet(A, B: Poly; StA, StB: byte;

var C: Poly, var StC: byte);

procedure Soucin(A, B: Poly; StA, StB: byte;

var C: Poly, var StC: byte);

procedure Vstup(var A: Poly; var StA: byte);

procedure Vystup(A: Poly; StA: byte);