pascal

Sveiki, taigi kadangi jau zinau jog kitais metais bus arba pascal arba (blemba ant liezuvio galvo pavadinimas :D).

Pradedu po biski jau dabar.

Sakykim turiu toki koda:

program skaiciai;

var
 i: Integer;

begin
Writeln('iveskite skaiciu');
Readln(i);
if (i>1) and (i<10) then
Writeln('skaicius tarp 1 ir 10')
else
Writeln('skaicius nera tarp 1 ir 10');
Readln;

end.

jei rasau skaicius nuo 1-9 atvaizduoja jog tar 1-10,bet jei rasau 10 atvaizduoja ji kaip kad nera tarp 1-10

kaip reiktu rasyt jog parasius 10 atvaizduotu kaip tarp 1-10

ar imanoma kitaip nei :

program skaiciai;

var
 i: Integer;

begin
Writeln('iveskite skaiciu');
Readln(i);
if (i>1) and (i<11) then
Writeln('skaicius tarp 1 ir 10')
else
Writeln('skaicius nera tarp 1 ir 10');
Readln;

end. 

program skaiciai;

var
 i: Integer;

begin
Writeln('iveskite skaiciu');
Readln(i);
if (i>1) and (i<=10) then
Writeln('skaicius tarp 1 ir 10')
else
Writeln('skaicius nera tarp 1 ir 10');
Readln;

end.

Tai kad daugelis mokyklu pereina prie c++, nors egzamina galima laikyt ir pascal

Dekui.

Dar butu klausimas kaip padaryti kad neissiujungtu o tiesiog vel is naujo butu

sakykim kad ir su situom kodu irasau 10 ir tada jei vel ka nors irasau(arba neirasau, tiesiog enter) jis issiujungia kaip padaryt kad jis vel is naujo tikrintu ar tarp 1-10 ar ne .

program skaiciai;

var
 i: Integer;

begin
Writeln('iveskite skaiciu');
Readln(i);
if (i>1) and (i<=10) then
Writeln('skaicius tarp 1 ir 10')
else
Writeln('skaicius nera tarp 1 ir 10');
Readln;
ReadLn;
Writeln('iveskite skaiciu');
Readln(i);
if (i>1) and (i<=10) then
Writeln('skaicius tarp 1 ir 10')
else
Writeln('skaicius nera tarp 1 ir 10');
Readln;
ReadLn;
end.

Dekui.

Dar butu klausimas kaip padaryti kad neissiujungtu o tiesiog vel is naujo butu

sakykim kad ir su situom kodu irasau 10 ir tada jei vel ka nors irasau(arba neirasau, tiesiog enter) jis issiujungia kaip padaryt kad jis vel is naujo tikrintu ar tarp 1-10 ar ne .

while(TRUE), sor, nežinau kaip su Pascal parašyt, pasidomėk loops'ais - suprasi.

program skaiciai;

var
 i: Integer;

begin
Writeln('iveskite skaiciu');
Readln(i);
if (i>1) and (i<=10) then
Writeln('skaicius tarp 1 ir 10')
else
Writeln('skaicius nera tarp 1 ir 10');
Readln;
ReadLn;
Writeln('iveskite skaiciu');
Readln(i);
if (i>1) and (i<=10) then
Writeln('skaicius tarp 1 ir 10')
else
Writeln('skaicius nera tarp 1 ir 10');
Readln;
ReadLn;
end.

dekui ir uz sita, bet gal zinai kaip padaryt jog taip be pabaigos ?

dekui ir uz sita, bet gal zinai kaip padaryt jog taip be pabaigos ?

Juk parašiau kaip daryt...

Panaudok while ciklą.

program Skaiciai;
var
 i: Integer;
begin
   while i<=10 do // Nurodai iki kiek turi veikti ciklas, dabar veiks kol įvesi skaičių nuo 1 iki 10, 11 - išsijunks.
       begin
           Writeln('Įveskite skaičių');
           Readln(i);
           if (i>1) and (i<=10) then
           Writeln('Skaičius tarp 1 ir 10')
           else
           Writeln('Skaičius nėra tarp 1 ir 10.');
           Readln;
       end
end.

Jeigu reikės dar ko nors, parašyk į skypę.

Panaudok while ciklą.

Jeigu reikės dar ko nors, parašyk į skypę.

Tik klausimas, kokia bus pradinė i reikšmė tavo sprendime, nes pats jos nenurodai... Ar Paskalis pats daro ką nors dėl to? :)

Galima ir taip su pasirinkimu

program Skaiciai;
var
 i:Integer;
 n:char;
begin
n:='t';
while n = 't' do //vyks kol bus t- taip
   	begin
       	Writeln('Įveskite skaičių');
       	Readln(i);
       	if (i>1) and (i<=10) then
       	Writeln('Skaičius tarp 1 ir 10')
       	else
       	Writeln('Skaičius nėra tarp 1 ir 10.');
       	writeln;
       	writeln('Ar norite toliau tęsti? Įveskite taip - t ne - n');
       	readln(n);
   	end
end.

Tik klausimas, kokia bus pradinė i reikšmė tavo sprendime, nes pats jos nenurodai... Ar Paskalis pats daro ką nors dėl to? :)

0 bus pradinė reikšmė, bet ją geriau nurodyti.

Tik klausimas, kokia bus pradinė i reikšmė tavo sprendime, nes pats jos nenurodai... Ar Paskalis pats daro ką nors dėl to? :)

Kaip ir kažkas sakė reikšmė bus 0, todėl skaičiuos nuo 0 iki 10.