Autorius Tema: {Pascal} Didžiausias skaitmuo skaičiuje.  (Skaityta 8189 kartus)

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
{Pascal} Didžiausias skaitmuo skaičiuje.
« Įrašytas: 2009-06-26 15:10:20 pm »
Pasitelkę matematiką galime suprogramuoti programą kuri rastu didžiausią skaitmenį skaičiūje..

Pamokoje taip pat šiek tiek supažindinama su while ir div komandomis

program Didysis;   //programos pavadinimas
  Var x,a,max:integer;  //kintamieji
begin    //pradedam programą
  WriteLn('Iveskite skaiciu');   //paprašome vartotojo įvesti skaitmenį
  Readln(x);     //nuskaitome jį
  max:=1;      //priskiriame kintamajam 'max' reikšmę '1'
  while x>0 do   //"loop'as" , t.y. kol kintamasis 'x' didesnis už 0, programa atlieka tolesnius veiksmus
  Begin          //prasideda veiksmai
  a:=x mod 10;   //priskiriame veiksmo X/10 liekaną kintamajam 'a'
  if max<a then max:=a;      //jeigu kintamasis 'max' (t.y. '1') mažesnis už kintamajį 'a', tai 'max' lygu 'a'
  x:=x div 10;     //'x' lygus dalikliui gautam padalinus x iš daliklio ir gavus 10
  end;             //baigiam veiksmus
  Writeln('Didziausias skaiciaus skaitmuo: ',max);    //parašom didžiausią skaitmenį skaičiuje
  Readln;
end.        //baigiam programą

« Paskutinį kartą keitė: 2009-09-07 16:16:10 pm sukūrė primatas »
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: Didžiausias skaitmuo skaičiuje.
« Atsakymas #1 Įrašytas: 2009-06-29 13:31:50 pm »
prasides vel mokslo metai, tai bus susidomejusiu tikriausiai :)
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: Didžiausias skaitmuo skaičiuje.
« Atsakymas #2 Įrašytas: 2009-06-29 20:20:33 pm »
Tikriausiai :)
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Rokas Bakūnas

  • Dalyvis
  • **
  • Įrašai: 531
  • Karma: +29/-0
    • Žiūrėti profilį
    • NoL2
Re: {Pascal} Didžiausias skaitmuo skaičiuje.
« Atsakymas #3 Įrašytas: 2009-11-04 03:18:04 am »
na reikes pasiaiskinti veliau, nes dar tik pradedu su pascaliu tai dar man cia per sunku,
Fata

Slaptazodis: manualai.lt
Jai failas ar mano postas tau praverte + karma ;)

Manualai.lt Forumas

Re: {Pascal} Didžiausias skaitmuo skaičiuje.
« Atsakymas #3 Įrašytas: 2009-11-04 03:18:04 am »

Neprisijungęs Vygantas Pauliukonis

  • Dalyvis
  • **
  • Įrašai: 1136
  • Karma: +12/-2
  • Itkokteilis.lt
    • Žiūrėti profilį
Re: {Pascal} Didžiausias skaitmuo skaičiuje.
« Atsakymas #4 Įrašytas: 2009-11-04 15:31:58 pm »
Na man prasidėjo pascalis, šeip baigiu užsikankint, sunkus man bent  tie uždaviniai dar kai matieka nesiseka :)

Neprisijungęs Rokas Bakūnas

  • Dalyvis
  • **
  • Įrašai: 531
  • Karma: +29/-0
    • Žiūrėti profilį
    • NoL2
Re: {Pascal} Didžiausias skaitmuo skaičiuje.
« Atsakymas #5 Įrašytas: 2009-11-04 19:15:54 pm »
Tai vat...
Man tas pac. . .

Kertuosi su paskaliu per matieka... O ir seip isesmes pacio paskalio man neprireiks... tik vienam kartui egzui..
Fata

Slaptazodis: manualai.lt
Jai failas ar mano postas tau praverte + karma ;)

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Didžiausias skaitmuo skaičiuje.
« Atsakymas #6 Įrašytas: 2009-11-04 23:25:57 pm »
as tai atvikrisciai, mache ismokstu per programinga :D nu neskaitant ten kokiu tikimybiu, dispersiju, uzdaru turiu integralu, nykstamuju fciju ir pns. ; ) bet normalu maches basic'a kur mokyklose eina zmones, tai tikrai galima ismokti besimokant programint :)
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Manualai.lt Forumas

Re: {Pascal} Didžiausias skaitmuo skaičiuje.
« Atsakymas #6 Įrašytas: 2009-11-04 23:25:57 pm »