Pomoc Pascal

aaaa

Iloha č.1 : Generovanie náhodnch čísel.
Napíšte a odlad’te program v jazyku Pascal, ktorý vykoná:
1. Vypíše na obrazovku základné údaje o programe a riešiteľovi (škola, trieda, názov úIoh, dátum, ineno riešitel’a).
2. Program vygeneruje 10 náhodných čísel a vypíše ich na obrazovku. Náhodné čísla sú z intervalu <10, 40>. Medzi číslami nesinie byt’ číslo 18.
3. IJsporiadajte tieto čísla podl’a vel’kosti.
4. Císla sa nesmú opakovat’.
5. Po ukončení prograniu vykreslí na obrazovku znak ( 3 geometrické útvary) a zahrá melódiu.

juho

aaaa napísal:Iloha č.1 : Generovanie náhodnch čísel.

Ta podmienka neopakovatelnosti cisel by hadam maly byt ako bod 1. o tom znaku a utvaroch a melodii nechapem suvislost s tymi cislami?aky nazov uloh?cisla maju byt cele alebo realne?ked to usporiada uz to nemusi vypisat? treba lepsie vysvetlit

Kód: Vybrať všetko

uses crt;
var cisla:array[1..10] of integer;
     a,b,c,d:integer;
BEGIN          clrscr;
randomize;
for a:=1 to 10 do begin      {vytvorenie}
  cisla[a]:=10+random(31);{10+1-30 <10,40>}
if cisla[a]=18 then  inc(cisla[a]);{ak sa vygeneruje 18 tak zmen na 19}

                  end;


