Pascal užduotys

REIKIA PAGALBOS BŪTU GERAI ,KAD PAAIŠKINTUMĖTE KAIP DARYTI

7. Kiek savaitės dienų buvo šiltos, jei šiltomis laikysime tik tas, kurių vidutinė paros temperatūra didesnė už 10 laipsnių Celsijaus? Parašykite programą, nustatančią šiltų dienelių skaičių. Pradiniai duomenys - klaviatūra įvedamos septynių savaitės dienų vidutinės temperatūros, išreikštos Celsijaus laipsniais.

8. Sekos pabaigos požymis yra 0. Apskaičiuoti teigiamų ir neigiamų narių sumas.

9. Duotas sveikųjų skaičių masyvas. Parašykite programą, kuri suskaičiuotų, kiek masyvo elementų yra neigiami ir surastų sumą ir sandaugą tų masyvo narių, kurie yra teigiami.

7 užduoti meginau daryti bet kažkas nesigavo

program uzduotis7;

var temp:integer;

i,n,a:integer;

begin

WriteLn('iveskite savaites dienu temp');

for i:= 1 to 7 do

readln(temp);

begin

if temp>10

then a:= a+1

else ;

writeln ('dienu',a);

end;

readln;

end.

7 užduotis:

program uzduotis7;
 var i, temp, dienos : integer;
begin
 dienos := 0;
 for i := 1 to 7 do
   begin
       Write('Įveskite dienos temperatūrą: ');
       Readln(temp);
       if temp > 10
           then dienos := dienos + 1;
   end;
 Writeln('Šiltų dienų skaičius: ', dienos);
 Readln;
end.

8 užduotis:

program uzduotis8;
 var skaicius, sum1, sum2 : integer;
begin
 Write('Įveskite skaičių: ');
 Readln(skaicius);
 sum1 := 0;
 sum2 := 0;
 while skaicius <> 0 do
   begin
       if skaicius > 0
           then sum1 := sum1 + skaicius
           else sum2 := sum2 + skaicius;
       Write('Įveskite skaičių: ');
       Readln(skaicius);
   end;
 Writeln('Teigiamų narių suma: ', sum1);
 Writeln('Neigiamų narių suma: ', sum2);
 Readln;
end.

program uzduotis7;
   var i,dienos,temp:integer;
begin
   WriteLn('iveskite savaites dienu temp');
   for i:= 1 to 7 do
       begin
           readln(temp);
           if temp > 10 then dienos:= dienos+1;
       end;
   writeln ('Siltu dienu: ',dienos);
readln;
end.

Kadangi nedėjai begin po for ciklo, tai suko tik nuskaityma, o palygnimas buvo vykdomas tik su paskutine nuskaityta reikšme.

7 užduotis:

 

program uzduotis7;

var i, temp, dienos : integer;

begin

dienos := 0;

for i := 1 to 7 do

begin

Write('Įveskite dienos temperatūrą: ');

Readln(temp);

if temp > 10

then dienos := dienos + 1;

end;

Writeln('Šiltų dienų skaičius: ', dienos);

Readln;

end.

program uzduotis7;
   var i,dienos,temp:integer;
begin
   WriteLn('iveskite savaites dienu temp');
   for i:= 1 to 7 do
       begin
           readln(temp);
           if temp > 10 then dienos:= dienos+1;
       end;
   writeln ('Siltu dienu: ',dienos);
readln;
end.

 

Kadangi nedėjai begin po for ciklo, tai suko tik nuskaityma, o palygnimas buvo vykdomas tik su paskutine nuskaityta reikšme.

DĖKUI

7. Kiek savaitės dienų buvo šiltos, jei šiltomis laikysime tik tas, kurių vidutinė paros temperatūra didesnė už 10 laipsnių Celsijaus? Parašykite programą, nustatančią šiltų dienelių skaičių. Pradiniai duomenys - klaviatūra įvedamos septynių savaitės dienų vidutinės temperatūros, išreikštos Celsijaus laipsniais.

program programa;

var i, k,
   dt:integer;
Begin
k:=0;
for i:=1 to 7 do
   begin
   write(i, '-os dienos temp: '); readln(dt);
   if (dt > 10) then k+=1;
   end;
writeln('Siltu savaites dienu kiekis: ', k);
readln;
End.

8. Sekos pabaigos požymis yra 0. Apskaičiuoti teigiamų ir neigiamų narių sumas.

program programa;

var i, k,
   sk,
   tk, nk:integer;
Begin
k:=0; i:=1; tk:=0; nk:=0;
while (true) do
   begin
   write(i, '-as skaicius: '); readln(sk);
   i+=1;
   if (sk <> 0) then
       if (sk > 0) then tk += 1
                   else nk += 1
   else break;
   end;
writeln('Teigiamu kiekis: ', tk);
writeln('Neigiamu kiekis: ', nk);
readln;
End.

