paskalio užduotys

Rugpjūčio 2, 2011

Šitą užduotį tikrai galima atlikti protingiau. Be to, kai skelbi, kad padarei, neužmiršk parašyti programos vykdymo laiko. Jei jis viršija sekundę, tada programą galima dar patobulinti.

o kaip pažiūrėti per kiek laiko programa įvykdoma?

The sum of the squares of the first ten natural numbers is,

12 + 22 + ... + 102 = 385

The square of the sum of the first ten natural numbers is,

(1 + 2 + ... + 10)2 = 552 = 3025

Hence the difference between the sum of the squares of the first ten natural numbers and the square of the sum is 3025 385 = 2640.

Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum.

program Bevarde12;
var i : integer;
   sumkvad, kvadsum, ats : longint;
begin
sumkvad := 0;
kvadsum := 0;
ats := 0;
for i := 1 to 100 do
begin
   kvadsum := kvadsum + i;
   sumkvad := sumkvad + i * i;
end;
kvadsum := kvadsum * kvadsum;
ats := kvadsum - sumkvad;
writeln(ats);
readln;
end.

Rugpjūčio 2, 2011

o kaip pažiūrėti per kiek laiko programa įvykdoma?

http://stackoverflow.com/questions/3288837/measure-the-run-time-in-pascal-program

Rugpjūčio 2, 2011

http://stackoverflow.com/questions/3288837/measure-the-run-time-in-pascal-program

Neveikia .

Rugpjūčio 2, 2011

Neveikia .

Jei FP naudoji, tai turi veikt. http://www.freepascal.org/docs-html/rtl/dateutils/secondsbetween.html

Na bet kokiu atveju pastebėjau kad neverta savo galvos per daug su paskalio laiko skaičiavimu sukti - per daug mėšlo ten...

Rugpjūčio 3, 2011

2520 is the smallest number that can be divided by each of the numbers from 1 to 10 without any remainder.

What is the smallest positive number that is evenly divisible by all of the numbers from 1 to 20?

Jeigu nori gali pažiūrėti kaip aš spręndžiau šį uždavinį :)

program programa;

//funkcija kuri randa dvieju skaiciu maziausia bendra kartotini.
function MBK(a, b:longint):longint;
var x, y:longint;
begin
x := a; y := b;
while (x<>0) and (y<>0) do
   if x >= y then x:= x mod y else y:= y mod x;
MBK := a div (x+y) * b;
end;

var i, sk:longint;
Begin
sk := 1;
for i:=1 to 20 do
   sk := MBK(sk, i);
writeln(sk);
readln;
End.

Užtrunka mažiau negu sekundę.

Žinoma aš prieš rašant kodą sugalvoju kaip tai galima matematiškai padaryti :), taip išvengiu programavimo klaidų, kurias taisant užimtų daug laiko.

Rugpjūčio 3, 2011

Jeigu nori gali pažiūrėti kaip aš spręndžiau šį uždavinį :)
program programa;

//funkcija kuri randa dvieju skaiciu maziausia bendra kartotini.
function MBK(a, b:longint):longint;
var x, y:longint;
begin
x := a; y := b;
while (x<>0) and (y<>0) do
   if x >= y then x:= x mod y else y:= y mod x;
MBK := a div (x+y) * b;
end;

var i, sk:longint;
Begin
sk := 1;
for i:=1 to 20 do
   sk := MBK(sk, i);
writeln(sk);
readln;
End.
Užtrunka mažiau negu sekundę.
Žinoma aš prieš rašant kodą sugalvoju kaip tai galima matematiškai padaryti :), taip išvengiu programavimo klaidų, kurias taisant užimtų daug laiko.

Tikrai neblogai sumastyta ;) panagrinėt reiks

Rugpjūčio 8, 2011

A palindromic number reads the same both ways. The largest palindrome made from the product of two 2-digit numbers is 9009 = 91 99.

Find the largest palindrome made from the product of two 3-digit numbers.

program polidnromas;

procedure polindromas(var sk : longint; var ask :longint);
var skaicius, atvsk : longint;
begin
   skaicius := sk;
   atvsk := 0;
   while skaicius > 10 do
   begin
       atvsk := atvsk + skaicius mod 10;
       atvsk := atvsk * 10;
       skaicius := skaicius div 10;
   end;
   atvsk := atvsk + skaicius;
   ask := atvsk;
end;

