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

Переведите пожалуйста прогу) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ параллельный участок http://www.cyberforum.ru/cpp-beginners/thread781454.html
здрасти, люди, кто разбирается в openMP, помогите понять почему в параллельной области , у меня в программе, значения массива m1 получаются упорядочены по возрастанию? если у меня 2-е нити, то...
C++ Переведите пожалуйста прогамму на С++ program variant23; uses crt; var s,a:real; n:integer; Begin clrscr; writeln('Введите а'); read(a); S:=0; for n:=1 to 10 do http://www.cyberforum.ru/cpp-beginners/thread781450.html
C++ Составьте программу, которая создает очередь из произвольного количества элементов
Помогите пожалуйста!!!!!!!!Реализация работы с динамическими структурами. Составьте программу, которая создает очередь из произвольного количества элементов. Информационная часть динамического...
virtual функции C++
я как-то пропустил лекцию по этой теме, и теперь совсем не понимаю назначение этих функций. может кто поделиться ссылкой и нормальными примерами по этой теме? и да, я умею пользоваться гуглом, и...
C++ Взаимно пересекающиеся хидеры у двух файлов http://www.cyberforum.ru/cpp-beginners/thread781407.html
MyLib.h: #include "..\MyLib\MyLib_dev_h.h" namespace MyLib { class Lib1 { public: int A;
C++ функция с разложением в степенной ряд помогите найти пожалуйста ошибку Для х изменяющегося от a до b с шагом (b-a)/k, где (k=10), вычислить функцию f(x), используя ее разложение в степенной ряд в двух случаях: а) для заданного n; ... подробнее

Показать сообщение отдельно
gamer0n
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 47

Переведите пожалуйста прогу) - C++

07.02.2013, 19:28. Просмотров 250. Ответов 3
Метки (Все метки)

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
Program m3; 
Uses CRT; 
Const n=5; m=5; 
k1=100; 
k2=k 1 *2+1; 
Type matr =array[ 1..n, 1..m] of integer; 
Var 
a :matr;
i, j, f, ma :integer; 
Begin 
Clrscr; 
Randomize; 
Writeln('Матpиця:'); 
For i:=1 to n do 
Begin 
For j:=1 to m do 
Begin 
f:=rаndom(k2); 
a[i, j]:=k1-f; 
Write(а[i,j]:3,' ':3);
End; 
Writeln; 
End; 
ma:=a[1, 1]; 
For i:=1 to n do 
For j:=1 to m do 
If a[i, j]<ma then ma:=a[i, j];
Writeln; 
Writeln('Peзyльтaт:'); 
Writeln ('ma =' ma); 
Repeat Until KeyPressed 
End.
Переведите пожалуйста прогу на С++)
И сделайте скрин ее работы)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru