Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Задача
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Yunno Yunno вне форума
Member
 
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.10.2008
По умолчанию 07.10.2008, 21:07

1)для задачи 1 (поиск в одномерном массиве)

а) размерность массива: 6
б) значения элементов массива:
1, 8.13, 0.001, 1.2, -0.002, 1.1


2)Для задачи два умножение двух матриц
m = 3, n = 3, r = 2
6 -4 1.5 4 -8.5
A = 0 2 -3.5 В = 1 2
1 2 2 0 -1





1:
Код:
writeln ('---лабораторная работа---'); writeln;
writeln (' Поиск минимального элемента в массиве'); writeln;
writeln ('Задайте размерность массива r:');
readln (n);
writeln ('Задайте значения элементов массива r:');
for m:= 1 to n do
readln (r[m]);
k:= r[1]; q:= 1;
for m:= 2 to n do
if r[m]<k then
begin
k:= r[m]; q:= m;
end;
writeln ('***искомое минимальное значение равно', k, '***');
writeln ('***индекс минимального элемента равен', q, '***');
writeln;
writeln ('Еще один сеанс работы? (да-1, нет-2):');
readln (r[m]);
if n=1 then goto 1;
writeln ('----работа окончена----''');
end.
Программа вычисления произведения двух матриц А и В и вывода значений элементов матрицы С = АВ (программа MATR)

Код:
Program matr (input, output);
type 
t = array [1..15,1..15] of real;        (*раздел типов*)
t1 = array [1..15,1..15] of real;    
t2 = array [1..15,1..15] of real;    
var                     (*раздел переменных*)
n, m, r : integer; 
i, j, k : integer;
a : t;
b : t1;
c : t2;    (*идентификаторы переменных: a, b – исходные матрицы размерностей (m,n) и (n,r) соответственно, с – матрица-результат умножения матрицы a на матрицу b *)
begin
writeln ('---лабораторная работа---'); writeln;
writeln (' Произведение двух матриц');
write ('Задайте произведение двух матриц'); 
readln (m, n, r);
writeln ('Задайте значения элементов матрицы b построчно:');
for j:= 1 to n do
for k:= 1 to r do readln (b[j,k]);
(*матрица ф умножается на матрицу b*)
for i:= 1 to m do
for k:= 1 to r do 
c[i,k]:= 0;
for i:= 1 to m do
for k:= 1 to r do 
begin
for j:= 1 to n do
c[i,k]:= c[i,k] + a[i,j]*b[j,k];
writeln ('_':2, 'c[,i:2,',',k:2,']=',c[i,k]:7:3);
end;
end.

Нада сделать как о_О кто знает напишите thx даж если глянете =)
Ответить с цитированием
  (#2 (permalink)) Старый
pascal65536 pascal65536 вне форума
Member
 
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 01.03.2006
По умолчанию 07.10.2008, 21:56

В первом коде программы потерялся самый важный кусок
Ответить с цитированием
  (#3 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 10.10.2008, 22:57

К первой задаче чтоль? Это какой же?!

Ту Аффтар: что не получается???
Ответить с цитированием
  (#4 (permalink)) Старый
pascal65536 pascal65536 вне форума
Member
 
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 01.03.2006
По умолчанию 11.10.2008, 19:03

Цитата:
К первой задаче чтоль? Это какой же?!
Раздел var
Ответить с цитированием
  (#5 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 11.10.2008, 19:11

Ну тогда и Brgin-a нет первого, самого главного, а так же Program, uses (в таких задачах требуют как правило) и еще много чего. Ну и какое отношение оно имеет сюда? Разве что автор типы переменных указал неверно или где-то в имени ошибся, что собсно и приводит к ошибке. Только тогда да - оно надо. Но если ошибка не в этом, то смысл писать их сюда?

Кстати, автор, а в чем ошибка-то???
Ответить с цитированием
Ads.
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++. Задача licenok1_07 Вопросы начинающих программистов 7 19.10.2011 19:32
Помогите, задача по прологу, срочно...задача с высказываниями 4ixOn Prolog 6 10.07.2011 23:29
Помогите, задача по прологу, срочно...задача о станках 4ixOn Prolog 3 09.07.2011 22:48
Задача по MPI 45$ Naikon1988 Задания за деньги 2 22.12.2010 18:12
HELP! Задача alex3820 Prolog 6 19.07.2008 02:37
Задача ,,,&#39;..&#39;,,, Prolog 7 29.04.2008 18:09
задача про БД.... imported_ben Prolog 2 18.07.2007 15:37
Задача D-Za Visual Basic 0 19.04.2007 13:51
Задача по TP&7.0 Nook Pascal 1 17.01.2007 22:58
задача на Си int33 Задания за деньги 1 14.04.2006 17:53
А,В,С- задача про них!! Anonymous Вопросы начинающих программистов 0 08.01.2004 22:22



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов