3 задачи (на файлы, строки, модуль CRT)

Вот такие задачки остались нерешонными до конца модуля...никак немогу решить (, а нодо как можно скорее сдать...Помогите чем сможете

1. На файлы:
О каждом из студентов известны фамилии и 4 оценки. Определить средний балл каждого студента и вывести соответствующий документ.(Нужно что бы фамилии и оценки вводились и записывались в файл, файл потом открывался, производился подсчёт среднего балла и выводился результат.)
Я решил эту задачу но без использования фАЙЛОВ ))) немогу никак переделать.

program sred_bal;
uses crt;
const nmax=50;
type Tstud=record
fam:string[15];
ocn:array[1..4]of byte;
srb:real;
end;
var sp:array[1..nmax] of Tstud;
n,i,k,j,t:byte;
begin
clrscr;
repeat
write('Введите кол-во студентов =');
readln(n);
until (n>0)and(n<=nmax);
writeln('Введите данные о ',n,' студентах:');
for i:=1 to n do
begin
writeln('Студент',i);
write('Фамилия: ');readln(sp[i].fam);
writeln(' Оценки:');
sp[i].srb:=0;
for j:=1 to 4 do
begin
write(j:7,'=');
readln(sp[i].ocn[j]);
sp[i].srb:=sp[i].srb+sp[i].ocn[j]/4;
end;
end;
clrscr;
writeln;
writeln(' >>>Общий список студентов<<<');
writeln;
writeln('':4,'Фамилия Средний балл');
writeln;
for i:=1 to n do
writeln('':5,sp[i].fam,'':7,sp[i].srb:0:2);
readln
end.

2. На строки и записи.
В ряде содержатся слова разделённые пробелами. Создать массив из этих слов.
Тоже пытался решать но решил неправильно ))

program Mas_slov;
uses crt;
const nmax=50;
type Slova=record
sl:string[15];
end;
var sp:array[1..nmax] of Slova;
n,i,k,j,t:byte;
begin
clrscr;
repeat
write('Количество слов (Максимум 50) = ');
readln(n);
until (n>0)and(n<=nmax);
writeln('Введите ',n,' слов(*а):');
for i:=1 to n do
begin
writeln('Слово ',i);
readln(sp[i].sl);
end;
clrscr;
writeln;
writeln(' >>>Массив слов<<<');
writeln;
for i:=1 to n do
writeln('':5,sp[i].sl);
readln
end.

Строка не должна быть ограничена как у меня...и ввод строки конечно же у меня не правильный...неполучается что то подругому никак ((

3. Использования модуля CRT
Организовать вывод какого-нибудь символа по расходящейся от центра заданного квадратного окна прямоугольной спирали. Программа должна прекращать работу после нажатия на клавишу ТАВ.

Ну тут вообще полный ноль...как только не пробывал решать....нечего путнего не поучилось.

0

1.Что ты понимаешь под окном в текстовом режиме Пакаля?.
2. Программу нужно отлаживать, это просто алгоритм, который наверняка работает не при всех значениях координет окна и его размеров. Во первых окно должно быть так расположено, чтоб от любого его края до края экрана (Паскалевского)было по одной полоске свободной. Это для курсора. Символ появляется, когда курсор уходит, поэтому нужна 1 позиция для этого во все 4 стороны. Короче, тренируйся, это можно сделать очень быстро, если очень умный, или очень долго, если терпеливый, либо вообще не сделать. В том коде, который я написал, бери окно (1,1,1+n,1+n), n>=23. Вроде работает. Программу снова лень писать, а ту выкинул.

0

ДА всё понял теперь )...при окне (1,1,2+n,2+n) и n=23 всё прекрасно строится. Жаль конечно что при других значениях не всё так глдко.

0

Нужно вводить значение координат левого верхнего углов окна х1,у1. Затем размер окна и контролировать, чтобы окно не вылезло за пределы экрана и еще чтоб оставалась полоска для курсора. Потом надо выбирать начальную точку спирали в зависимости от размера окна, чтоб спираль закончилась точно в каком-то углу. Это надо например в Экселе нарисовать таблицы разного размера, например от 5 до 10 и задним ходом искать начальную точку. Потом выявлять зависимость и ее писать в коде.

0