var i, x  : integer;
sk, max, ask : longint;
begin
sk := 0;
for x := 999 downto 100 do
for i := 999 downto 100 do
   begin
       sk := x * i;
       polindromas(sk, ask);
       if ask = sk then           // tikrina ar polindromas
       if ask > max then max := ask;   // iesko didziausio
   end;
    writeln(max);
    Readln;
end.

Rugpjūčio 10, 2011

Pas mane kodas panasiai parasytas tik as kitaip tikrinu ar palindrominis skaicius, aš bendresnę funkciją susikūręs :)

function ArPandigital(sk:longint):boolean;
var i, ilgis:byte;
   a:boolean;
   mas:array[1..9] of byte;
begin
ilgis := trunc(ln(sk)/ln(10))+1;
for i:=1 to ilgis do
   begin
   mas[i] := sk mod 10;
   sk := sk div 10;
   end;
a := true;
for i:=1 to ilgis div 2 do
   if mas[i] <> mas[ilgis+1-i] then a := false; 
ArPandigital := a;
end;

Redagavo Rugpjūčio 10, 2011 audrius^

Rugsėjo 7, 2011

Dariau 2006 metų egzamino užduotis:

EGZAMINAS

1 užduotis, elektros varža:

program elektra;

const   Cduom = 'duom1.txt';    //duomenu failas
       Crez  = 'rez1.txt';     //rezultatu failas
       Cmax  = 50;             //maksimalus sujungtu laidininku skaicius

type    MasR = array [1..Cmax] of integer;
       MasL = array [1..Cmax] of real;

{-----------------------------Funkcijos ir proceduros-------------------------}

//Skaiciuoti visu uzdaru grandiniu varza
Function SkaiciuotiBendra(L : masL; i : integer) : real;
var sum : real;
   x : integer;
begin
   for x := 1 to i do
       sum := sum + 1/L[x];
   SkaiciuotiBendra := sum;
end;
//skaiciuoti vienos uzdaros grandines varza
Function SumaR(R : MasR; x : integer) : real;
var sum : real;
   i : integer;
begin
sum := 0;
   for i := 1 to x do
       sum := sum + 1/R[i];
   SumaR := sum
end;
//skaityti dokumenta ir suvesti i masyva
Procedure Skaityti(var A : text; var M : masR; var x : integer);
var i, y, c : integer;
begin
   i := 0;
   read(A,i);
   x := i;
   for y := 1 to i do
   begin
       read(A,c);
       M[y] := c;
   end;
end;


{------------------------------Pagrindine programa----------------------------}
var A, B : text;
   i, x : integer; // grandiniu skaicius
   c : integer; // papildomas kintamasis
   R : MasR;    // varzu masyvas
   L : MasL;    // grandiniu masyvas

begin
   assign(B,Cduom); reset(B);
   readln(B,i);
   for c := 1 to i do
       begin
           Skaityti(B,R,x);
           L[c] := SumaR(R,x);
           readln(B);
       end;
   assign(A,Crez); rewrite(A);
   Writeln(A,SkaiciuotiBendra(L,i):3:2);
   close(A);
   close(B);
end.

2 Užduotis, autobusu maršrutai:

program autobusai;

const   Cduom = 'duom2.txt';
       Crez  = 'rez2.txt';
       Cmax  = 100;

type    marsrutas = record
                       miestas     : string[15];   //Miesto vardas
                       km          : real;         //Atstumas tarp miestų
                       valandos    : integer;
                       minutes     : integer;
                   end;

       Masyvas = array[1..Cmax] of marsrutas;

var     i : integer;        //maršrutu skaičius
       v : integer;        //vidutinis greitis
       val : integer;      //pradinės valandos
       min : integer;      //pradinės minutes
       M   : masyvas;      //duomenų masyvas

{-----------------------------------------------------------------------------}
//-------------------------Funkcijos ir procedūros---------------------------//
{-----------------------------------------------------------------------------}


//Procedūra kuri informaciją įrašo į failą Rez2.txt
Procedure Irasyti;
var x : integer;
   B : text;
begin
   Assign(B,Crez); ReWrite(B);
       for x := 1 to i do
       WriteLn(B,M[x].miestas,M[x].valandos,' val. ',M[x].minutes,' min.');
   Close(B);
end;


//Funkcija reikalinga skaičiuoti nuvažiuotą kelią minutėmis
Function Laikas (atstumas, greitis :real) : integer;
begin
   Laikas := Trunc(atstumas / greitis * 60);
end;