9. Duotas sveikųjų skaičių masyvas. Parašykite programą, kuri suskaičiuotų, kiek masyvo elementų yra neigiami ir surastų sumą ir sandaugą tų masyvo narių, kurie yra teigiami.

program programa;
const
   m:array[1..5] of integer = (1, 5, -2, 0, -3);

var i, nk, tsum, tsan:integer;
Begin
nk := 0; tsum := 0; tsan := 1;
for i:=1 to 5 do
   if m[i] > 0 then
       begin
       tsum += m[i];
       tsan *= m[i];
       end else
           if m[i] <> 0 then
               nk += 1;
writeln('Neigiamu kiekis: ', nk);
writeln('Teigiamu suma: ', tsum);
writeln('Teigiamu sandauga: ', tsan);
readln;
End.

program programa;

var i, k,
   dt:integer;
Begin
k:=0;
for i:=1 to 7 do
   begin
   write(i, '-os dienos temp: '); readln(dt);
   if (dt > 10) then k+=1;
   end;
writeln('Siltu savaites dienu kiekis: ', k);
readln;
End.

 

program programa;

var i, k,
   sk,
   tk, nk:integer;
Begin
k:=0; i:=1; tk:=0; nk:=0;
while (true) do
   begin
   write(i, '-as skaicius: '); readln(sk);
   i+=1;
   if (sk <> 0) then
       if (sk > 0) then tk += 1
                   else nk += 1
   else break;
   end;
writeln('Teigiamu kiekis: ', tk);
writeln('Neigiamu kiekis: ', nk);
readln;
End.

 

program programa;
const
   m:array[1..5] of integer = (1, 5, -2, 0, -3);

var i, nk, tsum, tsan:integer;
Begin
nk := 0; tsum := 0; tsan := 1;
for i:=1 to 5 do
   if m[i] > 0 then
       begin
       tsum += m[i];
       tsan *= m[i];
       end else
           if m[i] <> 0 then
               nk += 1;
writeln('Neigiamu kiekis: ', nk);
writeln('Teigiamu suma: ', tsum);
writeln('Teigiamu sandauga: ', tsan);
readln;
End.

Labai dėkingas. Būtų gerai ,kad 9 užduoti paaiškintum kaip kas ir ka :)

Labai dėkingas. Būtų gerai ,kad 9 užduoti paaiškintum kaip kas ir ka :)

program programa;
const  //susikuriam masyva su 5 elementais sudaryta is sveikuju skaiciu
   m:array[1..5] of integer = (1, 5, -2, 0, -3);

var i,
   nk,  //kintamasis kuris kaups neigiamu skaiciu kieki
   tsum, //kintamasis kuris kaups teigiamu skaiciu suma
   tsan:integer; //kintamasis kuris kaups teigiamu skaiciu sandauga
Begin
nk := 0; tsum := 0; tsan := 1; //priskiriam pradines reiksmes kintamiesiems
for i:=1 to 5 do
   if m[i] > 0 then //tikrinam ar i-asis masyvo el yra >0 t.y. teigiamas
       begin //jei teigiamas tai atliekam siuos veiksmus
       tsum += m[i]; //kaupiam teigiamu suma
       tsan *= m[i]; //kaupiam teigiamu sandauga
       end else //jei neneigiamas tai
           if m[i] <> 0 then //tikrinam ar elementas nera 0, jei ne 0 tai
               nk += 1; //kaupiam neigiamu el kieki
{toliau rasom rezultatus ekrane}
writeln('Neigiamu kiekis: ', nk);
writeln('Teigiamu suma: ', tsum);
writeln('Teigiamu sandauga: ', tsan);
readln;
End.

Prašom :)

program programa;
const  //susikuriam masyva su 5 elementais sudaryta is sveikuju skaiciu
   m:array[1..5] of integer = (1, 5, -2, 0, -3);

var i,
   nk,  //kintamasis kuris kaups neigiamu skaiciu kieki
   tsum, //kintamasis kuris kaups teigiamu skaiciu suma
   tsan:integer; //kintamasis kuris kaups teigiamu skaiciu sandauga
Begin
nk := 0; tsum := 0; tsan := 1; //priskiriam pradines reiksmes kintamiesiems
for i:=1 to 5 do
   if m[i] > 0 then //tikrinam ar i-asis masyvo el yra >0 t.y. teigiamas
       begin //jei teigiamas tai atliekam siuos veiksmus
       tsum += m[i]; //kaupiam teigiamu suma
       tsan *= m[i]; //kaupiam teigiamu sandauga
       end else //jei neneigiamas tai
           if m[i] <> 0 then //tikrinam ar elementas nera 0, jei ne 0 tai
               nk += 1; //kaupiam neigiamu el kieki
{toliau rasom rezultatus ekrane}
writeln('Neigiamu kiekis: ', nk);
writeln('Teigiamu suma: ', tsum);
writeln('Teigiamu sandauga: ', tsan);
readln;
End.

Prašom :)

Labai dėkingas :)