Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 07.11.2011, 02:41   #1 (permalink)
Valerosha
Новичок
 
Регистрация: 07.11.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Паскаль. Задача с файлами, помогите пожалуйста

Компоненты 2 матриц А и Б и вектора С записаны в 3 тесктовых файлах. Записать в другой файл:
(А+Б)*С=?
Я понимаю что основа вычислений в этом
Сложение матриц
Код Pascal1
for i:=1 to n do
for j:=1 to n do
c[i,j]:=a[i,j]+b[i.j];

и в этом:
[I]Умножение матрицы на вектор
Код Pascal
for i:=1 to n do
begin
y[i]:=0;
for j:=1 to n do
y[i]:=y+c[i,j]*d[j];
end;

А не могу написать программу для файлов.... Помогите пожалуйста!!!!
Valerosha вне форума   Ответить с цитированием

Старый 07.11.2011, 02:41
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Тема довольно популярная и ранее создавалась на нашем форуме

Паскаль. Помогите написать программу поиска элемента, пожалуйста
Помогите пожалуйста исправить задачу на строки, Паскаль
Паскаль, работа с файлами
Задача, Паскаль
Помогите, пожалуйста, решить задачу. Паскаль
Паскаль, задача

Старый 07.11.2011, 11:55   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Valerosha Посмотреть сообщение
А не могу написать программу для файлов.... Помогите пожалуйста!!!!
Пожалуйста (пути и, возможно, имена файлов поставьте свои):
Код:
CONST
 M=10; {Number of lines}
 N=8; {Number of columns}
VAR
 f_A,f_B,f_C,f_R:Text;
 A,B:Array[1..M,1..N] of Integer;
 C:Array[1..N] of Integer;
 R:Array[1..M] of Integer;
 i,j:Integer;
BEGIN
 Randomize;
 Assign(f_A,'D:\Inp_A');
 Rewrite(f_A);
 Assign(f_B,'D:\Inp_B');
 Rewrite(f_B);
 Assign(f_C,'D:\Inp_C');
 Rewrite(f_C);
 for i:=1 to M do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=-9+Random(19);
     write(f_A,A[i,j]:4);
     B[i,j]:=-9+Random(19);
     write(f_B,B[i,j]:4);
    end;
   writeln(f_A);
   writeln(f_B);
  end;
  for i:=1 to N do
   begin
    C[i]:=-9+Random(19);
    writeln(f_C,C[i]:4);
   end;
 Close(f_A);
 Close(f_B);
 Close(f_C);

 Reset(f_A);
 Reset(f_B);
 Reset(f_C);
 Assign(f_R,'D:\Out_R');
 Rewrite(f_R);
 for i:=1 to M do
  begin
   for j:=1 to N do
    begin
     read(f_A,A[i,j]);
     read(f_B,B[i,j]);
    end;
   readln(f_A);
   readln(f_B);
  end;
 for i:=1 to N do
  readln(f_C,C[i]);
 Close(f_A);
 Close(f_B);
 Close(f_C);
 for i:=1 to M do
  begin
   R[i]:=0;
   for j:=1 to N do
    R[i]:=R[i]+(A[i,j]+B[i,j])*C[j];
   writeln(f_R,R[i]:6);
  end;
 Close(f_R);
END.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:26.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.