|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
13.02.2009, 19:40 | #1 |
Регистрация: 13.02.2009
Сообщений: 3
|
Решение задачи в паскале
2 В городе N магазинов. О каждом магазине известен ежемесячный доход и расход магазина. Вывести номера магазинов, у которых расход превысил доход. решите аааа
|
13.02.2009, 21:27 | #2 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,648
|
Цитата:
E-Mail: arigato.freelance@gmail.com
|
|
13.02.2009, 22:54 | #3 |
Регистрация: 13.02.2009
Сообщений: 3
|
program magaz;
type Data = record Plus, Minus : integer; Name : string[25]; end; const k=5; var List : array[0..k] of Data; i: integer; begin for i := 1 to k do begin Write('Enter Name: '); Readln(List[i].Name); Write('Dohod?: '); Readln(List[i].Plus); Write('Rashod?: '); Readln(List[i].Minus); end; WriteLn; WriteLn('Table 1:'); WriteLn('N D R'); for i := 1 to k do begin Write(List[i].Name); Write(' ',List[i].Plus); WriteLn(' ',List[i].Minus); end; WriteLn; WriteLn('Table 2:'); WriteLn('N D R'); for i := 1 to k do begin if (List[i].Minus > List[i].Plus) then begin Write(List[i].Name); Write(' ',List[i].Plus); WriteLn(' ',List[i].Minus); end; end; end. |
13.02.2009, 23:18 | #4 |
Форумчанин
Регистрация: 18.01.2009
Сообщений: 118
|
это элементарная задача
1. Если ваш уровень не позволяет ее решить, подумайте над ней, чтоб повысить его (не ваш случай) 2. Если вы из окна крикните случайному прохожему "сгоняй мне за пивом аааа", я сомневаюсь что он будет это делать. Так и здесь, легкую работу, которую вы сами в состоянии сделать за вас никто делать не будет. |
15.02.2009, 11:08 | #5 |
Регистрация: 06.02.2009
Сообщений: 5
|
Помогите...
Люди, помогите, пожалуйста, решить две задачи...
1)В заданном массиве A(N) поменять местами наибольший и наименьший элементы (первые по порядку, если их несколько). 2)В заданном массиве A(N) определить количество элементов, которые меньше заданного значения. * * * Задачи вроде лёгкие... Но понять никак не могу,как решать ... А завтра надо сдать... Пожалуйста |
15.02.2009, 11:15 | #6 |
Форумчанин
Регистрация: 04.11.2007
Сообщений: 117
|
wolfman
1)Объясни подробнее, так как первые идут до половины, а вторые после половины. Используй третью переменную! 2) Код:
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой. Последний раз редактировалось -HunteR-; 15.02.2009 в 11:24. |
15.02.2009, 11:23 | #7 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,648
|
wolfman, это элементарные задачи. О чём тогда вообще можно говорить?
E-Mail: arigato.freelance@gmail.com
|
15.02.2009, 11:32 | #8 |
Регистрация: 06.02.2009
Сообщений: 5
|
-HunteR-, дружище!!! Спасибо Помог
Очень благодарен А то,я сидел, фдуплял вчера))) А первую, не знаешь? |
15.02.2009, 11:32 | #9 |
Регистрация: 06.02.2009
Сообщений: 5
|
Arigato, согласен... Всё познаётся со временем
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решение задачи на C++ | tools | Фриланс | 8 | 19.12.2008 14:53 |
решение задачи | Claster | Общие вопросы Delphi | 17 | 16.09.2008 21:08 |
Решение задачи на c++ | JOFRIF | Помощь студентам | 2 | 21.04.2008 00:35 |
решение задачи | TuNeR | Microsoft Office Excel | 2 | 15.10.2007 09:31 |