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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.02.2014, 01:49   #1
ALEXandr20333
Пользователь
 
Регистрация: 12.02.2014
Сообщений: 76
По умолчанию код из Паскаля в Delphi (Дан целочисленный массив A. Переписать в новый массив В элементы с порядковыми номерами, кратными трём

помогите переделать код из паскаля в дэлфи.....пожалуйста....завтра сдавать...
Дан целочисленный массив A размера N (<=15).Переписать в новый целочисленный массив В все элементы с порядковыми номерами, кратными трем (3, 6, ...), и вывести размер полученного массива В и его содержимое. Условный оператор не использовать.
Цитата:
program Array56;
var
a: array [1..15] of integer;
b: array [1..15] of integer;
N:integer;
i:integer; // счетчик в цикле
begin
// ввод размера масива
writeln('Введите N (N<=15)');
readln(N);
writeln('Значения массива А');
// ввод значений масива
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение
// в цикле реализован проход по номерам кратным 3
//и формирование нового массива
for i:=1 to n div 3 do
begin
b[i]:=a[i*3];
end;
// вывод резхультата
Writeln('Ответ');
Writeln('Размер полученного массива ',(n div 3));
Write('B[]: '); for i:=1 to (n div 3) do Write(B[i],' ');
ALEXandr20333 вне форума
Старый 14.02.2014, 03:43   #2
zvoronz
Пользователь
 
Регистрация: 03.01.2011
Сообщений: 49
По умолчанию

Что именно нужно перенести в Делфи?
Создайте в Делфи проект консольного приложения и перенесите код как есть, почти как есть, там мизерные исправления нужно будет сделать.
zvoronz вне форума
Старый 14.02.2014, 12:16   #3
ALEXandr20333
Пользователь
 
Регистрация: 12.02.2014
Сообщений: 76
По умолчанию

мне нельзя через консоль( нужно через форму...помогите плиз...
ALEXandr20333 вне форума
Старый 14.02.2014, 19:47   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

По аналогии с тем, что я дал не удается?
I'm learning to live...
Stilet вне форума
Старый 15.02.2014, 17:32   #5
EUgen\96
Пользователь
 
Регистрация: 14.02.2014
Сообщений: 11
По умолчанию

Да, можно и мне помочь с этой задачей!!!!
EUgen\96 вне форума
Старый 18.02.2014, 23:18   #6
EUgen\96
Пользователь
 
Регистрация: 14.02.2014
Сообщений: 11
По умолчанию нужен код Делфи

помогите пожалуйста с задачей (только не через консоль, т.к. мне нельзя) :
Дан целочисленный массив A размера N (<=15).Переписать в новый целочисленный массив В все элементы с порядковыми номерами, кратными трем (3, 6, ...), и вывести размер полученного массива В и его содержимое. Условный оператор не использовать.

Вот задача...я чето там пытался сделать .... но все равно что-то не то .....
Вложения
Тип файла: rar 2.rar (194.0 Кб, 14 просмотров)
EUgen\96 вне форума
Старый 19.02.2014, 09:18   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ну, раз хоть какие-то попытки сделать есть и выложен исходный код проекта, то вот, держите вариант решения: proj2.rar
Serge_Bliznykov вне форума
Старый 27.02.2014, 10:12   #8
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

через while проще было сделать. И без условного оператора. А еще - второй массив имеет размерность меньше первого раза эдак в три, зачем его тоже от 1 до 15 задавать?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума
Старый 27.02.2014, 11:27   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Sciv, это Вы, надеюсь, не мне вопросы задаёте?
Serge_Bliznykov вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ассемблер. Дан массив из 10 байт. Посчитать количество единиц во всех разрядах, кратных трём: 3, 6, 9, …, 75, 78. Ксюндра Помощь студентам 5 01.06.2019 14:51
Дан одномерный массив, сформировать новый массив по заданному правилу {Delphi} Nickolai47 Помощь студентам 5 16.12.2012 14:51
дан целочисленный массив N. Удалить из массива все элементы,встречающиеся [менее двух раз]1 Zevsnet Паскаль, Turbo Pascal, PascalABC.NET 6 16.01.2011 18:01