проверка на чётность на паскале
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
проверка на чётность на паскале - 2008-12-07 17:56:58.093333
|
|
|
Basher2008
Сообщений: 148
Оценки: 0
Присоединился: 2008-01-27 17:28:11.896666
|
Дан массив вещественных чисел К[12], поменять местами 3-й и 8-й элементы дан-ного массива.
program mas1;
const n=10;
var a:array[1..n] of integer;
sum, i:byte;
begin
for i:=1 to n do read (a);
end.
так вот как это сделать-то?
зы с проверкой на чётность уже справился
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-07 18:03:12.110000
|
|
|
Sunzеr
Сообщений: 79
Оценки: 0
Присоединился: 2008-12-02 16:21:02.986666
|
Легко…
progarm FFF;
var
a:arra[1..10] of integer;
t:integer;
begin
t:=a[3];
a[3]:=a[8]
a[8]:=t;
end.
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-07 18:20:38.743333
|
|
|
Basher2008
Сообщений: 148
Оценки: 0
Присоединился: 2008-01-27 17:28:11.896666
|
хорошо, ++
и вот это ещё: Дан массив целых чисел Т[10], вычислить сумму элементов кратных 10
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-07 18:44:45.660000
|
|
|
Sunzеr
Сообщений: 79
Оценки: 0
Присоединился: 2008-12-02 16:21:02.986666
|
program FFF;
var
a:array[1..10] of integer;
r,i:integer;
begin
for i:=1 to 10 do
begin
if(a mod 10 = 0)Then r:=r+a;
end;
WriteLn(r);
end.
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 05:03:55.233333
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Basher2008
хорошо, ++
и вот это ещё: Дан массив целых чисел Т[10], вычислить сумму элементов кратных 10
f3 :: (Integral a) => [a] -> a
f3 list = sum $ filter (\x -> x `mod` 10 == 0) list
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 12:11:14.640000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
И тут тоже паскаль?
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 14:53:03.043333
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
2 Denaturat я же уже решил, зачем еще раз писать? Так еще и не на паскале.
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 14:58:07.826666
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Sunzer
2 Denaturat я же уже решил, зачем еще раз писать? Так еще и не на паскале.
по той же причине - а почему бы и нет? тебе от этого хуже стало? топикстартеру хуже стало? или любой шаг за пределы того, за что надо тупо получить зачёт/оценку - это нарушение правил?
задачи надо решать не для того, чтобы схалтурить в универе/школе, и остаться таким же валенком как и был. задачи должны быть в кайф, а для этого надо выбирать наиболее удобный инструмент. я наглядно демонстрирую один из возможных вариантов
хочешь меня в чём-то обвинить - формулируй наезд поконкретнее; защита невежества в качестве аргументации не принимается
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 14:59:17.390000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: _SaZ_
И тут тоже паскаль?
я смотрю тебя это просто коробит. ну считай это услугой тебе лично - ты проявил своё Ценное Мнение, и какой-то хомячок поставил тебе плюсик. радуйся!
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 15:07:50.223333
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
Denaturat ты откуда тут такой умный взялся? Написано что нужно на паскале…
Будешь мне отвечать дальше - пиши в личку. Тут не флудим.
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 15:13:29.113333
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Sunzer
Denaturat ты откуда тут такой умный взялся? Написано что нужно на паскале… Будешь мне отвечать дальше - пиши в личку. Тут не флудим.
не хочешь флудить - не флуди. ответ я писал не для тебя лично, а для всех, кто считает что я был неправ в данном топике
моя аргументация: у топикстартера есть два пути - быть халтурщиком и быдлом, сдающим лабы в школе/универе с помощью этого форума, или быть программистом, которому решение подобных задач - нормальное состояние
ты своим ответом направляешь его на первый путь, я - на второй. хочешь меня в чём-то упрекнуть? валяй. только пусть твой ответ все видят, чего уж там :)
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-11 15:22:07.320000
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
quote:
ORIGINAL: Denaturat
quote:
ORIGINAL: Sunzer
Denaturat ты откуда тут такой умный взялся? Написано что нужно на паскале… Будешь мне отвечать дальше - пиши в личку. Тут не флудим.
не хочешь флудить - не флуди. ответ я писал не для тебя лично, а для всех, кто считает что я был неправ в данном топике
моя аргументация: у топикстартера есть два пути - быть халтурщиком и быдлом, сдающим лабы в школе/универе с помощью этого форума, или быть программистом, которому решение подобных задач - нормальное состояние
ты своим ответом направляешь его на первый путь, я - на второй. хочешь меня в чём-то упрекнуть? валяй. только пусть твой ответ все видят, чего уж там :)
Когда мы в школе к примеру списываем контрольную по химии мы же не будем химиками работать в будущем?
Другое дело если он в универе на программера учится…
|
|
|
|
|
RE: проверка на чётность на паскале - 2008-12-12 03:43:49.553333
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: Sunzer
Когда мы в школе к примеру списываем контрольную по химии мы же не будем химиками работать в будущем?
для невежества нет оправданий
quote:
ORIGINAL: Sunzer
Другое дело если он в универе на программера учится…
для некомпетентности - тем более
|
|
|
|
|
|
