IPB
ЛогинПароль:

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

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

 
 Ответить  Открыть новую тему 
> Работа с массивами
сообщение
Сообщение #1


Гость






Информация о совокупном доходе и сумме налогов за 12 месяцев работника некоторого предприятия собрана в двух массивах:
а) определить среднегодовой совокупный доход.
б) создать новый массив, состоящий из чисел, означающих реально полученную заработную плату за каждый месяц.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


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

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

Репутация: -  45  +


Да, так в чем у вас вопрос, уважаемый ?

FAQ -> массивы, матрицы


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Помогите написать программу.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






yes2.gif Поможем, только ЗА тебя ее писАть никто не будет... Ты покажи, как пытался сделать, есть надо - попробуем исправить...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


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

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

Репутация: -  45  +


не ну показать можно... что то примерно так
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.


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

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

lol.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


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

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

Репутация: -  45  +


Цитата
Олег, тя чо пред динамические массивы использовать

да, меня прет потому что так удобно!

Цитата
А так имхо только усложняешь задачу

Если введение динамического массива для тебя усложнение то .... dry.gif промолчу blum.gif

Да к тому же учитывая то, что автор ничего сам не хочет делать, усложниение вполне оправданно!


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
Если введение динамического массива для тебя усложнение то .... dry.gif промолчу blum.gif


для мне нет, а вот для человека который в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы" вполне возможно ... Олег ты тут не прав no1.gif

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






klem4,
человек который
Цитата
в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы"
должен перечитать ее еще раз, и попытаться решить задание самостоятельно. Пусть будет неправильно, пока сам не обожжешься - ничего не запомнишь со слов других. Если он этого не делает - он либо лентяй, либо... Хорошо, пусть будет лентяй. wink.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


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

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

Репутация: -  45  +


и вообще, лекцию надо слушать а не прослушивать!

М
Как символично наблюдать в теме флуд и оффтоп с участием 2-х модеров и админа lol.gif
Altair



--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 16.10.2019 9:36
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name