pascal programa

sveiki. reikalinga jūsų pagalba. turiu pasirašęs dalinai programą, bet ji man ne taip kaip reikia veikia. programa:

program Bevardė13;

type mas= array [1..100] of string;

ma= array [1..100] of integer;

var n,i:integer;

fd:text;

v,m:mas;

d:ma;

procedure duomenys(var n:integer);

begin

assign(fd, 'Duomenys.txt');

Reset(fd);

for i:=1 to n do

begin

Readln(fd,v);

Writeln(v);

end;

end;

begin

assign(fd, 'Duomenys.txt');

Reset(fd);

Read(fd,n);

close(fd);

duomenys(n);

end.

failo duomenys.txt turinys

10

Jonas Gruodis 10

Agnė Lapkritis 6

Juozas Gegužė 3

Laimis Liepa 28

Audrius Spalis 12

Julius Spalis 12

Silvija Sausis 30

Roberta Birželis 13

Rasa Lapkritis 16

Antanas Kovas 2

man gaunasi kad v:=Jonas Gruodis 10 nuskaičius, o man reik v:=jonas m:=gruodis d:=10 nuskaičius kad būtų.

kaip reikėtų išskaidyti?

Netikrinau, bet kažkas panašaus.

Naudok record'ą(įrašą).

program Noname1;
 type
   irasas = record
          vardas : string;
         menesis : string;
           diena : integer;
   end;



   mas = array[1..10] of irasas;

   var
   duom : text;
   i, d, info, kiek : integer;
   M : mas;
   v, m : string;

begin
 Assign(duom, 'duomenys.txt');
 Reset(duom);
 ReadLn(duom,kiek);

 // ----------------------------- //

 for i:= 1 to kiek do
 begin
 ReadLn(M[i].vardas, M[i].menesis, M[i].diena);
 v:= M[i].vardas;
 m:= M[i].menesis;
 d:= M[i].diena;
 end;

 Close(duom);
 Readln;
end.

turit gal kas daugiau pasiūlymų?

O tai taip nenuskaito?

readln(text,vardas[i],menesis[i],skaicius[i]);

Nes šiaip kiekvienas tarpas nusiskaityt atskirai turėtų.

sveiki. reikalinga jūsų pagalba. turiu pasirašęs dalinai programą, bet ji man ne taip kaip reikia veikia. programa:

program Bevardė13;

type mas= array [1..100] of string;

ma= array [1..100] of integer;

var n,i:integer;

fd:text;

v,m:mas;

d:ma;

procedure duomenys(var n:integer);

begin

assign(fd, 'Duomenys.txt');

Reset(fd);

for i:=1 to n do

begin

Readln(fd,v);

Writeln(v);

end;

end;

begin

assign(fd, 'Duomenys.txt');

Reset(fd);

Read(fd,n);

close(fd);

duomenys(n);

end.

 

failo duomenys.txt turinys

10

Jonas Gruodis 10

Agnė Lapkritis 6

Juozas Gegužė 3

Laimis Liepa 28

Audrius Spalis 12

Julius Spalis 12

Silvija Sausis 30

Roberta Birželis 13

Rasa Lapkritis 16

Antanas Kovas 2

 

man gaunasi kad v:=Jonas Gruodis 10 nuskaičius, o man reik v:=jonas m:=gruodis d:=10 nuskaičius kad būtų.

kaip reikėtų išskaidyti?

Šiaip geriausia yra skirt tarpus

tiesiog vardui priskiriami kaip pvz 10 vietų ir tada gali apsirašyt

var vardas : string[10];

arba kitas tiesiog paimk tą kintamajį v ir su for ciklu leisk

for i := 1 to lenght(v) do

if v = ' ' then

for x := i+1 to lenght(v) do

m := m + v[x];

na kazkas tokio :)

O tai taip nenuskaito?

readln(text,vardas[i],menesis[i],skaicius[i]);

Nes šiaip kiekvienas tarpas nusiskaityt atskirai turėtų.

Bandžiau taip daryti bet neišėjo. Kadangi čia tik savarankiškas darbas tai į kiekvieną eilutę po žodį perdariau ir tada ormaliai nuskaito. Bet vieno dalyko niekaip neišmasčiau. Kaip reikėtų padaryti, kad jei įvedi tą mėnesį kurio nėra prašytų pasirinkti kitą mėnesį. Bandžiau su for while if, bet nieko nesigavo. Tad padariau lengviau :D

if z=1

then Writeln('Pirmasis gimtadienį švęs ',va)

else

begin

Writeln('Šį mėnesį gimtadienio niekas nešvęs, jeigu norite tikrinti kitą mėnesį') ;

Writeln ('prašomę paleisti programą iš naujo.');

end;

Dėl teksto nuskaitymo tai užduotyje būna nurodytas eilutės ilgis t.y vardo, pavardės, pavadinimo, tada pagal ta ilgi sulygiuoji duomenis ir viskas. Dėl kartojimo gali daryti su pasirinkimu pavyzdukas, prisitaikysi pagal užduotį.

program Bevardė0;
var a,t:integer;
b:char;
begin
t:=1;
while t = 1 do
begin
   	readln(a);
   	if a=1 then
   	begin
       	Writeln('Pirmasis gimtadienį švęs ',a);
       	t:=0;
   	end
   	else
   	begin
       	Writeln('Šį mėnesį gimtadienio niekas nešvęs, jeigu norite tikrinti kitą mėnesį spauskite t jei ne n') ;
       	readln(b);
       	if b = 't' then t:=1
       	else t:=0;
   	end;
end;
Readln;
end.