ПОМОГИТЕ С ПРОГРАММОЙ ПРО ТРЕУГОЛЬНИК

[LOTER]

хм. я даже не знаю как написать то.....

это то то что нарешал я первый раз:

# for i:=1 to n do                                                                                 
   begin                     
   read(f1,s);            
   write(f2,s);                                                       
   end; 

а это то что получилось когда я поменял ФОР НА ВАЙЛ

while i<n;
 do begin  
 read(f1,s)  
 write(f2,s)  
 i: = i+1  
 end; 

а не нравится while i<n; потому что условие д.б связано с ф-цией определяющей конец файла.

[LOTER]

это было написано первый раз

for i:=1 to n do                                                                                 
        begin                    
         read(f1,s);                  
         write(f2,s);                                                       
        end;

а это я заменил ФОР на ВАЙЛ

                                                                
 while i<n; 
do begin                                                  
read(f1,s)  
   write(f2,s)  
  i= i+1  
      end;

а не нравится while i<n; потому что условие д.б связано с ф-цией определяющей конец файла!

[LOTER]

да вы правильно поняли что начало второго куска кода соответствует 11 строке. это вообще один код, но я разбил на два чтобы описать что мне непонятно.

[LOTER]

если я правильно понимаю, что начало второго куска кода соответствует 11-й строке первого, если же нет и куски идут друг за другом, то вообще неясно, какая переменная к какой процедуре относится).

это всё один код просто я разбил на два для того чтобы описать то что мне непонятно,для большей читаемости так сказать.

хм. я даже не знаю как написать то.....

это то то что нарешал я первый раз:

# for i:=1 to n do                                                                                 
   begin                     
   read(f1,s);            
   write(f2,s);                                                       
   end; 

а это то что получилось когда я поменял ФОР НА ВАЙЛ

while i<n;
 do begin  
 read(f1,s)  
 write(f2,s)  
 i: = i+1  
 end; 

а не нравится while i<n; потому что условие д.б связано с ф-цией определяющей конец файла.

[B_N]

Сообщение от LOTER

да вы правильно поняли что начало второго куска кода соответствует 11 строке. это вообще один код, но я разбил на два чтобы описать что мне непонятно.

LOTER, ну елки-палки, ну приведите Вы его целиком, ну неужели это такой копирайченый клазед-саурс! Ну ей-Богу, трудно понять, что там где, а тем паче, что Вашему наставнику не понравилось

[LOTER]

Tupe fs=file of string [10];  
  var f1,f2:fs;  
      Procedure Zapis(var f:fs);  
                  var i,n:bute; s:string[10];  
    write( 'введите кол-во строк');  
readln(n); rewrite(f);  
       for i:=1 to n do  
      begin  
   write(i,'строка');  
 readln(s);  
 write(f,s);  
 end;  
   close(f)  
 End;  
  
    Procedure copu f(n: bute; var f1,f2:fs);  
            var i:bute; s:string[10];  
           Begin  
             reset(f1);  
             rewrite(f2);  
 for i:=1 to n do                                                                                 
    begin                   
         read(f1,s);                    
         write(f2,s);                                                       
           end;                                                                     
      close(f1);  
      close(f2);  
   End;  
    Begin  
     Zapis(f1);  
      copu f(s,f1,f2)  
    End;  
END.

я менял ФОР на ВАЙЛ там где ФОР на 21 строке

[LOTER]

Сообщение от B_N

копирайченый клазед-саурс!

что это такое ?

[B_N]

LOTER! Вы это хоть раз компилировать пробовали? Ничего удивительного, что Вас завернули. Где begin? Что за тип bute? Что такое "Tupe"? Это для начала. Исправляйте, а я пока схожу за сигаретами.

[LOTER]

что то не компилируется......... про Type пишет "error in statement"
что делать?
просто эту программу писал мне одногрупник

[B_N]

Сообщение от LOTER

просто эту программу писал мне одногрупник

Вот с этого и надо было начинать. Так, начнем с самого начала. Вы паскаль/фортран/с/с++/яваскрипт/perl/php и т.д. знаете или с основ надо начинать? Без обид...