Pereiti prie turinio

Rekomenduojami pranešimai

Duotas skaičius n. Parašyti programą, kuri atsitiktinai parinkdama koordinates ir spalvą nubrėžtų n linijų. Kiekviena linija prasideda nuo buvusios linijos galo.

zinau kad lengva bet nesigauna jei galit padekit

 

 

Uses graph;

 

Var g, m, x, y, x1, y1, s, i: integer;

 

Begin

g := detect;

Initgraph(g, m, '');

Randomize;

for i:= 1 to 10 do

begin

X:=random(1000);

Y:=random(700);

X1:=random(1000);

Y1:=random(100);

s:= random(15) + 1;

setcolor(s);

Line (x, y, x1, y1);

End;

Readln;

 

End

 

 

 

VA TIEK AS PADARES BET KAIP TOLIAU NEZINAU , hELP

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Uses graph; 

Var g, m, x, y, x1, y1, s, i: integer; 

Begin 
g := detect; 
Initgraph(g, m, ''); 
Randomize; 
X:=random(1000); 
Y:=random(700); 
for i:= 1 to 10 do 
begin 
X1:=random(1000); 
Y1:=random(100); 
s:= random(15) + 1; 
setcolor(s); 
Line (x, y, x1, y1); 
x:=x1;
y:=y1;
End; 
Readln; 
End

Netestavau, bet turi veikt :huh:

PS: Jei gali atsiųsk graph biblioteka į pm ;)

Redagavo wuss
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Gal kas ir man išspręs?

 

Turime kompiuterį, kuris nemoka apskaičiuoti natūraliųjų skaičių dalmens sveikosios dalies ir liekanos (nėra div ir mod dalybos operacijų). Parašykite programą, kuri apskaičiuotų skaičių n ir m dalmens sveikąją dalį dalmuo ir liekaną liekana.

Pasitikrinkite. Kai n= 14, m=3, turėtumėte gauti: dalmuo = 4, liekana = 2.

 

Kitas...

 

Parašykite programą, kuri apskaičiuotų , kiek popieriaus lapų k reikės norint nukopijuoti konspektą visos klasės mokiniams. Žinoma, kad klasėje yra a mokinių ir konspektą sudaro m lapų.

Pasitikrinkite. Įvedę n= 20 ir m =10, turėtumėte gauti k=200.

 

 

Čia reikia su txt failais daryti viską.

Ačiū.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Sukurti naują...

Svarbi informacija

Informuojame, kad šiame puslapyje naudojami slapukai (angl. cookies). Sutikdami, paspauskite mygtuką „Sutinku“ arba naršykite toliau. Savo duotą sutikimą bet kada galėsite atšaukti pakeisdami savo interneto naršyklės nustatymus ir ištrindami įrašytus slapukus.