PASCAL la ilgili bizim sınavda çıkmış sorular ve bütünleme de de gelecek YARDIM!!

[hamitcagdas]

1): Interrups nedir ?

2): Klavyedeki Shift Bayraklarının kontrolunu yapan (INSERT,CAPSLOCK,NUMLOCK,SCREOLL LOCK,ALT,CTRL,SOL SHIFT,SAG SHIFT
) tuslarına basılı olup olmadgını kontol eden PROCEDURLERI YAZINIZ !!!! sadece procedurleri


3): Programın cıktısını yapınız;

USES CRT , GRAPH;
VAR
GD,GM:INTEGER;
BEGIN
INITGRAPH(GD,GM, ' '); ==> ' ' ARASINA nasıl bişey koymalıyım koymadgım icin bişey çıkmıyor ama ne yaparsam birşey cıkmasını saglarım?
IF GRAPH RESULT <>0 THEN HALT;
RANDOMIZE;REPEAT
SETCOLOR (RANDOM(16)+1);
LINE TO (RANDOM(GETMAXx),RANDOM(GETMAXy));
UNTIL KEY PRESSED;
CLOSE GRAPH
END.


4): Aşagıdaki şekli oluşturan programı yapınız . düz cigili olcak graph komutu kulanılcak !
--\----/ tam gözükmüyor şekil aynen şöyle; X harfi gibi oluyor
---\--/ - ler yokmuş gibi düşünün
----\/
----/\
---/--\
--/----\ HEPINIZE SIMDIDEN
TESEKUR EDERIM
hamit cagdas

[gokhanaygun]

cevaplar

1. interruptlar hazır fonksiyonlardır.Bios ve dos interruptları olarak ikiye ayrılırlar. Aşağıda pascalda interrupt kullanımına bir örnek verdim. Eğer pascalın komutları senin için pek kullanışlı gelmiyorsa oturur bu interruptlarla daha hızlı ve kullanışlı fonksiyonlar yazabilirsin.

Procedure ShowCursor;
Var
regs : registers;
begin
regs.ax := 1;
intr($33,regs);
end;

burada 33 . interruptın 1. fonksiyonunu kullandık.


2. Program Shift_bayraklari_Kontrolu;
Uses Crt;

procedure tus_kontrolu;

Const bayraklar :Array[0..7] Of String[7]
=(‘SagShft’, ‘SolShft’, ‘Ctrl’, ‘Alt’, ‘ScrollL’, ‘NumL’, ‘CapsL’, ‘Ins’ );
MenuX:Array[0..7] Of Integer=(2, 10, 18, 26, 34, 42, 50, 58);
MenuY=23;
Type BayrakDizi=Array[0..7] Of Boolean;
Var k, sonuç:Byte;

Begin
Asm
Mov Ah,2
Int 16
Mov Sonuç, Al
End;
For k:=7 DownTo 0 Do
Flags[k]:= ((Sonuç Shr k) And 1)=1;
End;
Begin
ClrScr;
Writelen(‘Çıkış için Ctrl+Alt tuşlarına birlikte basınız…’);
Repeat
BayrakDurumu(FI);
For k:=0 to 7 Do
Begin
GoToXY(MenuX[k], MenuY);
If FI[k] Then WriteLn(Bayraklar[k]:7);
Else WriteLn(‘ ’:7);
End;
Until FI[2] And FI[3];
End;

begin

tus_kontrolu;
readln;
end.

3.Bak arkadaşım INITGRAPH(GD,GM, ' '); burası graphı unitinin hdd ki yerini söyler sana ama eğer bu pro graphı hatası vermiyorsa sorun yok ..demektir..
eğer sorunda varsa o zaman graph. unınin yolunu yazarsın .ekran çıktısı yok bunun yanı ekran simsiyah çünkü burda ekrana yazılıacak bişi yok setcolor ile ekranın renk ayarı yapılmış o kadar..

4..uses crt,graph;
var
gd,gm:integer;
begin
initgraph(gd,gm,'');
if graphresult<>0 then halt;
line(100,10,10,100);
line(100,100,10,10);
readln;
closegraph;
end.

evet kardeşim bu kadar ...bu arada üstadıma(salih) sonsuz teşekkürler...

kolay gele..

[firari]

Paylaşım için tşkler…

[Mattet]

teŞekkÜrler PaylaŞim İİÇİn