Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 2
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]
Модераторы: paradise, KMA
  

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;



Где а -- это твое число.  Остальное думаю доделаешь сама.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]

Форум работает на скрипте © Ikonboard.com