Помогите кто-нибудь, пожалуйста...

[Sid maksim]

Вобщем надо было сёдня курсовую сдать а я из неё задачи решить не могу...

1.А). Написать программу, создающую файл символов CHARRI.CH
Б). Затем написать программу, выполняющую следующие функции:
• подсчёт общего числа символов в файле;
• запись результата в конец файла CHARRI.CH.

2. Вычислить суммы элементов верхней треугольной матрицы для матриц A(10,10), B(10,10), С(10,10)

3. А) Создать файл, содержащий сведения о сдаче студентами 1 курса кафедры «Информатика» сессии. Структура записи: индекс группы, фамилия студента, оценки по пяти экзаменам. Количество записей – 30.
Б) Написать программу зачисления студентов группы Х на стипендию. Студент, получивший все оценки «5», зачисляется на повышенную стипендию (доплата 25%). Студенты, получившие «4» и «5» зачисляются на обычную стипендию. Студент, получивший хотя бы одну оценку «3», стипендию не получает. Индекс группы вводится с клавиатуры.

4. Заданный текст распечатать по строкам, понимая под строкой либо очередные 60 символов, если среди их нет запятой, либо часть текста до запятой включительно.

Может хоть с какой-нибудь поможите, а то даже Джа уже не в помощь...

[Stilet]

Дык показать наработки не хочешь?

Написать программу, создающую файл символов CHARRI.CH

Примерно так:

var f:file of byte;i:integer;
begin
Assign(f,'c:\temp\q');rewrite(f);
for i :=0  to 255 do begin write(f,chr(i)); end;
Close(f);
end;

подсчёт общего числа символов в файле;

Примени к предидущему коду функцию FileSize.

[Sid maksim]

Блин я бы с удовольствием но не знаю как это...

[Stilet]

ЛЕнтяй.
По первая задача полностью:

var f:file of char; i:byte;c:char;k:longint;
    t:text;
begin
assign(f,'c:\temp\q');rewrite(f);
for i:=32 to 255 do begin
 c:=chr(i);
 write(f,c);
end;
k:=filesize(f);
close(f);
assign(t,'c:\temp\q');append(t);
writeln(t,k);
close(t);
end.

[Sid maksim]

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

[Sid maksim]

assign(f,'c:\temp\q');rewrite(f); вот тут пишет Path not Found

[Plague]

Зачем две темы создовать одинаковые?

[Sid maksim]

Случайно вышло