//Procedūra skaičiavimams atlikti
Procedure Skaiciuoti;
var x, y : integer;
begin
   for x := 1 to i do
   begin
       y := Laikas(M[x].km,v);
       min := min + y;
       while min > 60 do            // Ciklas reikalingas minutes
       begin                        // keisti i valandas jei jų yra <60
           val := val + 1;
           min := min - 60;
       end;
       M[x].minutes := min;         //minutes ivedamos į masyvą
       M[x].valandos := val;        //valandos ivedamos į masyvą
   end;

end;


//Procedūra duomenims suvesti i masyvą M
Procedure Duomenys;
var F : text;
   x, y : integer;
begin
   Assign(F,Cduom); Reset(F);
       ReadLn(F,i,v,val,min); //Į kintamuosiu įrašoma informacija iš failo
       for x := 1 to i do
       begin
           ReadLn(F,M[x].miestas,M[x].km);
       end;
   Close(F);
end;

{-----------------------------------------------------------------------------}
//--------------------------------programa-----------------------------------//
{-----------------------------------------------------------------------------}

begin
   Duomenys;       //Procedūra duomenims suvesti i masyvą M
   Skaiciuoti;     //Procedūra skaičiavimams atlikti
   Irasyti;        //Procedūra kuri informaciją įrašo į failą Rez2.txt
end.

Spalio 3, 2011

Dar pora egzamininių užduočių:

2008 metų pakartotinė VBE 2 dalis Amžius(failas pridėtas):

program Amzius;

Const       Cduom   = 'U2.txt';     // Duomenø failas
           Crez    = 'U2rez.txt';  // Rezultatø failas
           Cmax    = 100;          // Maximumas

Type        met     =  0..5000;     // Metø intervalas
           men     =  0..12;       // Menesiø intervalas
           die     =  0..31;       // Dienø intervalas
           var_pav =  string[25];  // Vardas ir Pavardë max uþima

           Data    = record          // Þmogaus data susideda ið metø, mënesiø, dienø
                       metai : met;
                       menuo : men;
                       diena : die;
                     end;

           Zmogus  = record
                       vardas   : var_pav;
                       gim_met  : Data;
                       mir_met  : Data;
                       dienos   : longint;
                     end;

           Mas     = array[1..Cmax] of Zmogus;

Var         B, F             : Text;            // Tekstiniams failams skaityti
           M                : Mas;
           n                : Integer;         // Kiek þmoniø
           sum              : Longint;         // Dienø suma
{------------------------Funkcijos ir procedûros-------------------------------}

{ Tikrina kuris mënesis }
Procedure koksmen(i : integer);
Var c : integer;
begin
c := M[i].mir_met.menuo;
   if (c = 2) then
       M[i].mir_met.diena := 28;
   if (c = 1) or (c = 3) or (c = 5) or (c = 7)
              or (c = 8) or (c = 10) or (c = 12) then
       M[i].mir_met.diena := 31
                                                 else
       M[i].mir_met.diena := 30;
if M[i].mir_met.menuo = 0 then
begin                                           { Jei mënesis pasieke 0 tada atimama }
M[i].mir_met.metai := M[i].mir_met.metai - 1;   { vieni metai ir pradedama           }
M[i].mir_met.menuo := 12;                       { mënesius skaièiuoti ið naujo nuo 12}
end;
end;


{ Metai pakeièiami á dienas ir pridedami }
Procedure metus(var sum : longint; i : integer; A : Mas);
begin
           sum := sum + (M[i].mir_met.metai - M[i].gim_met.metai) * 365;
end;


{ Mënesiai pakeièiami á dienas ir pridedami prie sumos - sum }
Procedure menesius(var sum : longint; i : integer; A : Mas);
begin
   While M[i].mir_met.menuo <> M[i].gim_met.menuo do
       begin
           koksmen(i);
           sum := sum + M[i].mir_met.diena;
           M[i].mir_met.menuo := M[i].mir_met.menuo - 1;
       end;
end;


{ prie sumos - sum pridedamos dienos }
Procedure Dienas(var sum : longint; i : integer; A : Mas);
Begin
   while M[i].gim_met.diena <> M[i].mir_met.diena do
       begin
           sum := sum + 1;
           M[i].mir_met.diena := M[i].mir_met.diena - 1;
           if M[i].mir_met.diena = 0 then
           begin
           M[i].mir_met.menuo := M[i].mir_met.menuo - 1;
           koksmen(i);
           end;
       end;
