«Организация обработки фалов».

[***ЛидОК***]

Мне преподаватель сказал, что это совсем неправильной решение моей задачи((((

[Stilet]

Пусть говорит чем именно не правильное.

[***ЛидОК***]

Каким должен быть файл?

[s-andriano]

Сообщение от ***ЛидОК***

Каким должен быть файл?

А ведь я Вас об этом 2 недели назад спрашивал.
Выложили бы нужный файл, глядишь, и программа была бы написана для чтения именно Вашего файла.

[***ЛидОК***]

program lab_10;
var
	f:	text;	//тип файлa
	Str,Stl,ch:Integer;		//строки,столбцы
	mas:array[1..10] of integer;
	j,i:byte;
	mas1:array[1..10] of integer;
	masCode:array[1..10] of integer;
begin     //обнуляем счетчики
	Str:=0;
	Stl:=0;
/***************************************************************/
	assign(f,'Doc.dat');	//Связь Ф с реальным файлом
	reset(f);			//открытие для чтения файла
/***************************************************************/
	while not EOF(f) do
	begin
		read(f,ch);
		inc(Str)	//колличество строк
	end;
/***************************************************************/
	while not EOF(f) do
	begin
		read(f,ch);
		inc(Stl)	//колличество столбцов
	end;
/***************************************************************/
	for i:=1 to Str do		//запись в масив данные с файла
	for j:=1 to Stl do
	read(f,mas[i,j]);
/***************************************************************/	
	close(f);			//закрытие файла
/***************************************************************/
	for i:=1 to Str do		//считаем кол товара * стоимость товара
	mas1[i]= mas[i,3]*mas[i,4];
/***************************************************************/
	assign(f,'Code.dat');	//Связь Ф с реальным файлом
	rewrite(f);		//открытие для записи
/***************************************************************/
	//составление нового массива для записи
	for i:=1 to Str do
	for j:=2 to Stl do
	masCode[i,j]=mas[i,j];
	for i:=1 to Str do
	masCode[i,3]=mas1[i];
/***************************************************************/
	//запись в файл
	for i:=1 to Str do		//запись масива в файл
	for j:=2 to Stl do
	Write(f, masCode[i,j]);
/***************************************************************/	
	close(f);			//закрытие файла
/***************************************************************/	
end.

Что в этой программе не так?

1 23 3 6
2 23 5 3
2 34 4 3
1 34 5 6 - файл Doc.dat

Doc.dat
125255 001 50 200
125255 002 135 100
125255 003 25 300
125255 004 98 65
125255 005 236 456
Code.dat
001 50 10000
002 135 13500
003 25 7500
004 98 6370
005 236 107616
*/

program Date;
var
	f:	text;	//тип файл
	Str,Stl,ch:Integer;		//++строки,столбцы
	mas:	array[1..10] of integer;
	j,i: byte;
	mas1:	array[1..10] of integer;
	masCode:	array[1..10] of integer;
begin
	//обнуляем счетчики
	Str:=0;
	Stl:=0;
/***************************************************************/
	assign(f,'Doc.dat');	//Связь Ф с реальным файлом
	reset(f);			//открытие для чтения файла
/***************************************************************/
	while not EOF(f) do
	begin
		read(f,ch);
		inc(Str)	//колличество строк
	end;
/***************************************************************/
	while not EOF(f) do
	begin
		read(f,ch);
		inc(Stl)	//колличество столбцов
	end;
/***************************************************************/
	for i:=1 to Str do		//запись в масив данные с файла
	for j:=1 to Stl do
	read(f,mas[i,j]);
/***************************************************************/	
	close(f);			//закрытие файла
/***************************************************************/
	for i:=1 to Str do		//считаем кол товара * стоимость товара
	mas1[i]= mas[i,3]*mas[i,4];
/***************************************************************/
	assign(f,'Code.dat');	//Связь Ф с реальным файлом
	rewrite(f);		//открытие для записи
/***************************************************************/
	//составление нового массива для записи
	for i:=1 to Str do
	for j:=2 to Stl do
	masCode[i,j]=mas[i,j];
	for i:=1 to Str do
	masCode[i,3]=mas1[i];
/***************************************************************/
	//запись в файл
	for i:=1 to Str do		//запись масcива в файл
	for j:=2 to Stl do
	Write(f, masCode[i,j]);
/***************************************************************/	
	close(f);			//закрытие файла
/***************************************************************/	
end.

Что мне переделать, чтобы программа работала в Паскале?

[Smitt&Wesson]

***ЛидОК***, золотце. Прежде всего, научитесь пользоваться кнопочкой "шарп". По-русски, это решётка. Я бы помог с удовольствием, но у меня в глазах рябит. Ни отступов ни формата. Приводить ваш код к читабельности, мне просто лениво (и нужно-ли?).
Принципы форматирования текста:

for(****)
{
  if(***)
  {
     / ещё что-то....
  }
}

Как видите, отступ скобок, совпадает с отступом оператора, их породившего.

Вот такую запись:

for(**){
}

Не рекомендую. При сложном алгоритме, попа будет страшная (в смысле путаницы).

[Rififi]

***ЛидОК***

Мне преподаватель сказал, что это совсем неправильной решение моей задачи((((

И что, ты теперь так легко сдаешься?
Пускай говорит, что неправильно? зря что ли ты тут старалась, выпрашивала на форуме задачку. Да это почти тоже самое как самой решить! (((:

[s-andriano]

Кстати, Rififi дал очень хороший совет:
обязательно нужно отстаивать свою правоту.
Даже если это не удастся, хоть будешь знать, что именно не так.

[***ЛидОК***]

Спасибо Вам большое за поддержку=))) Для меня это очень важно))) Я Вас даже не знаю, но все равно приятно, что есть такие люди, как Вы)))) Это радует=))))))))))

Преподаватель сказал, что программа написана вроде бы логично, но нужно переделать:

while not EOF(f) do
begin
read(f,ch);
inc(Str)
end;
while not EOF(f) do
begin
read(f,ch);
inc(Stl)	
end;