for a:=1 to 10 do               {upravenie opakovania cisel 94,5%}
for b:=1 to a-1 do while(cisla[a]=cisla[b]) do cisla[a]:=20+random(20);
{ak sa cislo rovna nejakemu pred nim vlavo tak zmen na 20-39//akoze bez 18 mozes to este aj zmenit}

for a:=1 to 10 do write(' ',cisla[a]);{vypis upraveneho}
   writeln;
for a:=2 to 10 do begin b:=1;            {insert sort}
 while(cisla[a]>cisla[b]) do inc(b);{toto hadam ani netreba ......}
c:=cisla[a];
for d:=a downto b+1 do
cisla[d]:=cisla[d-1];
cisla[b]:=c;
                  end;

for a:=1 to 10 do write(' ',cisla[a]); {vypis usporiadaneho}

END.

aaaa

A uvodna strana musi byt nejakou fabou nap Student aaaa aaaa color a pozicovanie cez x,y

no musi to byt cez prikaz randomize su to cisal od 10 do 40 a nesmie tam byt 18.vsetky len realne..

a nakoniec sa nakreslia nejake geometricke
objekty

juho

aaaa napísal:vsetky len realne..

realne? to su te s desatinnym cislom ano?... tak potom sa vobec nemusi upravovat. Nahoda ze to vygeneruje dve rovnake realne cisla je tak v Cine.
ESTE TAK BOKOM: Skade mas tuto ulohu

aaaa

Prosim ta este popis mi jendnotlive prikazy IF je Prikaz Vetvenie
Randomize Sluzi ako generovanie nahodnych cisiel
Begin ze je zaciatok
cely komplet potrebujem popisat,..

Som Na Strednej 2.Odbor Cislicova Riadacia Technika..A mam to ako zavercenu ulohu s programovania...

PS na koniec ti chybal prikaz redakey alebo delay lebo ked som to spustil tak to len bliklo..Ale INAK VELKA VDAKA

juho

aaaa napísal:PS na koniec ti chybal prikaz redakey alebo delay lebo ked som to spustil tak to len bliklo..Ale INAK VELKA VDAKA

Nie nechybal, to malo "bliknut" a staci aby si to pozrel cez Alt+F5. Neviem preco dbate na to pozeranie na konci aby to nevyplo ked si to mozete pozret normalnymi funkcnymi klavesmi. Toto nechapem u takych "Programatorov".

piston

ja nadviazem na temu lebo tiez potrebujem pomoc ale ovela banalnejsieho charakteru

takze: v textovom subore mam napr. taketo nieco: mo1 +2.3, a ako zadam programu aby nacital do zvlastnej premennej mo1, zvlast + a zvlast 2.3? aj som to vedel ale nejako mi to vypadlo z hlavy

juho

piston napísal:vypadlo z hlavy

neviem jak ti to vypadlo a kedy ale najprv hadam musis vytorit program ktory to do toho suboru zapise.

Kód: Vybrať všetko

Subor s obsahom aa
mnohi by povedali ze je to text aa, ale ja by som im vytrel zrak ze sak to je 170.

aaaa

Uloha č.14: Textový súbor
Napíšte a odlaďte program vjazvku Pascal, ktorý vykoná:
1. Vypíše na obrazovku základné údaje o programe a riešiteľovi (škola, trieda, názov úlohy, dátum, meno riešitel’a).
2. Program vytvorí na disku textový súbor text4.txt.
3. Programu umožní zapisovat’ do súboru, čítat’ zo súboru a vymazat’ súbor.
4. Vypíše na obrazovku informáciu o vytvorení súboru a zapísanie informacie
5. Po ukončení programu vykreslí na obrazovku vaš znak a zahrá melódiu.

juho

na tej intrmacii som sa zasekol a neviem pokracovat

piston

no vec sa ma tak ze ja ten program ktory to do toho suboru zapise vytvorit nemusim, ja proste potrebujem vyriesit situaciu ked uz mam vytvoreny textovy dokument a mam z neho nacitat tie udaje ale nejako neviem ako to nacitat aby to nacitalo do viacerych premennych, a nechod na mna zasa programatorsky ja ziadny programator niesom

piston napísal:no vec sa ma tak ze ja ten program ktory to do toho suboru zapise vytvorit nemusim, ja proste potrebujem vyriesit situaciu ked uz mam vytvoreny textovy dokument a mam z neho nacitat tie udaje ale nejako neviem ako to nacitat aby to nacitalo do viacerych premennych, a nechod na mna zasa programatorsky ja ziadny programator niesom

Kód: Vybrať všetko

var vstup:text;
riadok:string;
...
assign(vstup,'vstup.txt');  
reset(vstup);
readln(vstup,riadok)
close(vstup);
...

budeš mať riadok v premennej "riadok" potom ho rozsekáš, to je jednoduché ale ak nenapíšeš akú štruktúru majú riadky tak ti neviem poradiť (aké sú znaky oddelujúce jednotlivé hodnoty v riadku). Celé to bude v cykle while not(eof(vstup)) aby si prešiel všetkými riadkami až kým nenájdeš ten pravý

piston

no diki, ale ja potrebujem prave to ako mam rozkuskovat riadok, takze priklad:
text.txt

Kód: Vybrať všetko

mo1 +2.3
mo3 -5.4
mo4 +4.1
mo2 +1.0
mo6 -2.5
mo8 +3.2

a teraz mam nacitat tu prvu cast ako nazov, potom pravdepodobne to znamienko aby som vedel ci je to zaporne alebo kladne cislo a potom to cislo, to su 3 rozne premenne ale ako to mam nacitat? Proste ako mam zadat aby mala ta a ta premenna tolko a tolko znakov.

premenna:=Copy(riadok, 1, 3) //načíta z pôvodného riadku, od prvej pozície až po tretiu a toto dá do premennej..
to znamienko teda bude znamienko:=copy(riadok,5,5)

piston

audiotrack napísal:premenna:=Copy(riadok, 1, 3) //načíta z pôvodného riadku, od prvej pozície až po tretiu a toto dá do premennej..
to znamienko teda bude znamienko:=copy(riadok,5,5)

diki ale zda sa ze mi nieco unika takze tu je len tak na ukazku,kod(to este nieje dokonceny cely program):

Kód: Vybrať všetko

program teploty;
var f:text;
    pocet,i:integer;
    teplota:real;
    nazov:string;
begin
assign(f,'c:\program1.txt');
reset(f);
pocet:=0;
repeat
for i:=1 to 6 do
 begin;
 nazov:=copy(i,1,3);
 writeln(nazov);
 end;
pocet:=pocet+1;
until eof(f);
write('Na Slovensku je ',pocet,' meteorologickych stanic.');
close(f);
readln;
end.

asi neviem ako to s tym copy funguje

aaaa

juho napísal:na tej intrmacii som sa zasekol a neviem pokracovat

spravis mi to prosim??

juho

ale co je to ta intrmacia_?????

juho

piston napísal:
Kód: Vybrať všetko
 nazov:=copy(i,1,3);
 writeln(nazov);
 end;
asi neviem ako to s tym copy funguje

este aby si hadam precital znak ukoncujuci riadok '\n'(12) pozicujes sa seek(*subor,miesto);

aaaa

Informacie

aaaa

juho napísal:ale co je to ta intrmacia_?????

to je "informácie"

Pomoc Pascal

Pomoc Pascal

Re: Pomoc Pascal

ESTE TOTOT

Re: ESTE TOTOT

Re: ESTE TOTOT