Форум программистов, компьютерный форум CyberForum.ru

Pascal ->> C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ РГР http://www.cyberforum.ru/cpp-beginners/thread123533.html
Народ, очень срочно нужна помощь. Написать программу, в которой с помощью "мыши" рисуются прямоугольники на экране. В borland c++. Заранее спасибо.
C++ Наибольшее значение из матрицы Здраствуйте уважаемые програмисты. Помогите мне пожалуйста с этим заданием: надо переменной Z присвоить значение наибольшего из элементов матрицы {Ai,j}4,4 , расположенные выше главной диагонали. Заранее благодарен. http://www.cyberforum.ru/cpp-beginners/thread123529.html
C++ Найти отрицательные елементы
Добрый день. Помогите пожалуйста с эим заданием: нужно для каждого столбца матрицы {Si,j}5,4 определить номера строк, содержащих в себе отрицательные элементы. Желательно сделать на DevC++. Заранее спасибо.
"Портативный" компилятор. C++
День добрый. Ребят, требуется компилятор С++, который бы без проблем запускался с флешки. Никаких наворотов, приятный интерфейс приветствуется (; Кто что посоветует?
C++ Работа с мышью в borland c++ http://www.cyberforum.ru/cpp-beginners/thread123488.html
Вопрос жизни и смерти... Я понимаю, что ничем никому не обязан, но осмелюсь попросить помощи... В borland c++ нужно написать программу, в которой с помошью мыши рисуются отрезки на экране. Заранее спасибо
C++ Удаление строк и столбцов в двумерном массиве Подключая только модули iostream,conio,math. Уплотнить заданую матрицу А, удаляя из нее сроки и столбцы заполненные нулями. подробнее

Показать сообщение отдельно
TP7
1 / 1 / 0
Регистрация: 23.12.2009
Сообщений: 93

Pascal ->> C++ - C++

29.04.2010, 16:48. Просмотров 321. Ответов 1
Метки (Все метки)

Pascal
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
Program Matrica_2;
uses crt;
type matr = array [1..8, 1..8] of real;
procedure UmnMatr(x,y:integer;m1,m2:matr;var m3:matr);
var k,i,j:integer;
begin
for k:=1 to x do
for j:=1 to x do
  begin
    m3[k,j]:=0;
    for i:=1 to y do
    m3[k,j]:=m3[k,j]+m1[k,i]*m2[i,j];
  end;
end;
var A,B,C:Matr;
    n,m,l : integer;
    i,j,k : integer;
begin
clrscr;
write ('Введите количество строк первой  n=');
readln (n);
write ('Введите количество столбцов первой матрицы и строк второй матрицы m=');
readln (m);
write ('Введите количество столбцов второй матрицы l=');
readln (l);
writeln ('Введите элементы матрицы А: ');
for i:=1 to n do
for j:=1 to m do
begin
write ('A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln ('Введите элементы матрицы B : ');
for i:=1 to m do
for j:=1 to l do
begin
write ('B[',i,',',j,']=');
readln(B[i,j]);
end;
clrscr;
writeln('Матрица A:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:6:2);
    writeln;
  end;
writeln('Матрица B:');
for i:=1 to m do
  begin
    for j:=1 to l do
    write(b[i,j]:6:2);
    writeln;
  end;
writeln ('Матрица С=A*B:');
UmnMatr(n,m,a,b,c);
for i:=1 to n do
   begin
     for j:=1 to l do
     write (C[i,j]:8:2);
     writeln;
   end;
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru