VPF::Интеграция кода Pas в Delphi - Форум программистов

VaLenOK007

Дата 6.9.2011, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.6.2011

Репутация: нет
Всего: нет

Привет товарисчи! Кому не сложно, подмогните, я с дельфом не очень дружу, на уровне написания калькулятора, кто сможнёт, встройте коды в программку, а то я не знаю как)

1.Вывести на экран номера столбцов, в которых максимальный элемент попадает в интервал [A,B], а так же соответствующие значения максимальных элементов(тобиш номера этих элементов)

Код


Var c:array[1..100,1..100] of longint;
i,j:byte;
a,b:longint;
n,max:integer;
begin
 writeln('введи N'); readln(n);
  Writeln('Введи интервал'); readln(a,b);
 Writeln('Введите элементы: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Readln(c[i,j]);
    end;  
  max:=c[i,1];
   if ((c[i,j] in [a..b]) and (c[i,j]>max))
   then begin
    max:=c[i,j];
   break;
  end; end;
  Writeln('максимум ',max,' на столбце ',j,' на строке ',i );
  end;
 readln;
 end.

2. Сформировать одномерный массив, состоящий из кол-ва положительный, отрицательных и нулевых элементов матрицы X[n,m]

Код


program mas;
uses crt;
var
 h,i,pol,otr,nul:integer;
 x:array [1..n,1..n] of extended; y:array [1..n] of extended;
 begin
 writeln('введи n'); readln(n)
 writeln('Введи элементы массива');
  otr:=0;
  pol:=0;
  nul:=0;
 for i:=1 to n do begin
  for j:=1 to n do
   readln(x[i,j]);
   if x[i,j]<0 then otr:=otr+1;
   else if x[i,j]>0 then pol:=pol+1;
   else if x[i,j]=0 then nul:=nul+1;
 end;
 
readln;
end.

3 Все элементы матрицы X[n,n] лежащие ниже второстепенной диагонали заменить суммой элементов дробной части, стоящих в нечетных столбцах

Код


Const
 n = 3;
Var
 a:array [1..n,1..n] of extended;
 i,j:integer;
 sum:extended;
Begin
 Writeln('Введите элементы: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Readln(a[i,j]);
   Writeln('---');
  End;
 Writeln;
 writeln('Начальная матрица: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Write(a[i,j],' ');
   writeln;
  End;
 sum:=0;
 For i:=1 to n do
  For j:=1 to n do
   If (odd(j)) and (frac(a[i,j]) <> 0) then sum:=sum+a[i,j];
 Writeln;
 Writeln('Сумма элементов, стоящих в нечетных столбцах и имеющих дробную часть ',sum);
 For i:=2 to n do
  For j:=n-i+2 to n do
   a[i,j]:=a[i,j]+sum; {Выполнение сложения}
 writeln;
 Writeln('Конечная матрица: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Write(a[i,j],' ');
   writeln;
  End;
End.

Вроде оно и не сложно, но что-то не выходит. Естессно, програмки должны выполняться по выбору, I,II или III
За помощь, желательно с комментами что и куда делали(ибо я и сам разобраться хочу) куча благодарностей гарантирую! smile

и для троллей, я знаю что я тупой, я знаю что надо курить мануалы и ваще лучше учить си

Keeper89

Дата 6.9.2011, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(VaLenOK007 @ 6.9.2011, 11:21

)

ваще лучше учить си

Кто тебе такое сказал?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Frees

Дата 6.9.2011, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

VaLenOK007, а вопрос в чем?

Добавлено через 1 минуту и 20 секунд

Цитата(VaLenOK007 @ 6.9.2011, 14:21

)

встройте коды в программку

это что значит?

--------------------

Кольцов Виктор Владимирович

klyaksa

Дата 6.9.2011, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 15.9.2005

Репутация: нет
Всего: нет

а) в программах (по крайнем мере первой) есть ошибки...
б) File - New - Other - консольное приложение...
begin...end заменить на var ... begin ... end 1, 2 или 3...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »