Правильная программа?

[Надюха]

Program lab3;
var f: text;
a,b,c: byte;
g,v,p: string;
x1,y1,x2,y2; {Не уверена, стоит ли здесь вводить эти переменные};
begin
Assign (f,'DANI1.txt');
Reset (f);
Write ('Введите номер группы');
Readln (g);
Write ('Введите номер варианта');
Readln (v);
Write ('Введите фамилию, имя, отчество');
Readln (p);
Write ('Введите a,b,c');
Readln (a,b,c);
Close (f);
Reset (f);
Readln (f);
Writeln (f,g);
Writeln (f,v);
Writeln (f,p);
Writeln (f,a,b,c:8:1); {Здесь не знаю как правильно записать количество знаков};
GotoXY (0,0,40,10); {не опознает, какая-то байда... наверное че-то неправильно записала};
Readln (x1,y1,x2,y2);
TextBackGround (4);
TextColor (1);
end.

Пока что запустить не удалось, поскольку не знаю, как устранить ошибки... Может окажется так, что эт все вообще неправильно Прошу совета

[SkyM@n]

Давно не писал на паскале, но вот это знаю точно:
1) uses crt;
2) x1,y1,x2,y2:integer;

[Cantana]

Сообщение от Надюха

Program lab3;
var f: text;
a,b,c: byte;
g,v,p: string;
x1,y1,x2,y2; {Не уверена, стоит ли здесь вводить эти переменные};
begin
Assign (f,'DANI1.txt');
Reset (f);
Write ('Введите номер группы');
Readln (g);
Write ('Введите номер варианта');
Readln (v);
Write ('Введите фамилию, имя, отчество');
Readln (p);
Write ('Введите a,b,c');
Readln (a,b,c);
Close (f); {зачем здес закривать f}
Reset (f);
Readln (f); {тут тоже не понятно ты хочеш записать в файл или}
Writeln (f,g);
Writeln (f,v);
Writeln (f,p);
Writeln (f,a,b,c:8:1); {Здесь не знаю как правильно записать количество знаков};
GotoXY (0,0,40,10); {не опознает, какая-то байда... наверное че-то неправильно записала};
Readln (x1,y1,x2,y2);
TextBackGround (4);
TextColor (1);
end.

Пока что запустить не удалось, поскольку не знаю, как устранить ошибки... Может окажется так, что эт все вообще неправильно Прошу совета

p.s: согласен с SkyM@n ом на счет переменных

[Stilet]

Надя, задача какая?

[Надюха]

Сообщение от SkyM@n

Давно не писал на паскале, но вот это знаю точно:
1) uses crt;
2) x1,y1,x2,y2:integer;

Вопрос: а зачем "uses crt"? Как оно действует?

[SkyM@n]

Сообщение от Надюха

Вопрос: а зачем "uses crt"? Как оно действует?

Uses - подключает вспомогательные модули.
Crt - один из вспомогательных модулей. Это может быть набор функций, классов, констант или других ресурсов. Например, Uses Crt, Graph, WIndow "знакомит" интерпретатор языка Паскаль еще с библиотеками графики и объектов окон.. У тебя его подключать необходимо, так как используются функции из этого модуля (GotoXY, TextBackGround, TextColor) . То есть без подключения модуля Crt компилятор не знает, что это за функция.
Совет: В начале тела программы добавь ClrScr (от англ. Clear Screen) - очистка экрана.

[Надюха]

Сообщение от SkyM@n

Uses - подключает вспомогательные модули.
Crt - один из вспомогательных модулей. Это может быть набор функций, классов, констант или других ресурсов. Например, Uses Crt, Graph, WIndow "знакомит" интерпретатор языка Паскаль еще с библиотеками графики и объектов окон.. У тебя его подключать необходимо, так как используются функции из этого модуля (GotoXY, TextBackGround, TextColor) . То есть без подключения модуля Crt компилятор не знает, что это за функция.
Совет: В начале тела программы добавь ClrScr (от англ. Clear Screen) - очистка экрана.

Большое спасибо...

[Надюха]

Сообщение от Stilet

Надя, задача какая?

нужно составить
программу, которая выполняет такие действия:
1. Введение с клавы таких данных: РТ-11; 1; Иванов Иван Иванович; 5.141, 1.123Е-3, 0.02
2. Выведение данных в текстовый файл
3. После нажатия любой клавиши считать данные с файла
4. Вывести их на дисплей в окно в соответствии с координатами х1=0,у1=0,х2=40,у2=10. Цвет фона - красный, цвет букв - синий

[Stilet]

Ага ясно, Надюща, вот переработка :

uses crt;
type
r=record
p,ff,ii,oo:string; i,a,b,c:real;
end;
var x,y:integer; s:r;
f:file of r; cc:char;
begin
assign(f,'qq');rewrite(f);
textcolor(white);textbackground(bla ck);x:=0;y:=0;clrscr;
repeat
readln(s.p);
readln(s.i);
readln(s.ff);
readln(s.ii);
readln(s.oo);
readln(s.a,s.b,s.c);
write(f,s);
write('vvodim dalshe [Enter]?');
cc:=readkey; clrscr;
until cc<>#13;
close(f);reset(f);clrscr;
textcolor(blue);textbackground(red) ;x:=0;y:=0;
while not eof(f) do begin
read(f,s);
gotoxy(x,y);write(s.p,s.i,s.ff,s.ii ,s.oo,s.a,s.b,s.c);
inc(x,40);inc(y,10);
end;
cc:=readkey;
end.

CRT здесь нужен для вывода данных на экран, без него твоя задача не решается, поскольку ему пренадлежать GotoXY и работа с цветом.

Подойдет так?

[SkyM@n]

Сообщение от Надюха

Большое спасибо...

Большое пожалуйста