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

program sred_bal;
uses crt;
type Tstud=record
           fam:string[15];
           ocn:array[1..4]of byte;
           srb:real;
           end;
var sp:Tstud; {массив уберем, он здесь не нужен}
    i,k,j,t:byte;
    f:file of Tstud;{типизированный файл записей}
    c:char;{символ для окончания ввода}
begin
clrscr;
assign(f,'stud');{связываем переменную с файлом на диске}
rewrite(f);{открываем для записи}
writeln('Введите данные о студентах, окончание ввода Esc:');
i:=0;
repeat
i:=i+1;
writeln(' Студент',i);
write('   Фамилия: ');readln(sp.fam);
writeln('   Оценки:');
for j:=1 to 4 do
  begin
    repeat
    write('     Оценка ',j,'=');
    readln(sp.ocn[j]);
    until sp.ocn[j] in [2..5];{проверяем чтоб не было недопустимых оценок}
  end;
write(f,sp);{заносим запись в файл}
c:=readkey;{ждем нажатия клавиши, если Enter, продолжаем}
until c=#27;{если Esc, заканчиваем ввод}
clrscr;
reset(f);{открываем файл для чтения}
writeln('  Общий список студентов');
writeln;
writeln('---------------------------');
writeln('|   Фамилия | Средний балл|');
writeln('---------------------------');
while not eof(f) do
  begin
    read(f,sp);{читаем запись}
    sp.srb:=0;
    for j:=1 to 4 do
    sp.srb:=sp.srb+sp.ocn[j]/4;{вычисляем средний балл}
    write('| ',sp.fam); {заносим все в таблицу на экран}
    gotoXY(13,whereY);{устанавливаем курсор на текущей строке(whereY) в позицию 13}
    write('|     ',sp.srb:0:2);
    gotoXY(27,whereY);
    write('|');
    writeln;
  end;
writeln('---------------------------');
readln
end.

program Mas_slov;
uses crt;
var s:string; {вводимая строка (по Вашему ряд) переменная строкового типа string}
    sp:array[1..100] of string;{массив строк или слов}
    i,j:byte;
begin
clrscr;
writeln('Введите строку ');
readln(s);{вводим и читаем строку из слов, разделенных одним пробелом, если строка будет более сложная, надо прописать в условии формат строки и тогда ее надо преобразовывать}
s:=s+' ';{добавим в конец строки пробел для удобства}
j:=1;sp[j]:='';{первый элемент массива, сначала это пустая строка}
for i:=1 to length(s) do{идем по строке]
if s[i]=' ' then j:=j+1 {если пробел, то новое слово}
else sp[j]:=sp[j]+s[i];{если нет, составляем слово из символов}
writeln;
writeln(' >>>Массив слов<<<');
for i:=1 to j do
writeln(sp[i]);{выводим полученный массив столбиком}
readln
end.

program sred_bal;
uses crt;
type Tstud=record
           fam:string[15];
           ocn:array[1..4]of byte;
           srb:real;
           end;
var sp:Tstud;
    s,s1:string;
    i:byte;
    t,e:integer;{переменные для перевода строки в число}
    f:text; {текстовый файл]
begin
clrscr;
assign(f,'stud.txt');
reset(f);
writeln('  Общий список студентов');
writeln;
writeln('---------------------------');
writeln('|   Фамилия | Средний балл|');
writeln('---------------------------');
while not eof(f) do
  begin
   readln(f,s);{читаем файл по строкам}
   s:=s+' ';{добавим пробел в конец}
   sp.fam:=copy(s,1,pos(' ',s)-1);{до первого пробела фамилия}
   write('| ',sp.fam);
   delete(s,1,pos(' ',s));{удаляем ее из строки}
   for i:=1 to 4 do{дальше 4 оценки}
     begin
       s1:=copy(s,1,pos(' ',s)-1);{до пробела}
       val(s1,t,e);{превращаем в число}
       sp.ocn[i]:=t;{заносим в запись}
       delete(s,1,pos(' ',s));{удаляем}
     end;
   sp.srb:=0;
   for i:=1 to 4 do
   sp.srb:=sp.srb+sp.ocn[i]/4;{считаем средний балл}
   gotoXY(13,whereY);
   write('|     ',sp.srb:0:2);
   gotoXY(27,whereY);
   write('|');
   writeln;
  end;
writeln('---------------------------');
readln
end.

Program Spirali;
uses crt;
const
 n=21;
var
z,i,x,oldx,oldy,y:integer;
begin
clrscr;
x:=40;
y:=12;
gotoxy(40,12); Writeln(':');
for z:=1 to n do begin
 oldx:=x;
 oldy:=y;
 case z mod 4 of
   0:inc(y,z);
   1:dec(x,z);
   2:dec(y,z);
   3:inc(x,z);
  end;
  if oldx<>x then begin
     if oldx>x then
    for i:=oldx downto x do begin gotoxy(i,y); write('_'); end
     else
    for i:=oldx to x do begin gotoxy(i,y); write('~'); end;
  end;
  if oldy<>y then begin
     if oldy>y then
    for i:=oldy downto y do begin gotoxy(x,i); write(':'); end
     else
    for i:=oldy to y do begin gotoxy(x,i); write(':');  end;
  end;
end;
readln;
end.

uses crt;
var
  n,x,y,z,oldx,oldy,i:integer;
  c,ch:char;
begin
clrscr;
repeat
write('Введите размер окна <=25 n=');
readln(n);
until (n>=3)and(n<=25);
write('Символ c=');
readln(c);
clrscr;
textbackground(7);{цвет фона окна}
textcolor(12);{цвет символа}
window(1,1,n,n);{окно}
if odd(n) then {если размер нечетный}
  begin
   x:=Lo(windmax) div 2;{начало по х от середины -1 влево}
   y:=Hi(windmax) div 2;{начало по у от середины +1 вверх}
  end
else {если четный}
  begin
   x:=Lo(windmax) div 2-1;{начало по х от середины -1 влево}
   y:=Hi(windmax) div 2-1;{начало по у от середины +1 вверх}
  end ;
gotoXY(x,y); {}
writeln(c);{}
z:=1; {}
repeat
oldx:=x;{}
oldy:=y;
case z mod 4 of {регулятор смены строки и столбца}
0:inc(y,z); {переход вниз}
1:dec(x,z);{переход влево}
2:dec(y,z);{переход вверх}
3:inc(x,z);{переход вправо}
end;
if oldx<>x then
  begin
    if oldx>x then {если больше х }
    for i:=oldx downto x do {идем влево по строке}
      begin
        gotoxy(i,y); write(c); delay(300);{вводим символ,задержка 0,3 сек}
      end
    else {если меньше х}
    for i:=oldx to x do{идем вправо по строке}
      begin
        gotoxy(i,y); write(c); delay(300);
      end;
  end;
if oldy<>y then {тоже самое по столбцам, вниз-вверх}
  begin
    if oldy>y then
    for i:=oldy downto y do
      begin
        gotoxy(x,i); write(c); delay(300);
      end
    else
    for i:=oldy to y do
      begin
        gotoxy(x,i); write(c); delay(300);
      end;
  end;
z:=z+1;
if keypressed then
ch:=readkey; {ожидаем нажатия клавиши}
until (z=n) or(ch=#9);
{если не нажали Tab, то спираль строится до конца, если нажали(когда квадрат большой и надоело смотреть), заканчивается}
delay(2000);{задержка перед выходом 2 сек.}
end.