Pereiti prie turinio

Pascal klausimelis


Rekomenduojami pranešimai

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...

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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.

Redagavo FaitasS
Nuoroda į pranešimą
Dalintis kituose puslapiuose

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.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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

Redagavo someon
Nuoroda į pranešimą
Dalintis kituose puslapiuose

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

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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.

Redagavo audrius^
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...