ETKİLEŞİMLİ TESTLER
© Timur Karacay

PASCAL - Test 06 (Karma Sorular)
| PASCAL | Testler | 3N | Ana Sayfa |
Previous Page

Program A;
    Procedure B;
Procedure C; 

Procedure D;

  Procedure E;

begin {D}

 B;

 E;

end;  {D}



	

Begin { Program A}

	...

	D;

	C;

	D;

	...

End.


program bloklarına dayanarak sonraki üç soruyu yanıtlayınız.

1. procedure B içinde bildirilen bir değişkenin erişilebilme bölgesi aşağıdakilerden hangisidir?

(a) procedure B
(b) procedure B, C
(c) procedure B, C, D
(d) procedure B , D, E
(e) procedure B, C, D, E

2. procedure D içinde bildirilen bir değişkenin erişilebilme bölgesi aşağıdakilerden hangisidir?

(a) procedure D
(b) procedure B, C, D
(c) procedure B, C, D, E
(d) procedure B , C
(e) procedure D, E

3. program A koşturulduğunda, procedürler hangi sırayla gelir ?

(a) D, C, D
(b) D, B, E, C, D, B, E
(c) D, B, E, B, C, E
(d) B, C, D, E, B, C, D, E
(e) D, E, C, D, E

4. not p and q or r boolean ifadesi aşağıdakilerden hangisine denktir ?

(a) ((not p) and q) or r
(b) not p and (q or r)
(c) (not p) and (q or r)
(d) not (p and q) or r
(e) not (p and q or r)

5. Aşağıdakilerden hangisinin değeri 1 dir ?

(a) 6 + 4 div 10
(b) 2 - 9 div 5
(c) 8 - 3 mod 2
(d) (5 - 2)*(2 - 1) mod 3
(e) -15 div 2

6. Aşağıdakilerden hangisi trunc(-2.6) ya denktir ?

(a) trunc(.2E - 02)
(b) round(-1.2)
(c) round(-1.5)
(d) trunc(-3.9)
(e) round(-2.7)

7 ve 8. sorularda şu bildirimler varsayılacaktır. 


	var

		Puan, kod	:	integer;

		Ortalama	:	real;

		karnenotu	:	char;

		liste		:	boolean;

7. Aşağıdaki atamalardan hangisi geçersizdir ?

(a) Kod := 8 mod 4;
(b) puan := 92;
(c) KarneNotu := 'B'
(d) Ortalama := 477/3;
(e) Liste := yes;

8. Aşağıdaki atamalardan hangisi geçerlidir ?

(a) Karnenotu := Ortalama;
(b) Liste := Karnenotu;
(c) Puan := Kod + Karnenotu;
(d) Ortalama := (Puan + Puan)/2;
(e) Hiçbiri

Aşağıdaki program parçasına dayalı olarak 9-12. soruları yanıtlayınız. 


type

	Renk = (Kirmizi, Mavi, Yesil, Portakal);

	YasGrubu  =  1..120;

var

	Bayrak		: boolean;	

	Sonuc		: integer;

	Koyuluk, Tone		: Renk;

	Yas, Dogumtarihi	: YasGrubu;

	Genclik		: 13..19;

	Cevap		: Real;



	Sonuc		:= 15;

	Genclik		:= 19;

	Dogumtarihi	:= 19;

	Cevap		:= 36.0;

	Yas			:= 75;

9. Aşağıdakilerden hangisi geçersizdir ?

(a) Bayrak := False;
(b) Yas := pred(5);
(c) Yas := Genclik;
(d) Koyuluk := pred(Kirmizi);
(e) Yas := 75;

10. Aşağıdakilerden hangisi geçersizdir ?

(a) Bayrak := 7=5;
(b) Dogumtarihi := Yas + pred(Genclik);
(c) Yas := Cevap;
(d) Cevap := ord(Kirmizi) mod 5 ;
(e) Sonuc := ord(Yesil) div 2;

11. Aşağıdakilerden hangisi geçersizdir ?

(a) Sonuc := pred(Cevap);
(b) Sonuc := Dogumtarihi + 10;
(c) Genclik := pred(Dogumtarihi);
(d) Sonuc := ord(Yesil);
(e) Koyuluk := succ(Mavi);

12. Aşağıdakilerden hangisi geçersizdir ?

(a) Tone := Portakal;
(b) Koyuluk := ord(Mavi);
(c) Bayrak := odd(Dogumtarihi);
(d) Sonuc := trunc(Cevap);
(e) Cevap := ord(Mavi);


var

	secenek	: char;

	X,Y,Z	: real;

	I,J,K	: integer;



program parçası ile klavyeden girilen

	12 	13

	6	8	9

	5

	3	2	1

	4

	7

verilerine dayanarak 13-17 inci soruları yanıtlayınız.

13.

	

	Readln(Secenek) ;  

	Writeln(Secenek);
deyimlerinin sonucu nedir ?

(a) 12
(b) 6
(c) 5
(d) 1
(e) 7

14. 

	

	Readln(X,Y,I,J,K);  

	Writeln(I,J,K);
deyimlerinin sonucu nedir ?

(a) 12 13 6
(b) 6 8 9
(c) 12 6 5
(d) 5 3 2
(e) 689

15. 


	for  I := 1 to 5  do

	Read(K);  

	Writeln(K);
deyimlerinin sonucu nedir ?

(a) 12 13 6 8 9
(b) 4
(c) 9
(d) 3
(e) 6

16. 


	for  I := 1 to 5  do 

	Read(Secenek) ;  

	Writeln(Secenek) ;
deyimlerinin sonucu nedir ?

(a) 9
(b) 3
(c) 5
(d) 4
(e) 6

17. 


	for  I := 1 to 5  do 

	Readln(Secenek) ;  

	Writeln(Secenek) ;
deyimlerinin sonucu nedir ?

(a) 9
(b) 3
(c) 5
(d) 4
(e) 6

18. 60 ile 100 arasındaki puanların ortalamasını alan bir programda döngü aşağıdakilerden hangisi ile başlayabilir ?

(a) while ( 60 < puan < 100 ) do
(b) while ( 100 > puan < 60 ) do
(c) while ( puan > 60 or puan < 100 ) do
(d) while ( puan > 60 and puan < 100 ) do
(e) Hiçbirisi

19. Aşağıdakilerden hangisi geçerlidir ?

type

(a) dizi1 : array[1..10] of integer;
(b) dizi2 : array[1..10] of char;
(c) dizi3 : array['a' .. 'c'] of integer;
(d) dizi4 : array[0..19] of 0..9 ;
(e) Liste := yes;

20. 


	

	Function  Max(x,y : integer) : integer ; 

	begin  

	if x > y  then  Max := x  

		else  Max := y  

	end ;
fonksiyonu veriliyor. Aşağıdakilerden hangisi bir Pascal deyimidir ?

(a) Max(16,34) = 34 ;
(b) Max(12+9,5*4) = 21;
(c) if Max(m,n) >= 100 then write('Geçersiz');
(d) s := 4*max(m,n);
(e) Hepsi

index

http://mail.baskent.edu.tr/~tkaracay
© Timur Karacay, 2001. All rights reserved.