Нужен допуск на экзамен. Помогите задачу решить. - Страница 2

Vladimir_S · 18.12.2010, 18:58

Цитата:

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

хорошо.
да,только второе,первое я уже сам сдал. Из таблице как вы уже поняли (я думаю) только 2 вариант. вполне возможно что пропущено.

Без проблем. Сейчас нарисую.

niktmb · 18.12.2010, 19:09

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

Vladimir_S · 18.12.2010, 19:19

Пожалуйста:

Код:

VAR
 A:Array[1..20,1..15] of Real;
 Sum:Real;
 N,M,NMpos:Byte;
 i,j:Integer;
BEGIN
 Write('Number of rows (<20)= ');
 ReadLn(N);
 Write('Number of columns (<15)= ');
 ReadLn(M);
 For i:=1 to N do
  For j:=1 to M do
   begin
    Write('A[',i:2,',',j:2,']= ');
    ReadLn(A[i,j]);
   end;
 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to M do
    Write(A[i,j]:6:1);
   WriteLn;
  end;
 WriteLn;
 WriteLn('Result of calculation:');
 For i:=1 to N do
  begin
   Sum:=0;
   NMpos:=0;
   For j:=1 to M do
    begin
     Sum:=Sum+A[i,j];
     If A[i,j]>0 then Inc(NMpos);
    end;
   WriteLn(Sum:7:1,NMpos:4);
  end;
 WriteLn;
 ReadLn;
END.

niktmb · 18.12.2010, 19:50

огромное спасибо,все работает идеально.

niktmb · 18.12.2010, 19:52

только еще один вопрос возник,можно ли сделать так что бы элементы матрицы в столбцах и строках прога заполняла рандомом? если можно то что надо изменить?

Vladimir_S · 18.12.2010, 19:55

Цитата:

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

только еще один вопрос возник,можно ли сделать так что бы элементы матрицы в столбцах и строках прога заполняла рандомом?

Легко. Только встречный вопрос - нельзя ли ограничиться целочисленным форматом (Integer) элементов матрицы, т.е. обязательно ли Real? Если можно, то было бы существенно проще и удобнее.

niktmb · 18.12.2010, 20:00

Я думаю что можно только целые(интежер) вряд ли на это будут смотреть.

Vladimir_S · 18.12.2010, 20:07

Получите:

Код:

VAR
 A:Array[1..20,1..15] of Integer;
 Sum,i,j:Integer;
 N,M,NMpos:Byte;
BEGIN
 Write('Number of rows (<20)= ');
 ReadLn(N);
 Write('Number of columns (<15)= ');
 ReadLn(M);
 Randomize;
 For i:=1 to N do
  For j:=1 to M do
    A[i,j]:=Random(100)-50;
 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to M do
    Write(A[i,j]:5);
   WriteLn;
  end;
 WriteLn('Press "Enter" to continue');
 ReadLn;
 WriteLn('Result of calculation:');
 For i:=1 to N do
  begin
   Sum:=0;
   NMpos:=0;
   For j:=1 to M do
    begin
     Sum:=Sum+A[i,j];
     If A[i,j]>0 then Inc(NMpos);
    end;
   WriteLn(Sum:7,NMpos:4);
  end;
 WriteLn;
 ReadLn;
END.

niktmb · 18.12.2010, 20:20

После ввода числа столбцов и строк выдаёт ошибку Error 215: Arithmetic overflow.

niktmb · 18.12.2010, 20:22

Но я так понял что если изменить random(100)-50 на (100)+50 или (100)+0 то все работает

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

18.12.2010, 19:09	#12 (permalink)
niktmb Member Регистрация: 18.12.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	заранее огромное спасиба. только если можно текст программы полностью напишите,а то ведь не разберусь.

18.12.2010, 19:50	#14 (permalink)
niktmb Member Регистрация: 18.12.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	огромное спасибо,все работает идеально.

18.12.2010, 19:52	#15 (permalink)
niktmb Member Регистрация: 18.12.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	только еще один вопрос возник,можно ли сделать так что бы элементы матрицы в столбцах и строках прога заполняла рандомом? если можно то что надо изменить?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

18.12.2010, 20:00	#17 (permalink)
niktmb Member Регистрация: 18.12.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я думаю что можно только целые(интежер) вряд ли на это будут смотреть.

18.12.2010, 20:20	#19 (permalink)
niktmb Member Регистрация: 18.12.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	После ввода числа столбцов и строк выдаёт ошибку Error 215: Arithmetic overflow.

18.12.2010, 20:22	#20 (permalink)
niktmb Member Регистрация: 18.12.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Но я так понял что если изменить random(100)-50 на (100)+50 или (100)+0 то все работает