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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
gamer0n
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 47
#1

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

07.02.2013, 19:28. Просмотров 245. Ответов 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.
Переведите пожалуйста прогу на С++)
И сделайте скрин ее работы)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2013, 19:28     Переведите пожалуйста прогу)
Посмотрите здесь:

Пожалуйста переведите из С++ в С(Си) - C++
Задание: Работа со строками. Найти длину самого короткого слова #include &lt;string&gt; #include &lt;iostream&gt; #include &lt;sstream&gt; using...

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

Переведите пожалуйста программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Дан текстовый...

Переведите пожалуйста прогамму на С++ - C++
program ffair; var x,a,b:real; function Sign(x:real):integer; begin if a+b&lt;0 then x:=-1 else if a+b=0 then ...

Пожалуйста, переведите с Pascal на C++ - C++
Помогите, пожалуйста. Времени в обрез. var arr: array of integer; i,n: integer; begin read(n); for i := 1 to n do ...

переведите с паскаля на с++.пожалуйста - C++
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n); clrscr; k:=0; j:=0; i:=1;

Переведите с Pascal на С++ пожалуйста - C++
program asd; var r,V:real; begin write(‘введите радиус r’); readln(r); V:=4/3*3.14*sqr(r)*r; write(‘объем...

переведите с Паскаля на си++ пожалуйста! - C++
Дано имя файла и целое число N (0 &lt; N &lt; 27). Создать текстовый файл с указанным именем и записать в него N строк длины N; строка с номером...

Переведите, пожалуйста, с паскаля на C++ - C++
type Person = record Surname, Name, Adress, City: string; ...

переведите с Паскаля на си++ пожалуйста! - C++
в Паскале получается...а в СИ++ нет( procedure Mean(x,y:real; var AMean,GMean:real); begin AMean:=(x+y)/2; GMean:=sqrt(x * y); ...

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

Переведите пожалуйста прогамму на С++ - C++
program variant23; uses crt; var s,a:real; n:integer; Begin clrscr; writeln('Введите а'); read(a); S:=0; for n:=1 to 10 do


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Пёс
228 / 76 / 4
Регистрация: 03.02.2013
Сообщений: 311
07.02.2013, 19:30     Переведите пожалуйста прогу) #2
gamer0n, если предоставите код с нормальным форматированием, я обещаю, переведу Вам.
gamer0n
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 47
07.02.2013, 19:45  [ТС]     Переведите пожалуйста прогу) #3
Цитата Сообщение от Пёс Посмотреть сообщение
gamer0n, если предоставите код с нормальным форматированием, я обещаю, переведу Вам.
всмысле с нормальным форматированием?
abit
260 / 259 / 33
Регистрация: 03.02.2013
Сообщений: 709
07.02.2013, 20:44     Переведите пожалуйста прогу) #4
дословный перевод

C++
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
#include <iostream>
#include <iomanip>
#include <stdio.h>
#include <stdlib.h>
 
int main()
{
    const unsigned char n=5, m=5;
    int k1 = 100;
    int k2 = k1*2+1;
    int a [n][m];
    int f,ma;
 
    srand(time(0)); // randomize()
 
    std::cout<<"МатериаяцияЖ:"<<std::endl;
    
    for (int i=0; i!=n; ++i)
    {
        for (int j=0; j!=m; ++j)
        {
            f = rand()%k2;
            a[i][j] = k1 - f;
            std::cout<<std::setw(4)<<a[i][j];
        }
        std::cout<<std::endl;
    }
    ma = a[1][1];
    for (int i = 0;i!=n; ++i)
      for (int j=0; j!=m; ++j)
         if (a[i][j]<ma) ma = a[i][j];
         
    std::cout<<std::endl;
    std::cout<<"Результат:"<<std::endl;
    std::cout<<ma<<std::endl;
    system("pause");
}

всмысле с нормальным форматированием?
форматирование, это как у меня - такой код проще читать и понимать что к чему относится, а не в единой куче всё
Yandex
Объявления
07.02.2013, 20:44     Переведите пожалуйста прогу)
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru