FPS uzduotis.

[Edvinas A]

Sveiki, vel as su uzdaviniais (PASCAL)

Parasykite programa kuri nustatytu, is keliu skaitmenu k sudarytas sveikasis skaicius sk. Pasitikrinkite kai sk = 12345 tai k=5, kai sk=4 tai k=1

 

Suprantu kaip mazdaug viskas vyksta, bet nesuprantu kaip parasyt viska i pascal.. (Teisingai..)

Kadangi pascal neprofesionali kalba o tik mokykline, tai mažai kas ir moka, o esme pagauna tai daug kas

Redaguota Balandžio 30, 2014, nario Edvinas A

[bebras]

if(k < 10) then
  writeln('Vienas skaitmuo');
else if(k < 100) then
  writeln('Du skaitmenys');
else if(k < 1000) then
  writeln('Trys skaitmenys');
else if(k < 10000) then
  writeln('Keturi skaitmenys');
else if(k < 100000) then
  writeln('Penki skaitmenys');

Sakiau... Bet kad veiks garantuot negaliu.

[Edvinas A]

Nu bet cia yra toks rasinejimas pastovus, o reiktu kad kazkaip tas ciklas pats susigauditu is kiek dalint.. nu nemoku pasakyt krc. Ir klaida cia yra, kurios mane uzknisa, nes neiseina nrml istaisyt.

  Pvz su c++ tai 

using namespace std;

 

int main()

{

    setlocale(LC_ALL, "Lithuanian");

 int skc, skt=0;

 cout << "Áveskite skaièiø. ";

 cin >> skc;

 while (skc > 0) {

  skc /= 10;

  skt++;

 }

 cout << "Skaièiûje yra " << skt << " skaitmenys\(-muo\).";

return 0;

}

 

 

bet nemoku blmb as perrasyt teisingai.

Redaguota Balandžio 30, 2014, nario Edvinas A

[bebras]

Tai parodyk kaip tai bandai padaryt su paskaliu ir klaidas.

[Edvinas A]

NU va kas is to, tiesiog imeciau sta i vidu sakau nemoku uzrasyt cia ir yra beda, ir dar zinau kad reikia naudoti sitam uzdaviniui ispresti div ir mod, o ne sitaip. O cia klaidos else if eilutese, nu krc nzn reikia to kas moka, nes jei man neiseina tai as ir neparasysiu nei tu klaidu ir t.t....

 

program Darbas12;
    var k, sk : integer;
Begin
WriteLn('Iveskite skaiciu: '); ReadLn(k);
k := 0;
    while sk > 0 do
    begin
if(k < 10) then
  writeln('Vienas skaitmuo');
else if(k < 100) then
  writeln('Du skaitmenys');
else if(k < 1000) then
  writeln('Trys skaitmenys');
else if(k < 10000) then
  writeln('Keturi skaitmenys');
else if(k < 100000) then
  writeln('Penki skaitmenys');
        end;
    WriteLn('Skaitmenu:', k:6);
    ReadLn;
end.

Redaguota Balandžio 30, 2014, nario Edvinas A

[bebras]

program Darbas12;
    var k, skaitmenys : integer;
begin
WriteLn('Iveskite skaiciu: '); ReadLn(k);
    while k > 0 do
    begin
          k := k div 10;
          skaitmenys := skaitmenys + 1;
    end;
    WriteLn('Skaitmenu:', skaitmenys:6);
    ReadLn;
end.

Čia tai ką rodei su c++.

 

Jei atsiras klaidų, rodyk jas. Bandysim spręst.

Redaguota Balandžio 30, 2014, nario Justas Š.

[Edvinas A]

Nera klaidu, viskas ok. Bet wtf, tu sakai nemoki ir gaunasi,o as mokinuosi ir vistiek š.. siaip buvau panasiai padares,bet klaida buvo pas mane.

Redaguota Balandžio 30, 2014, nario Edvinas A