Нужно решить задачи к экзамену по программированию!!

[Svetradosti]

https://sites.google.com/site/progra...naa-rabota-no7
Лабараторные работы с 7 по 9 у 4 варианта. Буду очень Благодарен за решение любой задачи.
Решение на Pascal ABC.

[Vanta11a]

Лаба 7.
Проверяется строка, если в ней есть отрицательный элемент (любая булевая (логическая) переменная, переводимая из FALSE в TRUE, когда текущий элемент < 0), прогоняется снова с подсчетом суммы, вывод на экран.
Лаба 8.
Проверка первого символа - если все нормально (буква или знак подчеркивания) - проверка остальных символов на допустимость, если символ недопустим - перевод булевой (логической) переменной в FALSE, соответствующий вывод после проверки строки.
Лаба 9.
Формулы не итерационные (судя по заданию), поэтому просто вывести переменную в духе

writeln(znach:3:5);

Готовые .pas файлы - 50 р/штука.

[Базиля]

Выкладывайте свои наработки, разберем и поможем или же стучите мне в асю.

[Svetradosti]

program LAB7;
const 
x=5; y=3; 
type mass=array [1..x,1..y] of integer; 
var 
a:mass; 
f:file of mass; 
fs:text; 
i,j,s:integer; 

function summ(ii:integer):integer; 
var k,n:integer; 
Begin 
n:=0; 
for k:=1 to x do n:=n+a[k,ii]; 
summ:=n; 
End; 

procedure loadmass (fn:string); 
Begin 
assign(f,fn); 
reset(f); 
read(f,a); 
close(f); 
end; 

procedure createmyfile(fn:string); 
var ic,jc:integer; 
Begin 
assign(f,fn); 
rewrite(f); 
For ic:=1 to y do for jc:=1 to x do a[jc,ic]:=random(30)-2; 
write(f,a); 
close(f); 
End; 

Begin 
createmyfile('11.pas'); 
loadmass('11.pas'); 
For i:=1 to y do 
Begin 
for j:=1 to x do write (a[j,i],' '); 
writeln; 
End; 
assign(fs,'22.pas'); 
rewrite(fs); 
For i:=1 to y do 
for j:=1 to x do if a[j,i]<0 then 
Begin 
s:=summ(i); 
writeln (i,'-строка сумма= ',s); 
writeln (fs,i,'-строк сумма= ',s); 
break; 
End; 
Close(fs); 
End.

Но надо сделать так, чтобы матрица считывалась с текстового файла. И результат записывался в новый текстовый файл.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Базиля]

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

[Svetradosti]

Благодарю Базиля.Можешь пожалуйста 7 лабу дописать? Есть возможность написать другие лабы?

[Базиля]

Стучи мне в аську, обсудим.