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

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

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

Перевод з С++ в Паскаль)) - C++

31.03.2011, 01:14. Просмотров 377. Ответов 1
Метки нет (Все метки)

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
#include "stdafx.h"
#include <iomanip>
#include <iostream>
using namespace std;
#define n 67
void main()
{
    int p,q, a[n],i=0;
    setlocale(LC_ALL,"Ukrainian");
    system("COLOR 0f");
    cout<<"p=";
    cin>>p;
    cout<<"q=";
    cin>>q;
    cout<<"Введiть масив елементiв \n";
    for(i=0;i<n;i++)
    {
        cout<<"["<<i+1<<"]=";
        cin>>a[i];
    }
    for(i=0;i<n;i++)
        if(a[i]%p==q)
            a[i]=0;
    for(i=0;i<n;i++)
        cout<<setw(5)<<a[i];
}
Если можете то и сразу в С. Спасибо заранее... надеюсь на вас товрищи
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2011, 01:14
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод з С++ в Паскаль)) (C++):

перевод из си++ в паскаль - C++
for (int j = max(0, i - (n - m)); j &lt;= i &amp;&amp; j &lt;= m; ++j) Как перевести эту строчку, а именно &quot;j &lt;= i &amp;&amp; j &lt;=...

Перевод из Паскаль в C++ - C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type Point=record {точка} ...

Перевод с С++ на Паскаль - C++
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести. var a,b:real;...

Перевод с Паскаль на С++ - C++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100; var arr: array of integer; i, m, qty: byte;...

Перевод с Паскаль на С++ - C++
Помогите перевести с паскаля на C++ этот код: var s:string; i,c:integer; begin readln(s); c:=0; for i:=1 to...

Перевод с Паскаль на С++ - C++
var S,x,i:integer; begin x:=1; S:=0; for i:=1 to 10 do begin S:=S+x; x:=x*2; end; write(S div 100, ',', S mod 100,'...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
rangerx
1933 / 1542 / 141
Регистрация: 31.05.2009
Сообщений: 2,912
31.03.2011, 11:39 #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
26
27
28
29
30
program prog;
 
const
   N = 67;
 
var
  p,q,i: integer;
  a: array[1..N] of integer;
 
begin
  Write('p = ');
  ReadLn(p);
 
  Write('q = ');
  ReadLn(q);
 
  WriteLn('Введiть масив елементiв');
  for i:= 1 to N do begin
    Write('[', i, '] = ');
    ReadLn(a[i]);
  end;
 
  for i:= 1 to N do
    if(a[i] mod p = q) then a[i]:= 0;
 
  for i:= 1 to N do
    Write(a[i]:5);
 
  WriteLn;
end.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2011, 11:39
Привет! Вот еще темы с ответами:

Перевод с Паскаль на С++ - C++
uses crt; var m, k: byte; begin write('m = '); readln(m); write('k = '); readln(k);

Перевод из паскаль в С++ - C++
Ребята, очень срочно, кто сможет выручайте, нужно перевести данную программу на с++! Данная задача нужна для зачета завтра! Если кто сможет...

Перевод из с++ в паскаль - C++
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо 'case'... я не понимаю...

Перевод кода из C++ в Паскаль - C++
Есть около 50 задач которые делал на практике, их всех нужно перевести в паскаль, а делать это вручную долго и нудно, может кто знает какие...


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

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

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