Pascal klausimelis

Sveiki, darau viena uzduoti. Padariau keleta programu, ir noreciau jas sujungti i viena. Pvz: Kokios figuros plota noretumete skaiciuoti? kubas spauskite 1, kugis spauskite 2, ir t.t... Ir tarkim paspaudus 1 atsidarytu kita programa, kuri prasytu ivesti duomenis ir atliktu veiksmus...

program Programa;
var x : integer;
begin
 WriteLn( 'Kokios figūros plota norėtumėte apskaičiuoti?' );
 ReadLn( x );
 case x of
 1 : WriteLn( 'Tu pasirinkai nr.1' );
 2 : WriteLn( 'Tu pasirinkai nr.2' );
 3 : WriteLn( 'Tu pasirinkai nr.3' );
 end;
 ReadLn;
end.

Va, prašom :)

Jei nori pasidaryti, daugiau turinio tai:

program Programa;
var x : integer;
begin
 WriteLn( 'Kokios figūros plota norėtumėte apskaičiuoti?' );
 ReadLn( x );
 case x of
 1 : 
   begin
      WriteLn( 'Tu pasirinkai nr.1' );
      WriteLn( 'Tu pasirinkai nr.1' );
      WriteLn( 'Tu pasirinkai nr.1' );
   end;
 2 :     
   begin
      WriteLn( 'Tu pasirinkai nr.1' );
      WriteLn( 'Tu pasirinkai nr.1' );
      WriteLn( 'Tu pasirinkai nr.1' );
   end;
 3 :
   begin
      WriteLn( 'Tu pasirinkai nr.1' );
      WriteLn( 'Tu pasirinkai nr.1' );
      WriteLn( 'Tu pasirinkai nr.1' );
   end;
 end;
 ReadLn;
end.

Aciu uz pagalba, bet darant 3 figura susiduriau su problema, ji nebeatsidaro meta kazkoke klaida

program Projektinis;
var x : integer;
	Sson, Spagr, Svisas, h, pk, p, pst, a, b, c, v:real;
begin
 WriteLn('Kokios figuros plota noretumete apskaiciuoti?');
 WriteLn('1 - Stacioji prizme');
 WriteLn('2 - Kubas');
 WriteLn('3 - Staciakampis gretasienis');
 ReadLn( x );
 case x of
 1 :
begin
WriteLn('Iveskite pagrindo krastines, pagrindo statinio ir aukstines ilgius');
ReadLn(pk, pst, h);
If pk <= 0
 	then writeln('Ivedete 0 arba neigiama skaiciu')
 	else if pst <= 0
 	then writeln('Ivedete 0 arba neigiama skaiciu')
 	else if h <= 0
 	then writeln('Ivedete 0 arba neigiama skaiciu')
 	else
  	begin
   	p := (pst * 2) + pk;
   	Sson := p * h;
   	Spagr := pk * pst;
   	Svisas := Sson + (Spagr * 2);
   	v := Spagr * h;
   	WriteLn('Staciosios prizmes soninio pavirsiaus plotas: ', Sson:0:0);
   	WriteLn('Staciosios prizmes pagrindo plotas: ', Spagr:0:0);
   	WriteLn('Staciosios prizmes viso pavirsiaus plotas: ', Svisas:0:0);
   	WriteLn('Staciosios prizmes turis: ', v:0:0);
  	end;
end;
 2 :
begin
WriteLn('Iveskite krastines ilgi');
ReadLn(a);
If a <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else
   	begin
   	Spagr := a * a;
   	Sson := 4 * (a * a);
   	Svisas := 6 * (a * a);
   	v := a * a * a;
   	WriteLn('Kubo soninio pavirsiaus plotas: ', Sson:0:0);
   	WriteLn('Kubo pagrindo plotas: ', Spagr:0:0);
   	WriteLn('Kubo viso pavirsiaus plotas: ', Svisas:0:0);
   	WriteLn('Kubo turis: ', v:0:0);
   	end;
end;
 3 :
begin
  	WriteLn('Iveskite pagrindo ilgi, ploti ir aukstine');
   	ReadLn(a, b, c);
   	If a <= 0
   	then writeln('Ivedete 0 arba neigiama skaiciu')
   	else if b <= 0
   	then writeln('Ivedete 0 arba neigiama skaiciu')
   	else if c <= 0
   	then writeln('Ivedete 0 arba neigiama skaiciu')
   	else
   	begin
   	Sson := 2 * (a*c + b*c);
   	Spagr := a * b;
   	Svisas := Sson + (2 * Spagr);
   	v := Spagr * c;
   	WriteLn('Staciakampio gretasienio soninio pavirsiaus plotas: ', Sson:0:0);
   	WriteLn('Staciakampio gretasienio pagrindo plotas: ', Spagr:0:0);
   	WriteLn('Staciakampio gretasienio viso pavirsiaus plotas: ', Svisas:0:0);
   	writeLn('Staciakampio gretasienio turis: ', v:0:0);
   	end;
