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

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

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

Перевести код с Pascal - C++

24.01.2012, 18:31. Просмотров 297. Ответов 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
program lab4;
var
i,j,jmax:integer;
a:array[1..5,1..4] of real;
b:array[1..5] of real;
k,max,s:real;
begin
for i:=1 to 5 do
for j:=1 to 4 do
begin
write ('vvod a[',i:2,',',j:2,']=');
readln(a[i,j]);
writeln;
end;
writeln(' matrica A');
for i:=1 to 5 do
begin
for j:=1 to 4 do
write(' ',a[i,j]:6:2);
writeln();
end;
 
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[i,j];
b[i]:=s;
end;
writeln('odnomernii masive');
for j:=1 to 5 do
writeln(b[j]:6:2);
begin
max:=-1000;
for j:=1 to 4 do
if (max<a[5,j]) then
begin max:=a[5,j]; jmax:=j;
end;
writeln ('max znachenie pyatoi stroki=',max:5:1);
end;
k:=a[3,4];
a[3,4]:=a[5,jmax];
a[5,jmax]:=k;
writeln('matrica posle obmena');
for i:=1 to 5 do
begin
for j:=1 to 4 do
write(' ',a[i,j]:5:1);
writeln;
end;
End.
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.01.2012, 18:31     Перевести код с Pascal
Посмотрите здесь:

Перевести код с Pascal - C++
var x,y: real; begin write('Введите x, y: '); readln(x,y); if ((sqr(x)/4)+(sqr(y)/1)&lt;=1) and (x&lt;=-1) or...

Перевести код с Pascal - C++
есть код на Pascale,перевести на СИ

Перевести код с Pascal на C# и C++ - C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w: array of byte; link, lx, ly:...

Перевести код из Pascal в С++ - C++
Всем привет! Нужно срочно сделать задачку, условие такое: &quot;Вычислить приближенное значение бесконечной суммы cos(x) = 1 - x^2/2! +...

Перевести код с Pascal - C++
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite B='); readln(b); If a&gt;b...

Перевести код с Pascal - C++
Помогите разобраться, что тут написано. Хотелось бы это на Си, т.к паскаль не знаю( заранее спасибо) var ans, a, p :int64; ...

Перевести код с Pascal - C++
uses crt; const nmax=20; var a:array of integer; n,i,d:integer; f:boolean; begin repeat write('Размер массива до...

Перевести код с Pascal - C++
procedure Max_el_matr; label 1; begin max_el:=A; p:=2; q:=1; for i:=2 to RazmMatr do begin ...

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

Перевести код из Pascal в C++ - C++
Помогите перевести код из Паскаля в С++ Uses crt; const n = 10; var x: array of integer; i, k: integer; begin ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MrCold
853 / 751 / 71
Регистрация: 11.01.2012
Сообщений: 1,942
24.01.2012, 22:12     Перевести код с Pascal #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Особо не вдавался...,просто перевел.
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
#include <stdio.h>
#include <iostream>
 
int main ()
{
        setlocale(LC_CTYPE,"");
int i = 0 ,j = 0 ,jmax;
double a[5][4];
double b[5];
double k, max, s;
//std::cout << "vvod a[" << i << 2 <<',' << j << 2 << "]=" << std::endl;
for( i = 1; i < 5; i++)
for( j = 1; j < 4; j++)
{
    std::cout << "vvod a[" << i << "][" << j << "]=\t";
std::cin >>(a[i][j]);
 
}
std::cout << "matrica A" << std::endl;
for( i = 1; i < 5; i++)
 
for( j = 1; j < 4; j++)
std::cout << ' ' << a[i][j] <<  std::endl;
 
 
 
for( i = 1; i < 5; i++)
{
s = 0;
for( j = 1; j < 4; j++)
s = s + a[i][j];
b[i]=s;
}
std::cout << "odnomernii masive" << std::endl ;
for( j = 1; j < 5; j++)
std::cout << b[j] << std::endl;
 
max =-1000;
for( j = 1; j < 4; j++)
if (max < a[5][j]) 
 max=a[5][j]; jmax=j;
 
std::cout << "max znachenie pyatoi stroki=" << max << std::endl;//<< 5 << 1;
 
k =a[3][4];
a[3][4] = a[5][jmax];
a[5][jmax] = k;
std::cout << "matrica posle obmena"<< std::endl;
for( i = 1; i < 5; i++)
for( j = 1; j < 4; j++)
std::cout << ' ' << a[i][j];
 
std::cout << std::endl;
system("pause"); 
}
Yandex
Объявления
24.01.2012, 22:12     Перевести код с Pascal
Ответ Создать тему
Опции темы

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