End;


{ Skaièiuoja kiek dienø pragyventa }
{ Skaièiavimo principas kaip atgalinio laikrodþio -
vienà dienà atima ir tuo
paèiu vienà dienà prideda prie sumos }
Function SkaiciuotiDienas : longint;
Var i : integer;
begin
   for i := 1 to n do
   begin
       dienas(sum,i,M);      // Sudeda dienas
       menesius(sum,i,M);    // Menesius verèia dienomis ir sudeda
       metus(sum,i,M);       // Metus verèia dienomis ir sudeda
       M[i].dienos := sum;
       sum := 0;
   end;
end;


{ Duomenys suvedami á masyvus }
Procedure duomenys;
Var i : integer;
begin
   Assign(B, Cduom); Reset(B);
       ReadLn(B,n);
           For i := 1 to n do
               ReadLn(B,M[i].vardas,M[i].gim_met.metai,M[i].gim_met.menuo,
               M[i].gim_met.diena,M[i].mir_met.metai,M[i].mir_met.menuo,
               M[i].mir_met.diena);
   Close(B);
end;


{ Spausdina viskà á failà Crez }
Procedure spausdinti;
Var i : integer;
begin
   duomenys;                          // Reikalingi pradiniai duomenys
   Assign(F, Crez); ReWrite(F);
       For i := 1 to n do
       WriteLn(F,M[i].vardas, ' ',M[i].gim_met.metai,' ',M[i].gim_met.menuo,' ',
       M[i].gim_met.diena,' ',M[i].mir_met.metai,' ',M[i].mir_met.menuo,' ',
       M[i].mir_met.diena,' ',M[i].dienos);
   Close(F);
end;
{--------------------------Pagrindinë programa---------------------------------}
var i : integer;
begin
 Duomenys;                 // Duomenys suvedami á masyvus
 SkaiciuotiDienas;         // Funkcija skaièiuojanti pragyventas dienas
 Spausdinti;               // Viskà spausdinà á failà Crez
end.

2 Iš to pačio Egzamino Metro(Failas pridėtas):

program Metro;

Const       Cduom = 'U1.txt';          //duomenø failas
           Crez  = 'U1rez.txt';       //rezultatø failas
           Cmax  = 100;

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

Var         B, F  : text;     //Rezultatø ir duomenø failo kintamieji
           n     : integer;  //Stoteliø skaièius
           islipo,           //iðlipusiø þmoniø skaièius
           ilipo,            //álipusiø þmoniø skaièius
           numeris : Mas;    //stoteles numeris

{---------------------------Funckijos ir procedûros---------------------------}
{Fukcija skaièiuojanti visø ilipusiø þmoniø skaièiø}
Function isviso : integer;
var sum, i : integer;
begin
sum := 0;                     //ilipusiø zmoniu suma
   For i := 1 to Cmax do
       sum := sum + ilipo[i];
   isviso := sum;
end;

{Skaièiuojama ir áraðoma kurioje stotelëje vaþiavo daugiausia þmoniø}
Function Daugiausia : integer;
var max, i, nr : integer;
begin
max := islipo[1] + ilipo[1];
   For i := 2 to Cmax do
       if islipo[i] + ilipo[i] > max then
       begin
           max := islipo[i] + ilipo[i];
           nr := i;
       end;
   Daugiausia := nr;
end;

{Skaièiuojama ir áraðoma kiek keleiviø praëjo pro kontrolieriø}
Procedure praejo;
var i, viso : integer;
begin
   for i := 1 to Cmax do
       if numeris[i] > 0 then
       begin
           viso := islipo[i] + ilipo[i];
           Write(F,viso:6);
       end;
       WriteLn(F);
end;

{Spausdinamos stoteles i rezultatø failà didëjimo tvarka}
Procedure Stoteles;
var i : integer;
begin
   for i := 1 to Cmax do
       if numeris[i] > 0 then
           Write(F,numeris[i]:6);
           WriteLn(F);
end;

{duomenys skaitomi ir suvedami á masyvus}
Procedure Duomenys;
var i, dien, nr, ilip, islip : integer;
begin
for i := 1 to Cmax do         //nulinami masyvai
begin
ilipo[i]  := 0;
islipo[i] := 0;
end;
   Assign(B,Cduom); Reset(B);
       ReadLn(B,n);
           For i := 1 to n do
           begin
               ReadLn(B,nr,dien,ilip,islip);
               numeris[nr] := nr;
               ilipo[nr]  := ilipo[nr] + ilip;
               islipo[nr] := islipo[nr] + islip;
           end;
   Close(B);