end;
end.

Tai niekas nepadesit? :)

Nesu Paskalio specialistas, bet kam tie dvigubi begin/end (vienas begin prie „įvedėte 0...“, kitas prasidedant skaičiavimams)?

Nesu Paskalio specialistas, bet kam tie dvigubi begin/end (vienas begin prie „įvedėte 0...", kitas prasidedant skaičiavimams)?

Cia su tais begin/end viskas gerai, patikrinau...

kurioje eilutėje ir kokį errorą meta?

kurioje eilutėje ir kokį errorą meta?

http://img34.imageshack.us/img34/5025/stai.jpg

3 :
       begin
       WriteLn('Iveskite pagrindo ilgi, ploti ir aukstine');
       ReadLn(a, b, c);
       If a <= 0
       then writeln('Ivedete 0 arba neigiama skaiciu')
       else if b <= 0
       then writeln('Ivedete 0 arba neigiama skaiciu')
       else if c <= 0
       then writeln('Ivedete 0 arba neigiama skaiciu')
       else
       begin
       Sson := 2 * (a*c + b*c);
       Spagr := a * b;
       Svisas := Sson + (2 * Spagr);
       v := Spagr * c;
       WriteLn('Staciakampio gretasienio soninio pavirsiaus plotas: ', Sson:0:0);
       WriteLn('Staciakampio gretasienio pagrindo plotas: ', Spagr:0:0);
       WriteLn('Staciakampio gretasienio viso pavirsiaus plotas: ', Svisas:0:0);
       writeLn('Staciakampio gretasienio turis: ', v:0:0);
       end;
       end;
     end;

end.

Vieną end; tai tikrai praleidai gale.

Case of sąlygos pavyzdys

3 :
       begin
       WriteLn('Iveskite pagrindo ilgi, ploti ir aukstine');
       ReadLn(a, b, c);
       If a <= 0
       then writeln('Ivedete 0 arba neigiama skaiciu')
       else if b <= 0
       then writeln('Ivedete 0 arba neigiama skaiciu')
       else if c <= 0
       then writeln('Ivedete 0 arba neigiama skaiciu')
       else
       begin
       Sson := 2 * (a*c + b*c);
       Spagr := a * b;
       Svisas := Sson + (2 * Spagr);
       v := Spagr * c;
       WriteLn('Staciakampio gretasienio soninio pavirsiaus plotas: ', Sson:0:0);
       WriteLn('Staciakampio gretasienio pagrindo plotas: ', Spagr:0:0);
       WriteLn('Staciakampio gretasienio viso pavirsiaus plotas: ', Svisas:0:0);
       writeLn('Staciakampio gretasienio turis: ', v:0:0);
       end;
       end;
     end;

end.

 

Vieną end; tai tikrai praleidai gale.

 

Case of sąlygos pavyzdys

Dekui tau uz pagalba, buvai teisus truko vieno end, stai kaip atrodo mano programos galutinis variantas:

http://img836.imageshack.us/img836/8545/llllwi.jpg

Ar kas nors galėtų parodyti kaip spręsti štai tokį uždavinį - Parašykite programą, kuri suskaičiuotų kiek yra lyginių skaitmenų duotame n-ženkliame skaičiuje?

berods taip:

program prog;
   var
       a,
       n:real;
begin
 WriteLn('Ivesk sk.');
 Read(n);
 while n<>0 do
   begin
       if n mod 2 = 0 then a := a+1;
       n := n div 10;
   end;
 WriteLn(a);
 Readln;
end.

Variantas su Python, gal pravers:

skaicius = raw_input('Parašykite sveiką skaičių: ')
def kiekLyginiu(skaicius):
   sara = [int(i) for i in skaicius]
   lyginiai = []
   for j in sara:
       if j % 2 == 0:
           lyginiai += i
   print 'Šiame skaičiuje yra %i lyginiai skaitmenys'  % len(lyginiai)

Ar kas nors galėtų parodyti kaip spręsti štai tokį uždavinį - Parašykite programą, kuri suskaičiuotų kiek yra lyginių skaitmenų duotame n-ženkliame skaičiuje?

Su FPS šiek tiek gražiau parašyta,

program programa;
var sk:longint;
   kiek:integer;
begin
write('Iveskite skaiciu: '); readln(sk);
while sk > 0 do
   begin
   if (sk mod 2 = 0) and (sk mod 10 <> 0) then kiek := kiek + 1;
   sk := sk div 10;
   end;
writeln('Sudaro: ', kiek, ' lyginiais skaiciai.');
readln;
end.