Заблокирован
1

Лабораторная, перевести с Паскаля

11.12.2014, 18:58. Показов 807. Ответов 1
Метки нет (Все метки)

Перевести из Паскаля в Си.Если можно пожалуйста то в среде Dev-С++.Заранее спасибо)
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
Program J8;
uses crt;
const
n=3;
m=6;
var
a:array[1..n,1..m] of integer;
b:array[1..n*m] of integer;
i,j,k:integer;
begin
k:=1;
writeln (' Vvedite elementy massiva :');
for i:=1 to n do
for j:=1 to m do
begin
write('vvedite a[',i,',',j,'] element:');
 readln(a[i,j]);
if a[i , j] mod 2 =0 then
begin
b[k]:=a[i, j];
k:=k+1;
 end;
 end;
 writeln( 'Poluchenniy massiv :');
for I :=1 to k do
write(' ',b[i]:4);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2014, 18:58
Ответы с готовыми решениями:

Перевести с паскаля на Си++
вообщем программа на паскале нужно перевести на с++ суть проги поменять местами главную диагональ...

перевести на c++ с паскаля
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for...

Перевести с Паскаля на С++
uses crt; var n,k:byte; p,s:longint; begin clrscr; write('Введите произведение нескольких...

перевести из паскаля в с++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; j,i,n:integer; BEGIN ...

1
Знаток
156 / 156 / 185
Регистрация: 18.11.2012
Сообщений: 411
Записей в блоге: 2
11.12.2014, 19:07 2
Лучший ответ Сообщение было отмечено Юрий 777 как решение

Решение

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
#include <iostream>
using namespace std;
int main()
{const int n=3,m=6;
int a[n][m],b[n*m],i,j,k;
 
k=1;
cout<<" Vvedite elementy massiva :";
for (i=1; i<n;i++)
for (j=1; j<m;j++)
{
cout<<"vvedite a["<<i<<","<<j<<"] element:";
cin>>a[i][j];
if (a[i][j]%2 ==0)
{
b[k]=a[i][j];
k+=1;
}
}
cout<<"Poluchenniy massiv :";
for (i=1; i<k;i++)
cout<<' '<<b[i];
return 0;
 
}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2014, 19:07

Перевести с Паскаля на С++
Здравствуйте! Можете помочь, мне надо перевести код с Паскаля на С++ (код паскаля на фото). Вот...

Перевести из паскаля в С
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число uses crt; ...

Перевести из паскаля в C++
Перегнать из паскаля в C++. Заранее благодарю. условие: Вводится последовательность...

Перевести из Паскаля на С++
var d, m: integer; begin writeln('Введіть день'); readln (d); writeln('Введіть мiсяць');...


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

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

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