end;


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

begin
 Duomenys;                          //Skaitomi duomenys
 Assign(F, Crez); ReWrite(F);       { Atidaromas ir pariuoðiamas }
   Stoteles;                        { rezultatø failas skaitymui }
   Praejo;
   WriteLn(F,Daugiausia:6);
   WriteLn(F,isviso:6);
 Close(F);
end.

3. 2009 VBE 1 dalis Mainai(Failas pridėtas):

program Mainai;

Const       Cduom = 'U1.txt';       // Duomenø failas
           Crez  = 'U1rez.txt';    // Rezultatø failas
           Cmax  = 50;             // Maximumas

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

Var         B, F  : text;    // Tekstiniø failø kintamieji
           Gpin,            // Gilijos monetos
           Gstud,           // Gilijos studento turimos monetos
           Epin,            // Eglijos monetos
           Estud : Mas;     // Eglijos studento turimos monetos
           g, e  : integer; // Kiek monetu g - gildija e - eglija
           Gsum,            // Suma studento ið Gildijos monetø
           Esum  : integer; // Suma studento ið Eglijos monetø

{---------------------------Funkcijos ir procedûros----------------------------}



Procedure Rasyti(x, sum : integer; A : Mas);
Var i, mon, smon : integer;
begin
mon  := 0;           // Vienos rûðies monetø suma
smon := 0;           // Visø monetø suma
For i := 1 to x do
begin
   while sum >= A[i] do
   begin
       sum  := sum - A[i];
       mon  := mon + 1;
   end;
   smon := smon + mon;
   WriteLn(F,A[i], ' ', mon);     // Áraðo monetos vertæ ir kiek jø yra
   mon := 0;
end;                               // Áraðo visas turimas monetas
WriteLn(F,smon);
end;



{ Skaièiuojama Studentø monetø verèiø suma }
Function suma(pin, stud : Mas; a : integer) : integer;
Var i, sum : integer;
begin
sum := 0;
   For i := 1 to a do
       sum  := sum + ( pin[i] * stud[i] ) ;
       Suma := sum
end;


{ Duomenys suvedami á masyvus}
Procedure Duomenys;
var i : integer;
Begin
for i := 1 to Cmax do             // Aniliuojama masyvai
begin
  Gpin[i]  := 0;
  Gstud[i] := 0;
  Epin[i]  := 0;
  Estud[i] := 0;
end;
   Assign(B,Cduom); Reset(B);    // Skaitomas duomenø failas
       ReadLn(B,g);
           for i := 1 to g do Read(B,Gpin[i]);
           for i := 1 to g do Read(B,Gstud[i]);
       ReadLn(B,e);
           for i := 1 to e do Read(B,Epin[i]);
           for i := 1 to e do Read(B,Estud[i]);
   Close(B);
end;

{-----------------------------Pagrindinë programa------------------------------}
begin
 Duomenys;
       Gsum := Suma(Gpin,Gstud,g);    // Skaièiuojamos sumos Gildijos ir
       Esum := Suma(Epin,Estud,e);    // Eglijos studentø turimø monetø
 Assign(F,Crez); ReWrite(F);          // Atidaromas Rezultatø failas
   Rasyti(e,gsum,Epin);
   Rasyti(g,esum,Gpin);
 Close(F);
end.

2008_pak_2.doc

2008_pak_1.doc

2009_pagr_1Uzduotis.doc

Redagavo Spalio 3, 2011 raima220

Lapkričio 8, 2011

Išsprendžiau, bet nerandu, kaip ištrint šį postą ;D

Redagavo Lapkričio 9, 2011 Osvaldass

Lapkričio 12, 2011

Parašykite programą, kuri duotojo tekstinio failo visus žodžius, kurie

sutampa su atbulai parašytais žodžiais (pvz., "ala" "salas" ), įrašo

į kitą nurodytą tekstinį failą.

ir parašyk kodą, nes man kažkas ten nesgauna :D

Lapkričio 12, 2011

Parašykite programą, kuri duotojo tekstinio failo visus žodžius, kurie
sutampa su atbulai parašytais žodžiais (pvz., "ala" "salas" ), įrašo
į kitą nurodytą tekstinį failą.
ir parašyk kodą, nes man kažkas ten nesgauna :D

parodyk kiek tu padaręs ;)

