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

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

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.11.2014, 07:33   #1
Ken_Watanabe
Пользователь
 
Регистрация: 17.04.2014
Сообщений: 39
По умолчанию Готовый код, нужно перевести на Microsoft Visual Basic

Здравствуйте. Помогите перевести код с делфи/pascal в Microsoft Visual Basic(если быть точнее вот так)=>Tools=>Macros=>'name', Create. Вот код:
program Array22;
var
i:integer; // счетчик в цикле
k,l,N:integer;
a: array [1..10] of real;
sum:real; // переменная для суммирования нужных элементов
begin
// ввод данных
writeln('Введите N (N < = 10))');
readln(N);
writeln('Введите K / L (1 < = K < = L < = N)');
read(K); readln(l);
sum:=0; // начальное значение переменной
for i:=1 to n do
begin
// ручной ввод значений массива
write('a[',i,']=');readln(A[i]);
end;
writeln('Результат');
for i:=1 to N do
Sum:=Sum+a[i]; // суммирование нужных элементов
for i:=k to l do
Sum:=Sum-a[i]; // суммирование нужных элементов
// вывод результата
writeln('Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно. = ',Sum);
end.

Вот само задачка: Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.

Проста я новичок в этой сфере.Будьте добры помогите студенту)
Ken_Watanabe вне форума
Старый 05.11.2014, 15:55   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Вы в предыдущей теме даже не отписались...

Цитата:
Проста я новичок в этой сфере
так вот и учитесь, чтобы стать специалистом...


Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.


В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение.
EducatedFool вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевести готовый код из Pascal в VBA Ken_Watanabe Microsoft Office Excel 1 04.11.2014 10:44
Помогите перевести код из Visual Basic в Delphi bilibian Общие вопросы Delphi 0 22.01.2014 14:00
нужно исправить готовый код Алексей Долгов Помощь студентам 2 02.06.2010 15:46