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

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

Войти
Регистрация
Восстановить пароль
 
Vera48
0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 18
#1

Перевести на C++ Basic - C++

27.03.2013, 17:11. Просмотров 218. Ответов 0
Метки нет (Все метки)

Условие задачи такое: В одномерном массиве найти сумму чисел,расположенных между первым минимальным и последним максимальным элементами массива.
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
uses crt;
const n=20;
var a:array[1..n] of integer;
    i,imax,imin:byte;
    max,min,sum:integer;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
max:=a[1];min:=a[1];imax:=1;imin:=1;
for i:=1 to n do
if a[i]>max then
  begin
    max:=a[i];
    imax:=i;
  end
else if a[i]<min then
  begin
    min:=a[i];
    imin:=i;
  end;
writeln('Imax=',imax,'  Imin=',imin);
if imax<imin then
  begin
   sum:=0;
   for i:=imax+1 to imin-1 do
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2013, 17:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести на C++ Basic (C++):

Перевести C++ в Basic - Visual Basic
Помогите пожалуйста перевести из C++ в Basic смысл кода в том, что побайтово копировать файл FILE *RFile = RFile =...

Перевести с Basic на Pascal - Pascal
Пожалуйста, помогите перевести программу Basic на Pascal. Буду очень благодарна)))

Перевести с Basic на Pascal - Turbo Pascal
Был бы очень благодарен, если бы помогли решить 3 задачи, а если быть более точным, то есть решенная задача, но решена она на Basic'e, а...

Перевести код с Basic - Turbo Pascal
Помогите плз переписать код на паскаль..спасибо rem первод чисел из 2 сс в 16 сс CLS INPUT &quot;Введите число &quot;; A$ n =1 : k$ = &quot;&quot;...

Перевести код с Basic - Delphi
10 CLS 20 DIM x (20) 30 LPPRINT “ Последовательность x(20) “ 40 LPRINT 50 x(1)=0: x(2)=5/8 60 FOR I=1 TO 20 70...

Перевести код с basic - C#
Добрый всем вечер! Пожалуйста помогите перевести следующий код с языка Basic ( не путать с visual basic)! DECLARE SUB fs (i, st,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2013, 17:11
Привет! Вот еще темы с ответами:

Перевести код с Visual Basic 6.0 - Visual Basic .NET
Dim mytext As String Dim allmytext As String Private Sub Command1_Click() Picture1.Cls Dim D As Long, W As Long, J As Long, H As...

Перевести код программы с Basic - VBA
Добрый день. Необходимо перевести код программы написанный на Basic в любой другой язык, для запуска на Win 7 - x64. Заранее спасибо.

Фильтр по Edit (перевести из basic в C++) - C++ Builder БД
Господа форумчане, доброе время суток. Может кто-нибудь помочь перевести функцию с языка basic на C++. Function FindPac(nf As String) ...

перевести с Visual Basic на делфи - Delphi
задача:Дана действительная квадратная матрица порядка N. Преобразовать матрицу по правилу: строку с номером N сделать столбцом с номером N,...


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

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

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