amigo
Начинающий
|
    
Цитата: KMA написал 17 дек. 2006 1:25
molodzo, решу бесплатно -)
Короче, так, тебе нужно составить процедуру для нахождения трех максимумов? Или функцию?
Напиши условие, я решу.
amigo, =)
Вот, что значит конкуренция! Хорошая вещь, для некоторых однако...
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 17 дек. 2006 14:25 | IP
|
|
OlyaSt
Удален
|
мне нужно помочь выполнить целую серию несложных программок на Паскале...кто сможет помочь? Задания не выкладываю поскольку, они объемные по написанию..
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 дек. 2006 15:50 | IP
|
|
KMA 
Долгожитель
|
 
Я смогу помочь. Бесплатно в том случае, если, ты сам что-то попытаешься сделать и обратишься с конкретным вопросом объяснить. Ну а остальное все естественно платно.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 17 дек. 2006 17:14 | IP
|
|
Katya 17
Удален
|
послушайте,вы здесь все такие умные я просто вам очень завидую.....молодцы....а вот мне в Pascale ну никак не дается тема с процедурами!вот если кто-нить помог мне на примере разобраться...то я была бы очень признательна..правда...вот такое задание..не понимаю как делать...:заданы две матрицы а(2,2) и b(3,3).Вычислить сколько из них являются симметричными(ноль,одна,две).Матрица называется симметричной,если транспонированная матрица равна исходной.транспонирование оформить в виде процедуры. если что-то сможете подсказать огромное СПАСИБО!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 дек. 2006 17:41 | IP
|
|
KMA
Долгожитель
|
Так уж и быть, в виду того, что ты девушка =)
Объявим тип:
Type matrix=array [1..3, 1..3] of integer;
Var a, b, {заданные матрицы}
at, bt : matrix; {транспорированные матрицы}
Теперь напишем процедуру транспорирования:
procedure transporMatrix ( x: matrix; {исходная матрицы}
n: byte; {количество эл. в матрице}
Var xt: matrix; {транспорир. матр.});
Var i, j: byte; {счетчики}
Begin
for i:=1 to n do
for j:=1 to n do
xt[i, j]:=x[j, i]
End;
А теперь сама программа:
BEGIN
{тут ты вводишь данные в матрицы а и b}
transporMatrix (a, 2, at);
transporMatrix (b, 3, bt);
if (a=at) and (b=bt)
then writeLn ('Обе симметричны')
else if (a=at) or (b=bt)
then writeLn ('Одна симметрична')
else writeLn ('Не одной');
END;
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 17 дек. 2006 17:59 | IP
|
|
Katya 17
Удален
|
А сколько будет стоить написание нескольких работ(з работы)...ну примерно!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 дек. 2006 18:00 | IP
|
|
KMA
Долгожитель
|
Это уже лично каждому надо писать и спрашивать. А так смотря какие задачи. И вообще это уже как оффтопик, поэтому, пишите лучше лично каждому и спрашивайте.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 17 дек. 2006 18:03 | IP
|
|
Katya 17
Удален
|
Огромное-огромное спасибо!вы меня очень выручили!!!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 дек. 2006 18:03 | IP
|
|
OlyaSt
Удален
|
Цитата: KMA написал 17 дек. 2006 17:14
Я смогу помочь. Бесплатно в том случае, если, ты сам что-то попытаешься сделать и обратишься с конкретным вопросом объяснить. Ну а остальное все естественно платно.
А платно, это сколько, можно написать по мэйлу?
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 дек. 2006 18:04 | IP
|
|
KMA
Долгожитель
|
OlyaSt, можно...
Katya 17, пожалуйста, но больше такой халявы нигде не будет (сделал исключение на то, что ты девушка). Хочешь разобраться пиши код, и говори, что у тебя не получается.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 17 дек. 2006 18:12 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
