DU v TP

Radioactive_Mouse

Potrebujem pomoc s programami v turbo pascale...nakolko zajtra z nich piseme a ja s nich viem velky kkt poprosil by som ak sa niekdo do toho rozumie a ma cas ci by mi ich to tej 20:00 nemohol spravit...

Su to priklady na pole ARRAY

1. Na vstupe je postupnost 10 cisel. Vypiste tieto cisla do nasledovneho poradie: 1,3,5,..49,2,4,6....50
2.Dana je postupnost 10 cisel. Uvedte na akom mieste sa nachadza najmensie cislo
3.Danych je 10 cisel. Prirovnajte cisla tak aby na zaciatku postupnosti boli vsetky kladne a za nimi zaporne cisla

ST1GD3R

Hmm. O čo to ide v tej prvej úlohe vlastne? Že sa vypíšu čísla od 1 do 50 A najpr párne potom záporne? Či ako?

//A ešte ta tretia to ako užívateľ zadá 10 čísiel a program ich roztriedi na kladné a záporné?

Radioactive_Mouse

hej hej .... ale musi to byt spravene cez to pole array

ST1GD3R

Ináč ak by som ti mohol poradiť. Skús pochopiť ako to funguje. Lebo neni dobré keď ti niekto robí DU a ty nevieš čo a ako funguje.

//autoeditácia príspevku ( 23 Apr 2009, 15:44 )
Ináč sem máš ten prvý ale bez poľa na poľe si to už daj ty neako.

Jo?

Kód: Vybrať všetko

program bla; 
  uses crt;
  var a: integer;

begin

  a:=0;
  repeat
    a := a + 1;
    if a mod 2 == 1 then writeln (a);
  until (a=50);

  a:=0;
  repeat
    a := a + 1;
    if a mod 2 == 0 then writeln (a);
  until (a=50);

readln;
end.

Dúfam že to je dobré nemám tu compiler tak si to skús. Ak nepôjde skúsim opraviť.

Radioactive_Mouse

dik tak 3 ide... btw ja by som to rad pochopil lenze nejak ma ten pascal nebavi.... potreboval by som asi nejaku stranku kde je to vysvetlene pre debilov ako som ja

ST1GD3R

Heh. Je kopu fór na ktorých sú knihy na pascal :)A tak

Pohľadaj niečo

BX · Príspevok od používateľa BX » 23 apr 2009, 16:01

Ak sa k tomu staviaš takto, tak sa to nenaučíš, ani keby ti to vysvetľovali ako škôlkarovi

ST1GD3R

Nj to máš pravdu. Ale zasa je to niečo iné keď ho to fakt nebaví a musí sa to učiť.

BX · Príspevok od používateľa BX » 23 apr 2009, 16:08

Dá sa naučiť aj niečo čo ťa vôbec nebaví, ale treba to skúsiť. Nepôjde to úplne super, ako po masle, ale pôjde to

ST1GD3R

Hej veď jasné to je pravda

Kiežby to tak platilo aj o Nemčine hehe

Radioactive_Mouse

robim tu jednotku ale nejde mi to pls co tam mam zle .... btw nesmejte sa hovorim ze som v tom debil

Kód: Vybrať všetko

uses crt;
var i:integer;
    x:array[1..10] of integer;
    begin clrscr;
    i:=0;
    writeln('Zadaj cislo');
    readln(i);
for i:= i downto 1 do begin;
x[i]:=i*2; write('Parne',x[i]);
end;
write (x[i]);
writeln;
for i:= i downto 1 do begin
x[i]:=i div(2) //tento vzorec viem ze je zle//; write ('Neparne',x[i]);end;
readkey;
end.

[/code]

uz nic uz som nato prisiel

juho · Príspevok od používateľa **juho** » 23 apr 2009, 17:04

sam si odpovies tak co chces aku radu...