Parašė SWIZZ· 2010 Gru. 13 19:12:23
#1
Sveiki, taigi esu dešimtokas ir tik šiais metais pradėjom mokintis programavimą (nors turėjom pernai pradėti). Taigi užduosiu čia visus savo klausimus į kuriuos tykiuosi sulaukti atsakymo. :) Programuoti su Pascal noriu dėl savęs čia nėra mano namų darbai ar šiaip kas, nes gyvenimą sieti su programavimu/matematika.
Pirmas klausimas. Paleidus tarkim tokią: (dėl programos nekreipkit demėsio)
program Viduriniai_skaiciai;
var kt, s1, s2, s3, s4, suma : integer;
begin
WriteLn('Iveskite keturženklį skaičių:');
Read(kt);
s1 := kt div 1000;
s2 := kt div 100 mod 10;
s3 := kt div 10 mod 10;
s4 := kt mod 10;
suma := s2 + s3;
Writeln('Sudėjus vidurinius skaičius: ', suma);
readln;
end.
Suvedus 4 skaičius ir paspaudus Enter programa užsidaro ir rezultatų langą reikia prisišaukti tik per Alt+F5.
Kaip padaryti, kad rezultatų langas tiesiog liktu stovėti ir jo nereikėtu kviestis su Alt+F5?
Kolkas tiek. Kitus klausimus rašysiu temos postuose. Dėkui.