Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

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

С паскаля в С++ - C++

14.06.2013, 10:53. Просмотров 326. Ответов 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
{task array6}
const
  maxSize=100;
type
  Tarr=array[1..maxSize] of integer;
var
  m:Tarr;
  i,n,a,b:integer;
begin
  repeat
    write('Размер массива, не более ',maxSize,' n=');
    readln(n);
  until n in [3..maxSize];
  write('Введите значение a=');
  readln(a);
  write('Введите значение b=');
  readln(b);  
  m[1]:=a;
  m[2]:=b;
  m[3]:=a+b;
  for i:=4 to n do
    m[i]:=m[i-1]*2;
  writeln('Полученный массив');
  for i:=1 to n do
    write(m[i]:4);
  readln;
end.
Добавлено через 42 секунды
Вот мое задание "Даны целые числа A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих."
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2013, 10:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос С паскаля в С++ (C++):

с паскаля на Си++ - C++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat writeln('Выберите действие:');...

Из Паскаля в С++ - C++
Дана программа на Паскале: Program q; var a,b:byte; begin Writeln('Двузначные числа, удвоенная сумма цифр которых равна...

Из Паскаля на СИ - 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++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function del(n:integer):integer; var...

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

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

2
happyzombiE
4 / 4 / 0
Регистрация: 12.06.2013
Сообщений: 26
14.06.2013, 12:54 #2
я конечно могу ошибаться, но на паскале не совсем то, что нужно, хотя черт его знает, на си++ немножко по-другому:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include<iostream>
 
using namespace std;
 
int main()
{
    int *mas,n,a,b;
    cout<<"Enter array size : "; cin>>n;
    mas = new int[n];
    cout<<endl<<"Enter A : "; cin >> a;
    cout<<endl<<"Enter B : "; cin >> b;
    mas[0]=a; mas[1]=b; mas[2]=a+b;
    for (int i = 3; i < n; i++)
        mas[i]=mas[i-2] + mas[i-1];
    for (int i = 0; i < n; i++)
        cout<<" "<<mas[i];
    cout<<endl;
    system("pause");
    delete []mas;
    return 0;
}
1
SatanaXIII
Супер-модератор
Эксперт С++
5640 / 2675 / 252
Регистрация: 01.11.2011
Сообщений: 6,571
Завершенные тесты: 1
14.06.2013, 13:12 #3
Тупой машинный перевод
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.h>
//{task array6}
 
const int maxSize = 100;
//type
//Tarr=array[1..maxSize] of integer;
typedef int Tarr[maxSize];
 
//var
//m:Tarr;
Tarr m;
 
//i,n,a,b:integer;
int i,n,a,b;
 
//begin
int main()
{
 
//repeat
do
{
 
//write('Размер массива, не более ',maxSize,' n=');
cout << "Размер массива, не более " << maxSize << "n=";
 
//readln(n);
cin >> n;
 
//until n in [3..maxSize];
}while(3 < n && n < maxSize);
 
//write('Введите значение a=');
cout << "Введите значение a=";
 
//readln(a);
cin >> a;
 
//write('Введите значение b=');
cout << "Введите значение b=";
 
//readln(b);
cin >> b;
 
//m[1]:=a;
//m[2]:=b;
//m[3]:=a+b;
m[1] = a;
m[2] = b;
m[3] = a+b;
 
//for i:=4 to n do
for(i=4; i<=n; i++)
 
//m[i]:=m[i-1]*2;
m[i] = m[i-1]*2;
 
//writeln('Полученный массив');
cout << "Полученный массив";
 
//for i:=1 to n do
for(i=1; i<=n; i++)
 
//write(m[i]:4);
std::cout.width (4);
cout << m[i];
 
 
//readln;
cin.ignore(2);
 
//end.
return 0;}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2013, 13:12
Привет! Вот еще темы с ответами:

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

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

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

с паскаля в с++ - C++
помогите перевести с код паскаля в с++ program MYstring; var len1, len2:byte; s1, s2: string; function center (s1,s2:string;...


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

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

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