Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
ulx05
1 / 1 / 1
Регистрация: 17.07.2012
Сообщений: 139
#1

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

09.05.2013, 11:50. Просмотров 494. Ответов 4
Метки нет (Все метки)

помогите перевести следующий текст с 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 минут
чё никто не может что ли????
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2013, 11:50
Ответы с готовыми решениями:

Перевод из Pascal в C++
Здравствуйте! Помогите,пожалуйста,перевести программу из паскаля в С++ uses...

Перевод из pascal в С
Program pr4_1; uses crt; var firstmaxpos, lastminpos, n, i ...

Перевод с Pascal на С++
Ребят, переведите кому не сложно, буду благодарна. program z1; var n,s,i :...

Перевод из Pascal в C++
Помогите перевести исходник из Pascal в C++. В Паскале я силен,а вот Си ток...

перевод в C++ из Pascal
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью...

4
Lar4ik
43 / 40 / 35
Регистрация: 27.02.2013
Сообщений: 284
10.05.2013, 00:15 #2
А можно уточнить условие задачи
0
ulx05
1 / 1 / 1
Регистрация: 17.07.2012
Сообщений: 139
12.05.2013, 16:50  [ТС] #3
Цитата Сообщение от Lar4ik Посмотреть сообщение
А можно уточнить условие задачи
Дан одномерный массив определить максимальный и минимальный элемент массива, потом найти разность этих элементов
0
ulx05
1 / 1 / 1
Регистрация: 17.07.2012
Сообщений: 139
14.05.2013, 18:35  [ТС] #4
ну чё никто не может что ли???
0
Ranos
0 / 0 / 0
Регистрация: 11.05.2013
Сообщений: 1
14.05.2013, 22:07 #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;
}
Код я компилировал. Работает. Если что не понятно - спрашивай, объясню, что смогу)
0
14.05.2013, 22:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2013, 22:07

Перевод из Pascal в C++
Добрый день, дорогие форумчане) Буду благодарен за перевод) uses crt; ...

Перевод из Pascal в С++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не...

Перевод c Pascal на С++
Помогите перевести пожалуйста program FindMin; type Mass=array of integer;...


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

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

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