Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Работа с массивами |
| baron |
 
Сообщение
#1
|
|
Гость  |
Информация о совокупном доходе и сумме налогов за 12 месяцев работника некоторого предприятия собрана в двух массивах:
а) определить среднегодовой совокупный доход. б) создать новый массив, состоящий из чисел, означающих реально полученную заработную плату за каждый месяц. |
 
|
|
| Altair |
Сообщение
#2
|
 Ищущий истину  Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация:  45  |
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
   |
|
| baron |
Сообщение
#3
|
|
Гость |
Помогите написать программу.
|
|
|
|
| volvo |
Сообщение
#4
|
|
Гость |
 Поможем, только ЗА тебя ее писАть никто не будет... Ты покажи, как пытался сделать, есть надо - попробуем исправить... |
|
|
|
| Altair |
Сообщение
#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.
интерфейс сам сделаешь...
 -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|||
|
|
|
|||
| Altair |
Сообщение
#6
|
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата Олег, тя чо пред динамические массивы использовать да, меня прет потому что так удобно! Цитата А так имхо только усложняешь задачу Если введение динамического массива для тебя усложнение то ....  промолчу  Да к тому же учитывая то, что автор ничего сам не хочет делать, усложниение вполне оправданно! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| klem4 |
Сообщение
#7
|
 Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Если введение динамического массива для тебя усложнение то .... dry.gif промолчу blum.gif для мне нет, а вот для человека который в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы" вполне возможно ... Олег ты тут не прав  Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
klem4,
человек который Цитата в прошлую пятницу скажем прослушал первую лекцию по теме "Массивы" должен перечитать ее еще раз, и попытаться решить задание самостоятельно. Пусть будет неправильно, пока сам не обожжешься - ничего не запомнишь со слов других. Если он этого не делает - он либо лентяй, либо... Хорошо, пусть будет лентяй.  |
|
|
|
| Altair |
Сообщение
#9
|
|||
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
и вообще, лекцию надо слушать а не прослушивать!
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|||
|
|
|
|||
|
|
Текстовая версия | 15.04.2025 12:11 |
)))