Lapkričio 13, 2011

parodyk kiek tu padaręs ;)

aš jei ką tai pana :D taip,kad padarius, ir jau nieko nebepadarius, nes išpeikė mane ir viską tryniau,taip kad kolkas likau nulio vietoj, pirma reik man kitą programą parašyt assembly, tada imsiuosi pascalio, bet jau užsikroviau darbais ir šakės kaip nusibodo mokytis :D

Lapkričio 13, 2011

aš jei ką tai pana :D taip,kad padarius, ir jau nieko nebepadarius, nes išpeikė mane ir viską tryniau,taip kad kolkas likau nulio vietoj, pirma reik man kitą programą parašyt assembly, tada imsiuosi pascalio, bet jau užsikroviau darbais ir šakės kaip nusibodo mokytis :D

Juk labai paprasta, pvz. nuskaitai zodi i masyva, tada imi ir lygini pirma raide su paskutine jei nesutampa reiskia zodis netinka tau, poto antra raide su priespaskutine ir t.t.

Lapkričio 13, 2011

aš jei ką tai pana :D taip,kad padarius, ir jau nieko nebepadarius, nes išpeikė mane ir viską tryniau,taip kad kolkas likau nulio vietoj, pirma reik man kitą programą parašyt assembly, tada imsiuosi pascalio, bet jau užsikroviau darbais ir šakės kaip nusibodo mokytis :D


bool isAwesome(char *str);
{
 len = strlen(str);
 for(int i = 0, i < len / 2; i++, len--)
 {
   if (str[i] != str[len])
     return false;
 }
 return true;
}

Algoritmas, maždaug toks.

Ant paskalio reikėtų for'ą keisti į

` while i < len div 2 do `

ir ciklo pabaigoje mažinti len ir didinti i.

Redagavo Lapkričio 13, 2011 kashiukas

Lapkričio 14, 2011

Program Raimondas;
Var zodis : string;
   kiek, k, i, x : integer;
Begin

WriteLn('iveskite zodi: ');
ReadLn(zodis);
   kiek := length(zodis);
   k := kiek;
   x := 0;
       For i := 1 to kiek do
       begin
           if zodis[i] <> zodis[k] then x := x + 1;
           k := k - 1;
       end;
   if x > 0 then WriteLn('Zodis nepolidnromas')
            else WriteLn('Zodis polindromas');
   readln;
end.

Prašom ;)

Redagavo Lapkričio 14, 2011 raima220

Gruodžio 6, 2011

2006 metų bandomasis

program turistai;

Const   Cduom = 'turU2.txt';
       Crez  = 'U2rez.txt';
       Cmax  = 100;

Type    Turistas = record
                   vardas  : string[15];
                   sum     : integer;
                  end;
       Mas      = Array[1..cmax] of Turistas;

Var     M    : Mas;
       B, F : text;
       n    : integer;
{-----------------------------Funkcijos ir procedûros--------------------------}
Procedure Daugiausia;
Var i, max, x : integer;
Begin
max := M[1].sum;
   For i := 2 to n do
       If M[i].sum > max then
                         Begin
                           max := M[i].sum;
                           x   := i;
                         End;
       WriteLn(F, M[x].vardas,' ',M[x].sum);
End;

Procedure visi;
Var i : integer;
Begin
   For i := 1 to n do
       WriteLn(F, M[i].vardas,' ',M[i].sum);
End;


Function viso : integer;
Var i, suma : integer;
Begin
suma := 0;
   For i := 1 to n do
       suma := suma + M[i].sum;
   Viso := suma;
End;


Procedure Duomenys;
Var i, j, sum, x : integer;
Begin
sum         := 0;
Assign(B, Cduom); Reset(B);
   ReadLn(B, n);
   For i := 1 to n do
   Begin
       Read(B, M[i].vardas, j);
           For x := 1 to j do
           Begin
               Read(B, sum);
               M[i].sum := M[i].sum + sum;
           End;
           ReadLn(B);
   End;
Close(B);
End;
{-------------------------------Pagrindinë programa----------------------------}
begin
 Duomenys;
 Assign(F, Crez); ReWrite(F);
   WriteLn(F, viso);
   visi;
   daugiausia;
 Close(F);
end.

Prisijungti

paskalio užduotys

Rekomenduojami pranešimai

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Nuoroda į pranešimą

Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Dabar naršo 0 narių

Prisijunk prie bendruomenės dabar!

Naujausios temos

Karštos temos