neapol900
Новичок
|
   
ВОТ ЗАДАЧКА! ( Ввести две матрицы A(N,M) и B(K,L). В каждой матрице найти среднее арифметическое положительных элементов последненго столбца. Преобразовать исходные матрицы, заменив найденным значением элементы первой строки соответствующей матрицы. Преобразованные матрицы распечатать. ) ПОСМОТРИТЕ ПЛИЗ ЧТО НЕ ТАК...
Program abc;
const
Nmax=30;
Mmax=40;
type
Tmatr=array [1..Nmax, 1..Mmax] of real;
var
A,B: Tmatr;
SA,SB,SR: real;
N,M,K,L: byte;
Procedure vvod (var x:Tmatr; Nx,Mx:byte; ch:char);
var
i,j:byte;
begin
writeln ('Ввод матр', ch);
for i:=1 to Nx do
for j:=1 to Mx do
begin
write (ch, '[',i,',',j,']=');
readln (x[i,j]);
end;
end;
Function sum (const x:Tmatr; Nx,Mx:byte): real;
var
i,j:byte;
SR:real;
begin
SR:=0;
for i:=1 to Nx do
if x[i,Mx]>0 then
SR:=SR+x[i,Mx];
sum:=SR;
end;
Procedure preobr (var x:Tmatr; Nx,Mx:byte; SR:real);
var
i,j:byte;
begin
for j:=1 to Mx do
x[i,j]:=SR
end;
Procedure vyvod (const x:Tmatr; Nx,Mx:byte; ch:char);
var
i,j:byte;
begin
writeln ('Матрица', ch);
for i:=1 to Nx do
for j:=1 to Mx do
begin
write (x[i,j]:6:2);
writeln;
end;
end;
begin
vvod (A,N,M,'A');
vvod (B,K,L,'B');
SA:=sum (A,N,M);
SB:=sum (B,K,L);
preobr (A,N,M,SR);
preobr (B,K,L,SR);
vyvod (A,N,M,'A');
vyvod (B,K,L,'B');
end.
|
Всего сообщений: 5 | Присоединился: февраль 2009 | Отправлено: 5 марта 2009 22:29 | IP
|
|
QWR
Новичок
|
Помогите, пожалуста с задачкой=)
Тема: Использование модулей System и CRT.
Найти максимальный и минимальный элемент матрицы, их индексы. Для вывода элементов матрицы составить процедуру, которая обеспечивает ввод элементов в виде таблицы.
Использовать не менее 5 процедур и функций!
|
Всего сообщений: 4 | Присоединился: март 2009 | Отправлено: 7 марта 2009 23:05 | IP
|
|
Brandan
Новичок
|
ребята помогите решить задачу, я вот проболел тему и по-этому не могу сделать задание:дано трехзначное число,найти сумму цифр n числа.
|
Всего сообщений: 1 | Присоединился: март 2009 | Отправлено: 9 марта 2009 15:42 | IP
|
|
mity99
Новичок
|
Дано простое число, надо найти следующее за ним простое число
!
Составить программу через функцию, кому не сложно напишите код, у вас займет это максимум 5 минут
(Сообщение отредактировал mity99 11 марта 2009 13:44)
|
Всего сообщений: 12 | Присоединился: декабрь 2008 | Отправлено: 11 марта 2009 13:43 | IP
|
|
sascha234
Новичок
|
народ помогите решить задачу. Пожалуйста. Я не шарю в Pascal а к завтрашнему надо решить.
Вот задача:
найти максимальный элемент однородного массива состоящего из 10 элементов
|
Всего сообщений: 1 | Присоединился: март 2009 | Отправлено: 12 марта 2009 0:08 | IP
|
|
MaJlbBuHa
Новичок
|
Помогите решить задачу. а тоя не поняла смысл её что же нужно сделать. Формулировка: Напишите программу, которая определяет, являетсся ли разность максимальной и минимальной цифр числа четной
|
Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 13 марта 2009 19:35 | IP
|
|
MaJlbBuHa
Новичок
|
sascha234 вот решение
var a:array [1..10] of integer;
i,max:integer;
begin
randomize;
For i:=1 to 10 do
a[ i ]:=random(50);
For i:=1 to 10 do
Write(a[ i ]:3);
writeln;
max:=0;
For i:=1 to 10 do
If a[ i ]> max then max:=a[ i ];
write('max',max);
readln;
end.
(Сообщение отредактировал KMA 14 марта 2009 3:14)
|
Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 13 марта 2009 19:41 | IP
|
|
Azart prodota
Новичок
|
спасибо всем
(Сообщение отредактировал Azart prodota 19 марта 2009 20:30)
(Сообщение отредактировал Azart prodota 26 марта 2009 16:05)
|
Всего сообщений: 3 | Присоединился: март 2009 | Отправлено: 13 марта 2009 20:56 | IP
|
|
KMA 
Долгожитель
|
 
Помогите решить задачу. а тоя не поняла смысл её что же нужно сделать. Формулировка: Напишите программу, которая определяет, являетсся ли разность максимальной и минимальной цифр числа четной
Смысле прост. Выделяешь из числа цифры, сразу находя максимальную и минимальную цифру. Затем max - min, соответственно ответить "да" если четная и "нет", если не четная.
Поиск цифр очень прост, вот
Code Sample:
max:=0;
min:=9;
while a>0 do
begin
buf:=a mod 10;
a:=a div 10;
if buf>max then max:=buf;
if buf<min then min:=buf
end;
Где а -- это твое число. Остальное думаю доделаешь сама.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 14 марта 2009 3:12 | IP
|
|
QWR
Новичок
|
Помогите, пожалуста с задачкой!
Тема: Работа с множествами
Дано N монет номиналами M1, M2, M3, ... , Mn. Определить можно ли из них составить сумму S.
Программа чо-то не пашет, помогите найти\исправить ошибку!
program qwr;
uses crt;
var
i,s,n,m:byte;
h: array[1..100] of byte;
begin
clrscr;
s:=0;
writeln('vvedit kilkist monet');
readln(n);
writeln('vvedit nominalu monet');
readln(m);
for i:=1 to n do
s:=n+h;
writeln ('s', s);
readln;
repeat until keypressed;
end.
Наперёд, СПАСИБО!
|
Всего сообщений: 4 | Присоединился: март 2009 | Отправлено: 14 марта 2009 12:42 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 2
