Версия для печати темы

Автор: N/V/K 19.11.2006 16:03

  Uses Graph,F_GRtext,crt;
procedure setwindow (x1,x2,y1,y2,border:byte;header:string;clip,build,play:boolean);
procedure Scrolling(N:integer);
var
b:string; F1:Text;
begin
x1:=20;
x2:=20;
y1:=20;
y2:=20;
border:=2;
clip:=true;
build:=true;
play:=true;
N:=6;
header:=('Лекции');
assign(f1,'d:\1.txt');
reset(f1);
while not EOF(f1) do begin
readln(f1,b);
writeln(b);
end;
writeln('Нажмите Enter для завершения.');
close(f1);
readln;
end;
end;
end.

Подскажите пожалуйста как правиьно вставлять процедуры в код программы? Заранее благодарен.

Автор: мисс_граффити 19.11.2006 16:06

а где они?
судя по всему, весь код относится к Scrolling, который вложен в setwindow...
а чего ты хотел добиться?

Автор: N/V/K 19.11.2006 16:49

Хотел создать текстовое окно с бордюром, заголовком, сигналом, и полосой прокрутки.

Автор: lapp 19.11.2006 17:40

Для точного и правильного понимания читай учебники! Тут я даю лишь примитивное толкование.
Структура программы такая (грубо) :

1. Основная программа состоит из определений данных (константы, типы и переменные)
2. Процедуры и функции
3. Тело программы

Части 1 и 2 могут идти вперемежку (данные, процедуры, данные..). Каждая процедура или функция по структуре тоже такие же, то есть могут иметь сври данные, ппроцедуры и тело. Из всего этого обязательным является только тело (оно может быть пустым, хотя это довольно бессмысленно, кроме как заготовка на будущее)

Такая вложенная структура может продолжаться дальше.
Как именно вставлять процедуры - зависит от области видимости, которую ты хочешь обеспечить (показать или скрыть данные другим процедурам).
Совет: постарайся следовать правилам форматирования программного текста, которые я показал на этом примере. Это поможет.

Uses 
  Graph,F_GRtext,crt;

procedure setwindow (x1,x2,y1,y2,border:byte;header:string;clip,build,play:boolean);
  procedure Scrolling(N:integer);
  var
    b:string; F1:Text;
  begin
    {Here goes procedure Scrolling body}
    x1:=20;
    x2:=20;
    y1:=20;
    y2:=20;
    border:=2;
    clip:=true;
    build:=true;
    play:=true;
    N:=6;
    header:=('Лекции');
    assign(f1,'d:\1.txt');
    reset(f1);
    while not EOF(f1) do begin
      readln(f1,b);
      writeln(b);
    end;
    writeln('Нажмите Enter для завершения.');
    close(f1);
    readln;
  end;
begin
  {Here goes procedure SetWindow body}
end;

begin
  {Here goes main program body}
end.

Автор: N/V/K 19.11.2006 18:12

Lapp спасибо огромное тебе.