Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2021, 18:35   #1
НатальяБ
Новичок
Джуниор
 
Регистрация: 01.06.2021
Сообщений: 1
Смех Перевести готовый код из Pascal в VBA

Добрый день. Помогите перевести код с pascal в Microsoft Visual Basic. очень нужно.

Код:
Const n=16;
Var A:array[1..16] of real
    i,imax:integer;
    max:real;
Begin
    max:=A[1];imax:=1;
    writeln('Исходный');
    For i:=1 to n do
     Begin
      A[i]:=Random(11)-5;
      write(A[i]:6:2);
      if A[i]>max then 
       Begin
        max:=A[i];
        imax:=i;
       End;
     End;
    writeln;
    writeln('Max: ',max:6:2,' его индекс ',imax);
    writeln('Преобразованный');
    if imax<10 then 
     Begin
      For i:=1 to imax-1 do
       A[i]:=A[2];
      For i:=1 to n do
       write(A[i]:6:2);
     End
      else
       For i:=1 to n do
        Begin
         A[i]:=A[i]/3;
         write(A[i]:6:2);
        End;
     readln;    
End.


вот задание:
Дан массив A1, ... , A16. Если номер меньше десяти, то заменить все предшествующие ему элементы на A2, иначе разделить все элементы на 3.

Последний раз редактировалось BDA; 01.06.2021 в 19:39.
НатальяБ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA как можно перевести код с Pascal Ken_Watanabe Помощь студентам 0 10.11.2014 05:56
Готовый код, нужно перевести на Microsoft Visual Basic Ken_Watanabe Помощь студентам 0 05.11.2014 16:55
Готовый код, нужно перевести на Microsoft Visual Basic Ken_Watanabe Microsoft Office Excel 1 05.11.2014 15:55
Перевести готовый код из Pascal в VBA Ken_Watanabe Microsoft Office Excel 1 04.11.2014 10:44
помогите перевести код Pascal в код Lazarus Ляйсан9517 Lazarus, Free Pascal, CodeTyphon 13 22.05.2014 17:19