Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
2 / 2 / 1
Регистрация: 04.02.2017
Сообщений: 31
1

Переведите код на с++

13.05.2017, 14:59. Просмотров 759. Ответов 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
var a, c:array[0..27,0..27] of int64;
    b:array[0..27,0..27] of boolean;
    count, r, n, i, j, max:longint;
    rez:int64;
procedure out;
begin
     writeln (rez);
end;
begin
     readln (r, n);
     fillchar (a, sizeof(a), 0);
     fillchar (c, sizeof(c), 0);
     fillchar (b, sizeof(b), false);
     max:=1;
     for i:=2 to r do
        max:=max+6*(i-1);
     if n>max then begin rez:=0; out; halt; end;
     count:=1;
     for i:=1 to r do
         for j:=1 to r+i-1 do
         begin
              a[i,j]:=count;
              b[i,j]:=true;
              inc (count);
         end;
     for i:=r+1 to r+r-1 do
         for j:=i-r+1 to r+r-1 do
         begin
              a[i,j]:=count;
              b[i,j]:=true;
              inc (count);
         end;
     for i:=1 to r do
     begin
          c[1,i]:=1;
          c[i,1]:=1;
     end;
     for i:=2 to 2*r-1 do
         for j:=2 to 2*r-1 do
             if b[i,j] then
                           c[i,j]:=c[i-1,j]+c[i,j-1]+c[i-1,j-1];
     for i:=1 to 2*r-1 do
        for j:=1 to 2*r-1 do
            if a[i,j]=n then rez:=c[i,j];
     out;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2017, 14:59
Ответы с готовыми решениями:

Переведите в код
int x; cin>>x; Если (if) переменная "х" не целочисленное число (int) то выполнить ну или...

Переведите код с паскаля на си
Program LR_N1; Uses crt; Var x,c,a,b,k,w:real; begin clrscr; write(‘Введите значение...

Переведите код с Pascal на С++
program lab100301; uses crt; type tablica=record name:string; sred:real; ...

переведите код с паскаля на с++
Дан массив A размера N и целое число K(1<=k<=N).Вывести элементы массива с порядковыми номерами,...

1
Заводной мандарин
1057 / 619 / 239
Регистрация: 05.05.2015
Сообщений: 3,490
Записей в блоге: 2
13.05.2017, 17:06 2
Лучший ответ Сообщение было отмечено devcpp как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <iostream>
 
int Out() {
  std::cout << rez << std::endl;
}
 
int main() {
  std::cin >> r;
  std::cout << std::endl;
  std::cin >> n;
  long long int count, r, n, i, j, max = 0;
  bool b[28][28];
  long long int a[28][28];
  long long int c[28][28];
  max = 1;
}
Вот просто инициализация переменных и функкция Out, если сами сможете продолжить, поможем. Если пришли за халявой, это во фриланс
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2017, 17:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переведите код с Паскаля на Си
Переведите код с Паскаля на Си var s: string; i, back: integer; begin readln(s); i...

Переведите пожалуйста код с Паскаля на СИ++
Помогите перенести код на СИ++... До этого не приходилось работать с паскалем( program pokrytie;...

переведите, пожалуйста, код паскаля в с++
Вот, добрые люди, само задание: заданной и действительной квадратной матрицы порядка n найти сумму...

Переведите пожалуйста код из С# в С++ Буду очень благодарен
Переведите пожалуйста код из С# в С++ Буду очень благодарен using System; using...


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

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

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