Dvi pascal užduotys

http://mariaus.net/asm/IMG_9757.JPG

 

Štai du uždaviniai. Pirmasis uždavinys "knygos puslapių numeravimas". Gal turite kokių idėjų kaip jį išspręsti? Vis nesugalvoju algoritmo. Mintys vis krypsta div linkme. Maniau, kad reikėtų atsirasti kiek tame skaičiuje yra skaitmenų, o tada su ciklu tiesiog ieškoti puslapių skaičiaus taip: http://mariaus.net/asm/IMG_9758.JPG Tikrai neprašau, kad išspręstumėte, tik jei galite pasakykite, ar bent teisinga linkme mąstau.

 

Antrame uždavinyje nesuprantu iš kur duomenys imami. Ar iš failo, ar įvedami rankos būdu? Jei rankos būdu, tai kaip padaryti, kad būtų leidžiama vis vesti duomenis? Ta prasme, iš kur man žinoti kiek tų skaičių suves? Gal kaip su while ciklu? ir ar čia kartais tik nesuvestų duomenis štai taip: "Įveskite skaičius: " 55 22 33 11 22 55 66 (ta prasme, ar nevestų visus į vieną eilutę?) Sunku suvokti, kaip tame uždavinyje elgtis.

Stai algoritmas, kuris suranda klavietura ivesto skaiciaus skaiciu, parasyta atbulai. Galbut si programa tau pades puslapiu uzduotyje (o gal ir ne).

 

program Atbulas;
var sk, n, atb : longint;
begin
 read (sk);
 atb := 0;
 while sk > 0 do
 begin
 n:= sk mod 10;
 atb:= atb*10+n;
 sk:= sk div 10;
 end;
 writeln ('atbulas sk. yra : ', atb);
 Readln;
   Readln;
end.

 

Del kitos uzduoties tai kai kuriuos atsakymus i savo klausimus gali rasti uzduociu lape- skaiciai vedami klavietura (ranka). Nereikia daryt, kad leistu vis is naujo vesti duomenis (o jei reiktu, tada taip, galetum panaudoti cikla), duomenis suvedami i viena eilute, kaip pats ir parasei:

"Įveskite skaičius: " 55 22 33 11 22 55 66

Bet tavo programos darbas ir yra padaryti taip, kad skaiciai, surasyti eilute, taptu skaiciais surasytais stulpeliais.

 

Suprantu, kad nieko konkretaus nepasakiau, bet gal pades susigaudyti mintyse :)

antroj užduotį viską įvedi klavietūra, juk matai kad nulis užbaigia visada ;) tai daryk while ciklą kol n <> 0

program puslapiai;


Var n : integer;

Procedure Skaiciuoti;
Var i, sum : integer;
   s   : string;
Begin
sum := 0;
   For i := 1 to n do
   begin
       str(i,s);
       sum := sum + length(s);
   end;
   WriteLn(sum);
End;

begin
 WriteLn('Iveskite puslapiø skaièiû: ');
 Readln(n);
 Skaiciuoti;
 Readln;
end.

 

antra.

 

program stulpeliai;

Const   Cmax   = 100;

Type    Mas    =  Array[1..Cmax] of integer;

Var     M      : Mas;
       kiek   : integer;



{-----------------------------Funkcijos ir proceduros--------------------------}
Procedure Rasyti;
Var i, j : integer;
Begin
if kiek mod 2 <> 0 then j := (kiek div 2) + 1
                  else j := kiek div 2;
   For i := 1 to j do
   if ( i + j ) <> kiek+1 then
       WriteLn(M[i],' ',M[i+j]:5)
                        else
       WriteLn(M[i]);

End;

Procedure duomenys;
Var n  : integer;
Begin
kiek := 1;
n := 1;
While n <> 0 do
   Begin
    WriteLn('iveskite ',kiek,' skaiciu: ');
    Readln(n);
    M[kiek] := n;
    kiek := kiek + 1;
   End;
   kiek := kiek - 2;
End;

{-------------------------------Pagrindine programa---------------------------}
begin
Duomenys;
Rasyti;
ReadLn;
end.

Redagavo Gruodžio 13, 2011 raima220

Edit: Dėkui :) Sugalvojau jau viską :)

Redagavo Gruodžio 13, 2011 Mariius