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

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

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

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

09.01.2013, 11:44. Просмотров 248. Ответов 5
Метки нет (Все метки)

Помогите перевести программу с 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.

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

Можно ли перевести заглавную букву в маленькую не используя для этого функций? - C++
Я знаю что нужно вроде бы отнять 32, но как это правильно сделать с типом string?

эту задачу перевести на с++ - C++
program lab3; var a:array of integer; i,n,p:integer; ...

помогите задачу перевести с языка с++ на с - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;conio.h&gt; using namespace std; int main() { double A,maxx,sum=0.0,max; ...

Перевести с C на С++ задачу: "Упорядочить все слова в предложении в алфавитном порядке" - C++
#include &lt;stdio.h&gt; int main(int argc, char *argv) {char str; printf(&quot;Vvedite stroky: &quot;); gets(str); char array; int...

Напишите маленькую прогу? - C++
Напишите маленькую прогу, чтобы в ней использовалась передача массива в функцию...очень нужно!

Найти маленькую ошибку - C++
Привет. Помогите, пожалуйста. Нужно исправить код программы. Задача: Обращение к переменным через указатели... #include...

5
Пaтрик
416 / 391 / 39
Регистрация: 21.01.2012
Сообщений: 972
Завершенные тесты: 1
09.01.2013, 11:46 #2
Что ты попытался сделать сам/сама?
0
fan-fan-tylpan
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 11
09.01.2013, 11:48  [ТС] #3
Цитата Сообщение от Пaтрик Посмотреть сообщение
Что ты попытался сделать сам/сама?
Я знаю pascal но в С++ я дубень не отрицаю. Код на Pascal набрасал легко но не могу его перевести. Я бы не обратиля к вам с просьбой если бы владел С++
0
Пaтрик
416 / 391 / 39
Регистрация: 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;
}
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 задачей меньше. Ща по этому же принцыпу попробую остальные написать сам ).
0
Пaтрик
416 / 391 / 39
Регистрация: 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;
}
0
09.01.2013, 12:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2013, 12:02
Привет! Вот еще темы с ответами:

исправьте маленькую ошибку - C++
подскажите, почему у меня выводит только саму матрицу, а результат - нет? #include &quot;stdafx.h&quot; #include &lt;iostream&gt; using namespace...

Проверить маленькую программу - C++
#include &lt;iostream&gt; using namespace std; template &lt;class X&gt; X min(X a, X b) { if (a&lt;=b) return a; else return b; } ...

Как объявить маленькую таблицу? - C++
Картинки загружайте на форум, во избежание их удаления или потери на сторонних ресурсах.

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


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

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

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