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

Перевод с pascal на c++ - C++

Восстановить пароль Регистрация
 
ulx05
0 / 0 / 0
Регистрация: 17.07.2012
Сообщений: 139
09.05.2013, 11:50     Перевод с pascal на c++ #1
помогите перевести следующий текст с pascal на c++

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
uses crt;
var mas: array [1..100] of integer;
    i,a,b,min,max,r:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do begin
    mas[i]:= random(10)+1;
    write (mas[i]:2);
    end;
max:=mas[1];
For i:=1 to 10 do begin
If  mas[i]>max then
   max:=mas[i];
 
 
 
 
end; writeln;   writeln;
 write ('Max = ',max:5);
min:=mas[1];
For i:= 1 to 10 do begin
If mas[i] < min then
   min:=mas[i];
   end;
   writeln;
   writeln;
   write('Min = ',min:5);
a:=max-min;  writeln;writeln;
writeln('Raznost = ',a);
end.
Добавлено через 13 часов 5 минут
чё никто не может что ли????
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2013, 11:50     Перевод с pascal на c++
Посмотрите здесь:

C++ Перевод из pascal в С
C++ перевод с Pascal на C++
C++ Перевод с Pascal на C++
Перевод из Pascal в C++ C++
C++ Перевод с pascal на c++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Lar4ik
43 / 41 / 20
Регистрация: 27.02.2013
Сообщений: 256
10.05.2013, 00:15     Перевод с pascal на c++ #2
А можно уточнить условие задачи
ulx05
0 / 0 / 0
Регистрация: 17.07.2012
Сообщений: 139
12.05.2013, 16:50  [ТС]     Перевод с pascal на c++ #3
Цитата Сообщение от Lar4ik Посмотреть сообщение
А можно уточнить условие задачи
Дан одномерный массив определить максимальный и минимальный элемент массива, потом найти разность этих элементов
ulx05
0 / 0 / 0
Регистрация: 17.07.2012
Сообщений: 139
14.05.2013, 18:35  [ТС]     Перевод с pascal на c++ #4
ну чё никто не может что ли???
Ranos
Сообщений: n/a
14.05.2013, 22:07     Перевод с pascal на c++ #5
А ну.. Я может начинающий, но в состоянии это перевести в код с++.
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 <windows.h>
#include <iostream>
using namespace std;
 
int main()
{
    int i,min,max,arr[100];
    system("cls");
    for(i=0;i<100;i++)
    {
        arr[i]=rand()%10+1;
        cout<<arr[i]<<endl;
    }
    max=arr[0];
    min=arr[0];
    for(i=1;i<100;i++)
    {
        if(arr[i]>max) max=arr[i];
        if(arr[i]<min) min=arr[i];
    }
    cout<<endl<<endl<<"max = "<<max;
    cout<<endl<<endl<<"min = "<<min;
    cout<<endl<<endl<<"Razn = "<<max-min;   
    cin.get();                              
    return 0;
}
Код я компилировал. Работает. Если что не понятно - спрашивай, объясню, что смогу)
Yandex
Объявления
14.05.2013, 22:07     Перевод с pascal на c++
Ответ Создать тему
Опции темы

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