Pradinuko klausimai apie pascal

Sveiki visi,

nusprendžiau ir aš mokytis programavimo paslapčių, todėl užsirašiau į JPM. Gal kas iš labiau patyrusių gali man naujokui paaiškinti kaip išspręsti šitą pratimą?

7. Ar yra neteisingų priskyrimo sakinių? Jei taip, nurodykite kurie, ir trumpai paaiškinkite kodėl.

a) n := n + 1; e) n := n mod 2;

b) n + 1 := 5; f) x := x;

c) x := x := 2; g) x := (7 mod 5);

d) 12 := n + 1; h) x/n := 1 -3;

beje, skaitau Grigo "programavimas paskaliu", bet taip ir neaišku man iki galo :|

man atrodo, kad neteisingi yra a ir c, nes dalijami sveikieji skaičiai..?

Taigi nėra jokio skirtumo, tu dalinsi sveikajį skaičiu ar ne. Tik atsakymo kintamaji, jau turi nurodyt kaip real tipo.

tai kokie tada neteisingi variantai?

Po informatikos informatikos VBE pascalio gyvenime nebesu mates, tai nenoriu tau klaidingu atsakymu pasayt. Isijunk pascali susikurk programa ir žiurėk kas blogai.

 

 

8. Kintamieji a ir b yra sveikojo tipo. Kurie reiškiniai klaidingi ir kodėl?

a) 10 div 6 / 2; c) b mod (10 / 5);

b) a * 2 + a mod 3; d) a + 2b;

 

 

 

 

7. Ar yra neteisingų priskyrimo sakinių? Jei taip, nurodykite kurie, ir trumpai paaiškinkite kodėl.

a) n := n + 1; e) n := n mod 2;

b) n + 1 := 5; f) x := x;

c) x := x := 2; g) x := (7 mod 5);

d) 12 := n + 1; h) x/n := 1 -3;

 

 

beje, skaitau Grigo "programavimas paskaliu", bet taip ir neaišku man iki galo :|

A, B, C yra neteisingi nes yra dalyba. Dalyba su sveikaisiais (integer) neegzistuoja.

Neteisingi: B (nes priskiriamas ne kintamasis, o reiškinys), F (nežinau ar tai klaida, bet jis be logikos);

C (nes dvigubas priskyrimas paskalyje neegzistuoja), H (nes priskiriama ne kintamajui, o reiškiniui, kaip ir B)

Visada galiu klysti, bet, manau, taip.

Gal kas gali padeti padaryti programa? :)

Salyga:

Mokyklos biblioteka užsako vadovėlius. Duomenys surašyti tekstiniame faile uzsak.txt tokia tvarka:

5 // komplektų skaičius

20 36.99 //20 vadovėlių op 36Lt 99ct

25 25.39

60 45.99

45 36.69

25 31.99

Reikia apskaičiuoti, kiek kainuos kiekvienas komplektas ir visas užsakymas. Rezultatus programa turi surašyti tekstiniame faile uzsakviso.txt. Rezultatų pavyzdys:

20 36.99 739.80 Lt

25 25.39 634.75 Lt

60 45.99 2759.40 Lt

45 36.69 1651.05 Lt

25 31.99 799.75 Lt

---------------------

Iš viso: 6584.75 Lt

:(

Sveiki visi,

 

nusprendžiau ir aš mokytis programavimo paslapčių, todėl užsirašiau į JPM. Gal kas iš labiau patyrusių gali man naujokui paaiškinti kaip išspręsti šitą pratimą?

 

7. Ar yra neteisingų priskyrimo sakinių? Jei taip, nurodykite kurie, ir trumpai paaiškinkite kodėl.

a) n := n + 1; e) n := n mod 2;

b) n + 1 := 5; f) x := x;

c) x := x := 2; g) x := (7 mod 5);

d) 12 := n + 1; h) x/n := 1 -3;

 

 

beje, skaitau Grigo "programavimas paskaliu", bet taip ir neaišku man iki galo :|

B, C, D, H

Gal kas gali padeti padaryti programa? :)

Salyga:

Mokyklos biblioteka užsako vadovėlius. Duomenys surašyti tekstiniame faile uzsak.txt tokia tvarka:

5 // komplektų skaičius

20 36.99 //20 vadovėlių op 36Lt 99ct

25 25.39

60 45.99

45 36.69

25 31.99

Reikia apskaičiuoti, kiek kainuos kiekvienas komplektas ir visas užsakymas. Rezultatus programa turi surašyti tekstiniame faile uzsakviso.txt. Rezultatų pavyzdys:

20 36.99 739.80 Lt

25 25.39 634.75 Lt

60 45.99 2759.40 Lt

45 36.69 1651.05 Lt

25 31.99 799.75 Lt

---------------------

Iš viso: 6584.75 Lt

:(

program Biblioteka;

Const   Cduom = 'uzsak.txt';
       Crez  = 'uzsakviso.txt';


Type    Knygos = Record
                 Kiekis : integer;
                 Kaina  : real;
                 isviso : real;
                End;

       Mas   = Array[1..100] of knygos;


Var     B, F : text;
       n    : integer;
       A    : Mas;
{--------------------------Funkcijos ir procedûros-----------------------------}
Function suma : real;
Var i   : integer;
   sum : real;
Begin
For i := 1 to n do
   sum := sum + A[i].isviso;
suma := sum;
End;



Procedure Rasyti;
Var i : integer;
Begin
Assign(F, Crez); ReWrite(F);
   For i := 1 to n do
       WriteLn(F, A[i].kiekis,' ',A[i].kaina:0:2,' ',A[i].isviso:0:2,' LT');
       WriteLn(F,'Is viso: ',suma:0:2,' LT');
Close(F);
End;


Procedure Skaiciuoti;
Var i : integer;
Begin
For i := 1 to n do
   A[i].isviso := A[i].kiekis * A[i].kaina;
End;

Procedure Duomenys;
Var i : integer;
Begin
Assign(B, Cduom); Reset(B);
ReadLn(B, n);
   For i := 1 to n do ReadLn(B, A[i].kiekis, A[i].kaina);
Close(B);
End;

{----------------------------Pagrindinë programa-------------------------------}

begin
 Duomenys;
 Skaiciuoti;
 Rasyti;
end.