0 / 0 / 0
Регистрация: 10.05.2020
Сообщений: 9
1

Перевод кода из Pascal в С++

16.10.2020, 14:11. Показов 9466. Ответов 2

Помогите пожалуйста перевести код из Паскаля в С++

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
uses crt;
var a: array[1..100,1..100] of integer;
    x,y,sum,k,n:integer;
begin
     write('Введите n: ');
     readln(n);
     clrscr;
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     k:=0;
     Sum:=0;
     for x:=1 to n do
         for y:=x+1 to n do
             if a[x,y]>0 then begin
                Sum:=Sum+a[x,y];
                inc(k);
             end;
     writeln;
     if k<>0 then write(sum/k:4:2);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2020, 14:11
Ответы с готовыми решениями:

Перевод кода с Pascal на C++
Здравствуйте нужна помощь в переводе кода Pascal на C++. Я пробовал сам перевести но не...

Перевод кода с Pascal на С++
uses crt; function Summ(n:longint):byte; var m:longint; s:byte; begin s:=0; m:=n; while...

Перевод кода из Pascal в C++
Прошу помощи с переводом Program prim3; Var x,i,s,n: integer; Begin s:=0; WriteLN('Введите...

Перевод кода с Pascal на СИ
Ребята очень надо перевести программу с Pascal на СИ. Program LAB2; Var arrp: array of...

2
Да так, от скуки захожу.
141 / 120 / 44
Регистрация: 25.06.2017
Сообщений: 360
Записей в блоге: 3
16.10.2020, 19:08 2
Лучший ответ Сообщение было отмечено Flaming12qr как решение

Решение

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
#include <iostream>
#include <stdlib.h>
 
int main()
{
int a[100][100];
int x,y,sum,k,n;
 
std::cout <<"Input n ";
std::cin >> n;
system("cls");
for (x=1; x<=n;++x)
    {
    for (y=1; y<=n;++y)
        {
        a[x][y]=( rand() % 21+1)-10;
        std::cout << "  " << a[x][y];
        }
    std::cout <<"\n";
    }
k=0;
sum=0;
for (x=1; x<=n;++x)
    {
    for (y=x+1; y<=n;++y)
        {
        if (a[x][y]>0)
            {
            sum+=a[x][y];
            k+=1;
            }
        }
    }
if (k!=0) 
{
std::cout << sum/k <<"\n";
}
system("pause");
}
2
0 / 0 / 0
Регистрация: 10.12.2019
Сообщений: 27
15.06.2021, 16:12 3
ййй
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2021, 16:12
Помогаю со студенческими работами здесь

Перевод кода из Pascal в C++
Помогите пожалуйста перевести код в С++. var u, v: array of Integer; r: array of array of...

Перевод кода из Pascal в C++
Помогите пожалуйста)) Дано: A 5*4 формируемый массив B 5*4, где bij=i+3,если i&gt;=j j-2 -...

Перевод кода с Pascal
Переведите, пожалуйста, код с Pascal на C++ const maxn = 10; var n: integer; a: array of...

Перевод кода с Pascal на C++
Помогите, пожалуйста, перевести задачу на C++ var sum, S, Mp, Ch: real; i, N: integer; begin...

Перевод кода с с Pascal на С++
Совсем не знаю язык Pascal, а нужно перевести кусочек кода с этого языка на С++. Помогите,...

перевод кода из pascal в c++
function SumRange(A, B : integer) : integer; var i, t : integer; begin t := 0; if A &gt; B...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru