Форум АНТИЧАТ - Студентам с лабораторными сюда

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Студентам с лабораторными сюда

Страница 197 из 287

197

Опции темы

Поиск в этой теме

Опции просмотра

#1961

04.12.2009, 16:39

Besi

Участник форума

Регистрация: 03.11.2009

Сообщений: 102

Провел на форуме:
1319431

Репутация: 22

Отправить сообщение для Besi с помощью ICQ

Есть 4 задачи на класы(перегруз функций итд)
знающему человеку роботы-1 день)
бюджет 30$ (если всё быстро чётко и с коментами то 35$)
сроки-10 дней!)
ICQ 396-731 Деньги даю с протектом после предо ставленой работы просматриваю её(на работоспособность) и даю вам код.

Человек взялся Уже не актуально!

Последний раз редактировалось Besi; 04.12.2009 в 21:05..

Массивы в паскале

#1962

04.12.2009, 20:48

Weman

Новичок

Регистрация: 05.03.2008

Сообщений: 16

Провел на форуме:
86024

Репутация: 3

Отправить сообщение для Weman с помощью ICQ

Массивы в паскале

Здравствуйте!!! Нужна Ваша помошь!
Дали такое задание на 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. Замена минимумов местами

Подскажите, как можно переделать, а то не совсем разорбрался с функциями...
Заранее огромное спасибо!!!!!

#1963

05.12.2009, 00:51

Syntaxys

Познающий

Регистрация: 02.09.2007

Сообщений: 67

Провел на форуме:
521298

Репутация: 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..

#1964

05.12.2009, 00:59

mr_walker

Познающий

Регистрация: 09.08.2009

Сообщений: 39

Провел на форуме:
298385

Репутация: 75

На делфи!

Основное задание:
Написание ftp-клиента. Задача: Написать прикладную программу, которая способна выполнять базовые функции ftp-клиента, тобто вміє працювати з ftp-серверами. Функциональность : программа должна поддерживать следующие стандартные:
*Соединение
*Аутентификация
*Навигация по директориях сервера (cd, dir/ls, и т.д.) *Получение и отправление файлов (в т.ч. і в passive mode)
*Розсоединение
Подсказка: большинство вышеуказаных функций можна исполнить,
используя telnet.
Фактически, нужно написать программу
с интерфейсом, которая умеет получать\отправлять TCP поток по заданому порту. Иными словами - telnet.

Задание(вариант3): Реализовать сохранение паролей, для удобства.

ребята помогите плз... срочно надо... с меня причитается....

#1965

05.12.2009, 17:22

GenTao

Участник форума

Регистрация: 10.10.2009

Сообщений: 133

Провел на форуме:
143706

Репутация: -1

Никто не знает чтоли)

#1966

06.12.2009, 01:00

Weman

Новичок

Регистрация: 05.03.2008

Сообщений: 16

Провел на форуме:
86024

Репутация: 3

Цитата:

Сообщение от Syntaxys

Veman

Единственное что не помню, можно ли функции както по-другому вызвать.

Огромное спасибо!!!! Очень помогли!!
Плюсы пока не могу ставить! Но вам Респект!!!!

#1967

06.12.2009, 01:07

Fooog

Постоянный

Регистрация: 19.09.2008

Сообщений: 511

Провел на форуме:
1866685

Репутация: 340

Отправить сообщение для Fooog с помощью ICQ

Отправить сообщение для Fooog с помощью AIM

Отправить сообщение для Fooog с помощью Yahoo

Цитата:

Плюсы пока не могу ставить! Но вам Респект!!!!

Твои плюсы отображаются только если ты состоишь в какой то группе!

#1968

06.12.2009, 01:19

Syntaxys

Познающий

Регистрация: 02.09.2007

Сообщений: 67

Провел на форуме:
521298

Репутация: 20

GenTao, на визе не пишу, но сподобными лабами советую выкладывать мат.обоснование или как минимум формулы.

Weman, пожалуйста. Насчет плюсов не парься. Плюсы это хорошо конечно, но не в них суть.

Последний раз редактировалось Syntaxys; 06.12.2009 в 01:56..

#1969

06.12.2009, 05:26

RealMarkus

Познающий

Регистрация: 27.11.2009

Сообщений: 48

Провел на форуме:
326942

Репутация: 5

Боюсь даже спрашивать , но никто в QBasic не разбирается ?

#1970

06.12.2009, 16:05

qwert135

Познающий

Регистрация: 22.11.2009

Сообщений: 53

Провел на форуме:
33126

Репутация: 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..

Страница 197 из 287

197

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем!	nigger	Сотовый фрикинг	5	11.04.2009 11:15
Американским студентам запретили пользоваться Skype	KPOT_f!nd	Мировые новости	1	28.09.2006 03:47
Любителям квестов сюда!!	FoX's	Болталка	10	25.01.2005 20:42

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход