Arkadaşlar çok basit ama bi o kadar önemli bi program veya (progr***** ) kod blogu bence
Kısaca 150 elemanlı bi dizi for ile döndürülüyor ve her dönme sonunda şart' a bağlanıyor eğer şart doğru ise hata message veriyor.
Tabi bu program çok detaylı olarak geliştirilebilir.Bu programcılığınıza kalmış artık .
program error_message;
uses crt;
procedure hata;
begin
clrscr;
gotoxy(10,10); writeln('***************************************** ***********');
gotoxy(10,12); writeln('* ™§renci Notu Sadece [1..10] aras? olmal?d?r ******');
gotoxy(10,11); writeln('*****************************! HATA MESAJI !********');
gotoxy(10,13); writeln('***************************************** ***********');
end;
procedure next;
var
as:array[1..150] of integer;
i:byte;
begin
clrscr;
write('™§rencilerin notlar? sadece [1..10] aras? olablir, Aksi halde hata mesaji al?rs?n?z');
read;
for i:=1 to 150 do
begin
clrscr;
gotoxy(10,10);
write(i,'','',' nolu ™§rencinin notunu girin...');
readln(as[i]);
if as[i]>10 then
begin
hata;
readln;
end;
end;
end;