Potřebuju poradit s úkolem – Pascal – Fórum – Programujte.com

Mám soubor txt, ve kterém je každé slovo na jednom řádku. Z těchto slov mám vybrat jedno náhodné. Díky za radu.

Jako vždy - pošli kousek svého kódu, bez něj ti tu nikdo neporadí

do pola sa nacita obsah toho txt suboru (v jednotlivych prvkoch pola su teda jednotlive riadky suboru), potom sa uz len pomocou random vygeneruje nahodny index prvku pola a je to! (velkost pola si zvol podla toho kolko mas riadkov)

program slova;

uses crt;

var f : text;

    i, NahodnyIndex : integer;

    pole : Array[1..20] of string;

begin

     clrscr;

     randomize;

     Assign(f,'pokus.txt');

     Reset(f);

     i:=0;

     while not eof(f) do

           begin

                inc(i);

                readln(f,pole[i]);

           end;

     Close(f);

     NahodnyIndex:=random(i);

     writeln(pole[NahodnyIndex]);

     readln;

end.

Díky za radu...

Prosím o pomoc stouto ulohou.Vůbec neumim programovat.
Sestavte funkční proceduru, která určí kolik sudých čísel se vyskytlo v
posloupnosti N celých čísel. Použijte ji v programu, který načte 2 přirozená
čísla K,L, počet řádků a počet sloupců matice, dále celočíselnou matici
typu (K,L) a vytiskne zadanou matici rozšířenou o jeden sloupec v kterém
budou počty sudých čísel na jednotlivých řádcích.

To jjjj : Takto by to mohlo vyzerat(uprav si to do procedury) :

program PMatica;

uses crt;

var Matica : Array[1..3,1..3] of integer;

    k, l, i, j, parne : byte;

begin

     clrscr;

     parne:=0;

     write('Zadajte pocet riadkov(k): ');

     readln(k);

     write('Zadajte pocet stlpcov(l): ');

     readln(l);

     writeln;

     for i:=1 to k do

         for j:=1 to l do

             begin

                  write('a[',i,',',j,']= ');

                  readln(Matica[i,j]);

             end;

     writeln;

     for i:=1 to k do

         for j:=1 to l do

             begin

                  if Matica[i,j] mod 2 = 0 then inc(parne);

                  write(Matica[i,j]:4);

                  if j=l then

                     begin

                          write(parne:4);

                          parne:=0;

                          writeln;

                     end;

             end;

     readln;

end.

Prosím potřeboval bych poradit.

Program načte neprázdnou posloupnost nenulových čísel ukončenou číslem
nula, která už do posloupnosti nepatří, a určí součin těch členů posloupnosti,
které byla kladná.

@petros

var

	vysledok=1;

	cislo;

while((cislo=nacitajCislo())!=0)

begin

	if(cislo>0)

		vysledok*=cislo

end;

println('Vysledok je',vysledok);

To jozo0025 : to je přímo pro pascal a nebo pro Delphi a Lazarus.

To Anonymní uživatel : Pisane je to v Borland Pascal 7, v delphi by to malo fungovat ako console application, a Lazarus nepoznam...

To Nosko : nevim v jakem programu to mam udelat,v pascalu mi to nefunguje.
Ale presto dekuji za pomoc.

To jozo0025 : jak mam naprogramovat tohle v pascalu.Předem moc děkuji.

Program načte neprázdnou posloupnost nenulových čísel ukončenou číslem
nula, která už do posloupnosti nepatří, a určí součin těch členů posloupnosti,
které byla kladná.

To Anonymní uživatel : Ako napisal Nosko, najdi si nieco k zakladom Pascalu...

program test;

uses crt;

var cislo : integer;

    sucin : word;

    i,pom : byte;

begin

     clrscr;

     i:=0;

     sucin:=1;

     pom:=0;

     repeat

           inc(i);

           write(i,'. cislo = ');

           readln(cislo);

           if cislo > 0 then sucin:=sucin*cislo

              else if cislo < 0 then inc(pom);

     until cislo=0;

     writeln;

     if pom=i-1 then sucin:=0;

     writeln('Sucin kladnych clenov postupnosti = ',sucin);

     readln;

end.

a kdyz tam budu chtit i realna cisla tak napisi real

To Anonymní uživatel : Ano, premenne cislo a sucin musia byt typu real.

Takze nejak takhle
program test;
uses crt;
var cislo :real;
sucin : word;
i,pom : byte;
begin
clrscr;
i:=0;
sucin:=1;
pom:=0;
repeat
real(i);
write(i,'. cislo = ');
readln(cislo);
if cislo > 0 then sucin:=sucin*cislo
else if cislo < 0 then inc(pom);
until cislo=0;
writeln;
if pom=i-1 then sucin:=0;
writeln('Sucin kladnych clenov postupnosti = ',sucin);
readln;
end.

co si spocitat pocet radku pak random a na zaver vypsat radek na t random pozici?
co se srat s nacitanim do pameti...

To Chrasty : Néé, tady mu opravdu nikdo neporadí a opravdu to nikdo nenapíše celé za něj... ;)

To Anonymní uživatel : ale ja premenna sucin musi byt typu real pretoze budes nasobit realne cisla, a tam kde si neviem preco prepisal inc(i) na real(i), tam ponechaj inc(i). Skus sa naucit aspon zaklady Pascalu napr tu http://pascal.webz.cz/kurs/index.html