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

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

Войти
Регистрация
Восстановить пароль
 
love.coffee
0 / 0 / 0
Регистрация: 12.10.2010
Сообщений: 18
#1

с паскаля на с++ - C++

29.11.2011, 22:12. Просмотров 257. Ответов 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
Program z1; 
uses crt; 
const 
n=10; 
type 
matr = array[1..n,1..n] of integer; 
 
var 
i,j,ks1,ks2,min:integer; 
a:matr; 
summb:boolean; 
 
procedure summd(m1:matr; var m:integer); 
var i,j,k:integer; 
s:array[1..n*2] of integer; 
begin 
k:=0; 
for i:=1 to n do begin 
for j:=1 to n do begin 
s[j+k]:=s[j+k]+abs(a[i,j]); 
end; 
k:=k+1; 
end; 
m:=s[1]; 
for i:=1 to n*2-1 do 
if s<m>; 
end; 
function sum(j:integer):integer; 
var i,s:integer; 
begin 
for i:=1 to n do s:=s+a[i,j]; 
sum:=s; 
end; 
begin 
clrscr; 
randomize; 
for i:=1 to n do begin 
for j:=1 to n do begin 
a[i,j]:=random(50)-25; 
write(a[i,j]:3); 
end; 
writeln; 
end; 
writeln; 
for j:=1 to n do begin 
summb:=true; 
for i:=1 to n do begin 
if a[i,j]<0 then summb:=false; 
 
end; 
if summb then begin 
writeln('Summa ',j,' stolbca = ',sum(j)); 
ks1:=ks1+1; 
end; 
 
end; 
if ks1=0 then writeln('Net stolbcov ne soderj otric el-v!'); 
summd(a,min); 
writeln('Minimalnaya summa diagonalei paral gl diag: = ',min); 
readkey; 
end.
помогите плиз
перевести в с++
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 22:12     с паскаля на с++
Посмотрите здесь:

Из Паскаля на СИ - C++
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x + c * c; a := exp(ln(abs(92))...

С Паскаля на С++ - C++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных writeln('Введите числа M (M&lt;=10)...

из паскаля в си) - C++
Переведите мне пожалуйста прогу, написанную в паскале, в си))))) для меня это очень важно))))))) завтра последний срок) program...

С паскаля на С++ - C++
Всем добрый вечер!! Вот сама задача.....Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие выше побочной диагонали....

Из паскаля в С++ - C++
Program lab5; Var a:array of integer; n,I,min,k:integer; P:longint; s:real; Begin Writeln('введите размерность массива'); ...

C Паскаля на С++ - C++
помогите пожалуйста переделать это на С++ язык...очень нужно { На интервале (1000 ; 9999) найти все простые числа, каждое из...

С Паскаля на С++ - C++
Дана целочисленная матрица размера M × N. Найти количество ее строк, все элементы которых различны. ...

из паскаля в C++ - C++
3)Даны два действитьельных числа. Заменить первое число нулем, если оно меньше или равно второму и оставить числа без изменения в противном...

С Паскаля на С++ - C++
Кто способен переделать программу, написанную на Паскале, на С++?

Из паскаля в С++ - C++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее спасибо. program example1; var ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
HighPredator
5476 / 1842 / 343
Регистрация: 10.12.2010
Сообщений: 5,433
Записей в блоге: 3
30.11.2011, 21:13     с паскаля на с++ #2
Цитата Сообщение от love.coffee Посмотреть сообщение
Pascal
1
if s<m>;
Что это?

Добавлено через 20 минут
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
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
#include<iostream>
#include<time.h>
 
using namespace std;
 
#define n 10
 
typedef int matr[n][n];
 
int i,j,ks1,ks2,_min;
matr a;
bool summb;
 
void summd(matr m1,int m)
{
    int i,j,k;
    int s[n*2];
    k=0;
    for(i=0;i<n;i++)
    {
        for(j=0;j<n;j++)
        {
            s[j+k]=s[j+k]+abs(a[i][j]);
        }
        k++;
    }
    m=s[1];
    for(i=0;i<n*2;i++)
    {
        //тут ваш страшный if
    }
}
 
int sum(int j)
{
    int i,s;
    for(i=0;i<n;i++) s=s+a[i][j];
    return s;
}
 
int main()
{
    system("cls");
    srand(time(0));
    for(i=0;i<n;i++)
    {
        for(j=0;j<n;j++)
        {
            a[i][j]=rand()%50-25;
            cout<<a[i][j];
        }
        cout<<endl;
    }
    cout<<endl;
    for(j=0;j<n;j++)
    {
        summb=true;
        for(i=0;i<n;i++)
        {
            if(a[i][j]<0) summb=false;
        }
        if(summb) 
        {
            cout<<"Summa "<<j<<" stolbca = "<<sum(j);
            ks1++;
        }
    }
    if(ks1==0) cout<<"Net stolbcov ne soderj otric el-v!"<<endl;
    summd(a,_min);
    cout<<"Minimalnaya summa diagonalei paral gl diag: = "<<_min<<endl;
    getchar();
    return 0;
}
Ответ Создать тему
Опции темы

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