Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.12.2011, 21:35   #1
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
Вопрос Небольшая программа

Помогите дописать программу по этому заданию: "Даны 2 массива: А(5) и В(5). Сформируйте массив С, предварительно определив его длину, включая из массивов А и В только нечетные по значению элементы. Выведите на экран массивы А,В,С."

Начал я вот так:

var a,b:array [1..5] of integer;
c: array [1..10] of integer;
i:integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
readln(b[i]);

Правильно ли я начал? Если нет, то помогите дописать.
Владимир Вайдер вне форума
Старый 11.12.2011, 21:40   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
k:=0;
for i:=1 to 5 do
if odd(a[i]) then begin inc(k);c[k]:=a[i];end;
for i:=1 to 5 do
if odd(b[i]) then begin inc(k);c[k]:=b[i];end;
For i:=1 to k do write(c[i],' ');
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 11.12.2011, 21:45   #3
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
По умолчанию

А как программа будет выглядеть полностью? Можете написать?
Владимир Вайдер вне форума
Старый 11.12.2011, 21:49   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
var k:integer;
a,b:array [1..5] of integer;
c: array [1..10] of integer;
i:integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
readln(b[i]);
k:=0;
for i:=1 to 5 do begin write(a[i],' ');
if odd(a[i]) then begin inc(k);c[k]:=a[i];end;end;
writeln;
for i:=1 to 5 do  begin write(b[i],' ');
if odd(b[i]) then begin inc(k);c[k]:=b[i];end;end;
writeln;
For i:=1 to k do write(c[i],' ');
readln;
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 11.12.2011 в 21:53.
Mad_Cat вне форума
Старый 11.12.2011, 21:50   #5
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
По умолчанию

Я попробовал так, как Вы написали, но что-то не получается

На экран не выводятся массивы. Нужно ввести несколько значений, чтобы он что-то вывел. Но даже так, то, что он выводит, не массивы.

Последний раз редактировалось Stilet; 11.12.2011 в 22:18.
Владимир Вайдер вне форума
Старый 11.12.2011, 22:17   #6
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Сейчас я буду ругаться!!!
Цитата:
На экран не выводятся массивы.
Какого хр....(зачеркнуто) черта?
Результат работы программы
Цитата:
1
2
3
4
5

1
2
3
4
5

1 2 3 4 5
1 2 3 4 5
1 3 5 1 3 5
синий - массив А ;Красный -B ;Зеленый-С

Цитата:
Но даже так, то, что он выводит, не массивы.
А что,извините?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 11.12.2011, 22:22   #7
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
По умолчанию

Извиняюсь, туплю. Я немного неправильно программу переписал, поэтому там выводилось другое. Теперь все верно. Спасибо большое!
Владимир Вайдер вне форума
Закрытая тема
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Небольшая программа в Delphi ара Фриланс 3 17.05.2011 23:53
небольшая программа (геометрия) mego4el Общие вопросы Delphi 4 22.09.2010 05:21
Нужна небольшая программа с Экселем bSerz Фриланс 6 12.06.2010 15:18
Нужна небольшая программа Umtius Фриланс 1 06.06.2010 19:42
Небольшая программа,помогите пожалуйста g.b.r Софт 7 02.08.2009 17:24