Работа с массивами - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Работа с массивами

Опции

baron	21.11.2005 17:27 Сообщение #1
Гость	Информация о совокупном доходе и сумме налогов за 12 месяцев работника некоторого предприятия собрана в двух массивах: а) определить среднегодовой совокупный доход. б) создать новый массив, состоящий из чисел, означающих реально полученную заработную плату за каждый месяц.

Altair	21.11.2005 17:30 Сообщение #2
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45	Да, так в чем у вас вопрос, уважаемый ? FAQ -> массивы, матрицы -------------------- Помогая друг другу, мы справимся с любыми трудностями! "Не опускать крылья!" (С)

baron	21.11.2005 17:31 Сообщение #3
Гость	Помогите написать программу.

volvo	21.11.2005 17:34 Сообщение #4
Гость	Поможем, только ЗА тебя ее писАть никто не будет... Ты покажи, как пытался сделать, есть надо - попробуем исправить...

Altair

21.11.2005 17:57

Сообщение #5

Ищущий истину

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация:

не ну показать можно... что то примерно так

Type
 TElem = Integer;
 ArrType = array[1..1] of TElem;
 Arr = ^ArrType;
const
 SizeOfArray:integer = 12;
 dohod:telem= 0;
var
 a,b,c:Arr;
 i:integer;
begin
 GetMem(a,SizeOfArray*SizeOf(TElem));
 GetMem(b,SizeOfArray*SizeOf(TElem));
 GetMem(c,SizeOfArray*SizeOf(TElem));
 writeln(' enter a..');
 for i:=1 to 12 do readln(a^[i]);
 writeln(' enter b..');
 for i:=1 to 12 do readln(b^[i]);
 for i:=1 to 12 do begin inc(dohod,a^[i]-b^[i]); c^[i]:=a^[i]-b^[i] end;
 writeln('dohod = ',dohod);
 for i:=1 to 12 do write(c^[i], ' ' );
 FreeMem(a,SizeOfArray*SizeOf(TElem));
 FreeMem(b,SizeOfArray*SizeOf(TElem));
 FreeMem(c,SizeOfArray*SizeOf(TElem));
 readln;
end.

интерфейс сам сделаешь...

Олег, тя чо пред динамические массивы использовать ? Людям ведь это не нужно .. если бы нужно было, они бы написали ... А так имхо только усложняешь задачу, хотя динамические конечно круче обычных

)))

klem4

--------------------

Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)

Altair	21.11.2005 18:21 Сообщение #6
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45	Цитата Олег, тя чо пред динамические массивы использовать да, меня прет потому что так удобно! Цитата А так имхо только усложняешь задачу Если введение динамического массива для тебя усложнение то .... промолчу Да к тому же учитывая то, что автор ничего сам не хочет делать, усложниение вполне оправданно! -------------------- Помогая друг другу, мы справимся с любыми трудностями! "Не опускать крылья!" (С)

klem4	21.11.2005 18:54 Сообщение #7
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Цитата Если введение динамического массива для тебя усложнение то .... dry.gif промолчу blum.gif для мне нет, а вот для человека который в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы" вполне возможно ... Олег ты тут не прав Сообщение отредактировано: klem4 - 21.11.2005 18:58 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

volvo	21.11.2005 19:06 Сообщение #8
Гость	klem4, человек который Цитата в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы" должен перечитать ее еще раз, и попытаться решить задание самостоятельно. Пусть будет неправильно, пока сам не обожжешься - ничего не запомнишь со слов других. Если он этого не делает - он либо лентяй, либо... Хорошо, пусть будет лентяй.