διάβασμα μιας γραμμής σε pascal

[jullaras]

εχώ ας πούμε αυτόν τον κώδικα

 

 

Κώδικας:

 

uses

crt;

var

c:char;

begin

writen('Pascal');

gotoXY(2,1);

 

 

και θέλω η μεταβλήτη c να διαβαζεί τον χαρακτήρα a από την λέξη Pascal

μήπως μπορεί να βοηθήσει κάποιος ?

[blaxos]

κριμα δεν μπορω αλλα κοιταξε καποιο προγραμματισμο της 3ης λυκειου κατι θ αβρεις

[alkisg]

>
var
 screen: array[1..25,1..80] of record
   c: char;
   attr: byte;
 end absolute $b800:0000;

begin
 writeln(screen[1,1].c);
end.

 

Δηλαδή με αυτόν τον τρόπο μπορείς να προσπελάσεις την οθόνη. Πρόσεξε όμως γιατί πρώτα είναι το y και μετά το x, δηλαδή screen[y,x].

 

Υ.Γ. μην κάνεις compile σε protected mode, θα πρέπει να χρησιμοποιήσεις real mode.