Προς το περιεχόμενο

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • 0
jullaras

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

Ερώτηση

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

 

 

Κώδικας:

 

uses

crt;

var

c:char;

begin

writen('Pascal');

gotoXY(2,1);

 

 

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

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

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

2 απαντήσεις σε αυτή την ερώτηση

Προτεινόμενες αναρτήσεις

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

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες
×
×
  • Δημιουργία νέου...