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

Перевести маленькую задачу на С++ - C++

Восстановить пароль Регистрация
 
fan-fan-tylpan
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 11
09.01.2013, 11:44     Перевести маленькую задачу на С++ #1
Помогите перевести программу с Pascal на С++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var
  a: array [1..10] of byte;
  i, n, y: byte;
begin
     for i:=1 to 10 do begin
         a[i]:=random(10);
         write(a[i]:3); end;
     writeln;
{Осуществляем поиск нуля в массиве.}
     for i:=10 downto 1 do
         if a[i]=0 then y:=i;
     if y<>0 then writeln('Ноль элемент под номером: ',y)
             else writeln('Нулей нет.');
end.

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
uses crt;
var
  a: array [1..4, 1..4] of byte;
  i, j, n, x, min: byte;
begin
     {Выводим массив.}
     for i:=1 to 4 do begin
     for j:=1 to 4 do
         a[i,j]:=random(10);
         end;
          for i:=1 to 4 do begin
          for j:=1 to 4 do
         write(a[i,j]:3);
         writeln;
         end;
     writeln;
     {Считаем количество нулей.}
     x:=0;
     for i:=1 to 4 do  begin
       for j:=1 to 4 do
          if a[i,j]=0 then x:=x+1;
          end;
          writeln(x);
          {Поиск минимального элемента в ниже побочной диагонали}
          min:=a[4,4]; 
          n:=2;
          for i:= 4 downto 2 do begin
          for j:= 4 downto n do
          if  min>a[i,j] then min:=a[i,j];
          n:=n+1;
          end;
       writeln('Минимальный элемент: ', min);
       readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
const
a='я';
var
st: string;
i: integer;
begin
writeln('Введите слово: ');
readln(st);
 for i:=1 to length(st)do
   if st[i]=a then delete(st,i,1);
writeln(st);
end.

Заранее благодарен)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2013, 11:44     Перевести маленькую задачу на С++
Посмотрите здесь:

C++ Проверить маленькую программу
Как объявить маленькую таблицу? C++
C++ помогите задачу перевести с языка с++ на с
Напишите маленькую прогу? C++
исправьте маленькую ошибку C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Пaтрик
 Аватар для Пaтрик
394 / 387 / 38
Регистрация: 21.01.2012
Сообщений: 972
Завершенные тесты: 1
09.01.2013, 11:46     Перевести маленькую задачу на С++ #2
Что ты попытался сделать сам/сама?
fan-fan-tylpan
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 11
09.01.2013, 11:48  [ТС]     Перевести маленькую задачу на С++ #3
Цитата Сообщение от Пaтрик Посмотреть сообщение
Что ты попытался сделать сам/сама?
Я знаю pascal но в С++ я дубень не отрицаю. Код на Pascal набрасал легко но не могу его перевести. Я бы не обратиля к вам с просьбой если бы владел С++
Пaтрик
 Аватар для Пaтрик
394 / 387 / 38
Регистрация: 21.01.2012
Сообщений: 972
Завершенные тесты: 1
09.01.2013, 11:53     Перевести маленькую задачу на С++ #4
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
#include <iomanip>
#include <ctime>
 
int main()
{
    const std::size_t size = 10;
    int array[size];
    std::srand(std::time(0));
    for (int i = 0; i < size; i++)
        std::cout << std::setw(3) << (array[i] = rand() % 10);
    int y = -1;
    for (int i = 0; i < size; i++)
        if (array[i] == 0)
            y = i;
    if (y == -1)
        std::cout << "\nZero not found\n";
    else 
        std::cout << "\nIndex of zero: " << y << std::endl;
    return 0;
}
fan-fan-tylpan
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 11
09.01.2013, 11:58  [ТС]     Перевести маленькую задачу на С++ #5
Цитата Сообщение от Пaтрик Посмотреть сообщение
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
#include <iomanip>
#include <ctime>
 
int main()
{
    const std::size_t size = 10;
    int array[size];
    std::srand(std::time(0));
    for (int i = 0; i < size; i++)
        std::cout << std::setw(3) << (array[i] = rand() % 10);
    int y = -1;
    for (int i = 0; i < size; i++)
        if (array[i] == 0)
            y = i;
    if (y == -1)
        std::cout << "\nZero not found\n";
    else 
        std::cout << "\nIndex of zero: " << y << std::endl;
    return 0;
}
Спасибо Патрик, хоть 1 задачей меньше. Ща по этому же принцыпу попробую остальные написать сам ).
Пaтрик
 Аватар для Пaтрик
394 / 387 / 38
Регистрация: 21.01.2012
Сообщений: 972
Завершенные тесты: 1
09.01.2013, 12:02     Перевести маленькую задачу на С++ #6
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <iostream>
#include <string>
#include <algorithm>
 
int main()
{
    std::string s;
    std::cout << "Enter word: ";
    std::cin >> s;
    s.erase(std::remove(s.begin(), s.end(), 'z'), s.end());
    std::cout << s << std::endl;
    return 0;
}
Yandex
Объявления
09.01.2013, 12:02     Перевести маленькую задачу на С++
Ответ Создать тему
Опции темы

Текущее время: 11:22. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru