04.12.2009, 16:02
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
С нами:
9223466
Репутация:
3171
|
|
Итак,вот и пришло мое время обратиться за помощью.
Вот архив,там 2 *.pdf файла,в них 12 лаботарорных работ.Мой вариант - 7 .Тоесть, 12 заданий в общем.Пршу помощи в решении данных задачек.Спасибо.
Архив
Еще раз,всем большое спасибо. |
|
|
04.12.2009, 16:39
|
|
Участник форума
Регистрация: 03.11.2009
Сообщений: 102
С нами:
8694700
Репутация:
22
|
|
Есть 4 задачи на класы(перегруз функций итд)
знающему человеку роботы-1 день)
бюджет 30$ (если всё быстро чётко и с коментами то 35$)
сроки-10 дней!)
ICQ 396-731 Деньги даю с протектом после предо ставленой работы просматриваю её(на работоспособность) и даю вам код.
Человек взялся Уже не актуально!
Последний раз редактировалось Besi; 04.12.2009 в 21:05..
|
|
|
|
04.12.2009, 20:48
|
|
Новичок
Регистрация: 05.03.2008
Сообщений: 16
С нами:
9570010
Репутация:
3
|
|
Массивы в паскале
Здравствуйте!!! Нужна Ваша помошь!
Дали такое задание на Pascale: используя подпрограммы-функции в массивах Х и У найти минимумы с учетом повторений и поменять их местами.
Вроде ничего сложного. Написал код, все работает!
Но никак не пойму, как переделать программу, чтобы получились функции...
Код:
Program MinXY;
Uses Crt;
Const
MSize=10;
n=2;
m=3;
Var
x,y:array[1..n, 1..m] of Integer;
{n,m:Integer;}
tmp:Integer;
i,j:Integer;
PosXx, PosXy:Integer;
PosYx, PosYy:Integer;
ValX, ValY:Integer;
{Function SearchMin:Integer;}
Begin
ClrScr;
{********************************************}
Writeln('Ввод массива Х!!!');
for i:=1 to n do
for j:=1 to m do
begin
Write('x[',i,'][',j,'] -> ');
Readln(x[i][j]);
end;
Writeln;
Writeln('Ввод масива Y!');
for i:=1 to n do
for j:=1 to m do
begin
Write('y[',i,'][',j,'] -> ');
Readln(y[i][j]);
end;
{********************************************}
Writeln;
Writeln('Массив Х!');
for i:=1 to n do
begin
for j:=1 to m do
Write(x[i][j],' ');
Writeln;
end;
Readln;
Writeln('Массив Y!');
for i:=1 to n do
begin
for j:=1 to m do
Write(y[i][j],' ');
Writeln;
end;
Readln;
{********************************************}
ValX:=x[1,1];
PosXx:=1;
PosXy:=1;
for i:=1 to n do
begin
for j:=1 to m do
if x[i,j]<=ValX then
begin
ValX:=x[i,j];
PosXx:=i;
PosXy:=j;
end;
end;
Writeln('Найден Минимимум в массиве Х!');
Writeln('Значение минимума: ',ValX);
Writeln('Строка ',PosXx);
Writeln('Столбец ', PosXy);
Readln;
ValY:=y[1,1];
PosYx:=1;
PosYy:=1;
for i:=1 to n do
begin
for j:=1 to m do
if y[i,j]<=ValY then
begin
ValY:=y[i,j];
PosYx:=i;
PosYy:=j;
end;
end;
Writeln('Найден Минимимум в массиве Y!');
Writeln('Значение минимума: ',ValY);
Writeln('Строка ',PosYx);
Writeln('Столбец ', PosYy);
Readln;
{********************************************}
tmp:=x[PosXx,PosXy];
x[PosXx,PosXy]:=y[PosYx,PosYy];
y[PosYx,PosYy]:=tmp;
{********************************************}
Writeln;
Writeln('Массив Х!');
for i:=1 to n do
begin
for j:=1 to m do
Write(x[i][j],' ');
Writeln;
end;
Readln;
Writeln('Массив Y!');
for i:=1 to n do
begin
for j:=1 to m do
Write(y[i][j],' ');
Writeln;
end;
Readln;
End.
Я так понимаю должно наверно быть три функции:
1. Ввод массива (Х и У),
2. Поиск минимумов в массивах Х и Y
3. Замена минимумов местами
Подскажите, как можно переделать, а то не совсем разорбрался с функциями...
Заранее огромное спасибо!!!!! |
|
|
|
05.12.2009, 00:51
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
С нами:
9836841
Репутация:
20
|
|
Veman
Код:
Program MinXY;
Uses Crt;
Const
MSize=10;
n=2;
m=3;
Type mas=array[1..n, 1..m] of Integer;
Var
x,y:mas;
{n,m:Integer;}
tmp:Integer;
i,j,Vvodim,iskat,zamenit:Integer;
PosXx, PosXy:Integer;
PosYx, PosYy:Integer;
ValX, ValY:Integer;
Function Vvod(Var x:mas; Var y:mas):integer;
Begin
ClrScr;
{********************************************}
Writeln('Ввод массива Х!!!');
for i:=1 to n do
for j:=1 to m do
begin
Write('x[',i,'][',j,'] -> ');
Readln(x[i,j]);
end;
Writeln;
Writeln('Ввод массива Y!');
for i:=1 to n do
for j:=1 to m do
begin
Write('y[',i,'][',j,'] -> ');
Readln(y[i,j]);
end;
{********************************************}
Writeln;
Writeln('Массив Х!');
for i:=1 to n do
begin
for j:=1 to m do
Write(x[i,j],' ');
Writeln;
end;
Readln;
Writeln('Массив Y!');
for i:=1 to n do
begin
for j:=1 to m do
Write(y[i,j],' ');
Writeln;
end;
Readln;
End;
///////////////////////////////////////////////////////
Function Poisk(x:mas; y:mas; Var PosXx:integer; Var PosXy:integer):integer;
Begin
ValX:=x[1,1];
PosXx:=1;
PosXy:=1;
for i:=1 to n do
begin
for j:=1 to m do
if x[i,j]<=ValX then
begin
ValX:=x[i,j];
PosXx:=i;
PosXy:=j;
end;
end;
Writeln('Найден минимум в массиве Х!');
Writeln('Значение минимума: ',ValX);
Writeln('Строка ',PosXx);
Writeln('Столбец ', PosXy);
Readln;
ValY:=y[1,1];
PosYx:=1;
PosYy:=1;
for i:=1 to n do
begin
for j:=1 to m do
if y[i,j]<=ValY then
begin
ValY:=y[i,j];
PosYx:=i;
PosYy:=j;
end;
end;
Writeln('Найден минимум в массиве Y!');
Writeln('Значение минимума:',ValY);
Writeln('Строка ',PosYx);
Writeln('Столбец ', PosYy);
Readln;
end;
/////////////////////////////////////////////////////
Function Zamena(Var x:mas; Var y:mas; PosXx,PosYx:integer):integer;
Begin
tmp:=x[PosXx,PosXy];
x[PosXx,PosXy]:=y[PosYx,PosYy];
y[PosYx,PosYy]:=tmp;
End;
Begin
vvodim:=Vvod(x,y);
iskat:=poisk(x,y,PosXx,PosXy);
zamenit:=zamena(x,y,PosXx,PosYx);
Writeln;
Writeln('Массив Х!');
for i:=1 to n do
begin
for j:=1 to m do
Write(x[i,j],' ');
Writeln;
end;
Readln;
Writeln('Массив Y!');
for i:=1 to n do
begin
for j:=1 to m do
Write(y[i,j],' ');
Writeln;
end;
Readln;
End.
Единственное что не помню, можно ли функции както по-другому вызвать.
Последний раз редактировалось Syntaxys; 05.12.2009 в 01:33..
|
|
|
|
06.12.2009, 01:00
|
|
Новичок
Регистрация: 05.03.2008
Сообщений: 16
С нами:
9570010
Репутация:
3
|
|
Сообщение от Syntaxys
Veman
Единственное что не помню, можно ли функции както по-другому вызвать.
Огромное спасибо!!!! Очень помогли!!
Плюсы пока не могу ставить! Но вам Респект!!!! 
|
|
|
|
06.12.2009, 16:05
|
|
Познающий
Регистрация: 22.11.2009
Сообщений: 53
С нами:
8667664
Репутация:
0
|
|
народ.помогите написать прогу плиз.Вот задание (язык Паскаль):
Разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью e>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше e: | Aк | <e.
При вычислении очередного члена целесообразно воспользоваться рекурентным выражением:
Ак+1=Ск*Ак; к= 0, 1, 3, ...,
где ак - некоторый к-ый член ряда; ак+1 - следующий к+1-ый член ряда; ск - коэффициент, определяемый номером к.
При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR.
Границы интервала вычислений функций a и b, величина шага изменения аргумента h и точность вычисления функции e задаются при вводе. На печать выводятся номер по порядку, значение аргумента, соответствующие ему, значение функции и номер члена ряда, на котором закончилось вычисление значение функции, в форме таблицы:
№ Х f (x) № чл.р.
1
2
3
...
сама функция: f(x)=1/x+2*x[(1/(x^2+PI^2))+(1/x^2+4*PI^2))+...+1/(x^2+k^2*PI^2))...]
Заранее спасибо!
Последний раз редактировалось qwert135; 06.12.2009 в 16:22..
|
|
|
|
05.12.2009, 17:22
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
С нами:
8730155
Репутация:
-1
|
|
Никто не знает чтоли)
|
|
|
|
07.12.2009, 00:19
|
|
Познающий
Регистрация: 09.08.2009
Сообщений: 39
С нами:
8818983
Репутация:
75
|
|
Пост №1969
никто не поможет?
|
|
|
|
08.12.2009, 02:32
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
С нами:
9176827
Репутация:
29
|
|
Сообщение от mr_walker
Пост №1969
никто не поможет?
лежат исходники ftp-клиента на Delphi.
По-моему как раз таки то, что просилось: перемещения по папкам, загрузка файлов, аутенфикация, пассивный режим.
Последний раз редактировалось StealthMaster; 08.12.2009 в 02:38..
|
|
|
|
08.12.2009, 05:32
|
|
Познающий
Регистрация: 09.03.2009
Сообщений: 43
С нами:
9039367
Репутация:
53
|
|
Помогите построить график используя MFC.функция или синус или косинус, нужен параллельный перенос, сжатие и растяжение.
ПОжалуйста.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
