Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 12.05.2010, 21:56   #1 (permalink)
kazax
Новичок
 
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Массивы

помогите с написанием программы по массивам
№1.Дана действительная квадратная матрица модуль a ij,где i,j=1....n . Получить две квадратные матрицы модуль b ij где i,j=1...n ;модуль c ij,где i,j=1...n , для которых b ij=a ij ,если j=>i и b ij=-a ij ,если j<i ;c ij=a ij,если j<i и c ij=-a ij,если j=>i
не знаю понятно или нет,не копируются формулы из задания(((

№2.Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45.

Последний раз редактировалось kazax; 12.05.2010 в 23:40
kazax вне форума   Ответить с цитированием

Старый 12.05.2010, 21:56
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Моя рекомендация - обратите внимание на похожие темы

Массивы
Массивы
Массивы
Массивы

Старый 12.05.2010, 22:48   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,917
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Цитата:
№1.Дана действительная квадратная матрица . Получить две квадратные матрицы ; , для которых.
Вы хотите сказать, что это задание? Нет, давайте все целиком.

Цитата:
№2.Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45.
Код:
uses crt;
const n=45;
var a:array [1..n] of integer;
    kneg,knil,i:byte;
begin clrscr;
      writeln ('Type ',n,' numbers: ');
      for i:=1 to n do begin
          read(a[i]);
          if i<=35 then
             if a[i]<0 then
                inc(kneg,1);
          if a[i]=0 then
             inc(knil,1);
      end;
      writeln;
      writeln ('Amount of negative numbers: ',kneg,'; Amount of nils: ',knil);
      readkey;
end.
MrSTEP вне форума   Ответить с цитированием
Старый 12.05.2010, 23:20   #3 (permalink)
kazax
Новичок
 
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо за написанную прогу MrSTEP!сейчас напишу второе задание полностью
kazax вне форума   Ответить с цитированием
Старый 12.05.2010, 23:32   #4 (permalink)
kazax
Новичок
 
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а вы можете объяснить ,что такое книл и кнег,я просто ваще не рублю в массивах(((
kazax вне форума   Ответить с цитированием
Старый 12.05.2010, 23:43   #5 (permalink)
kazax
Новичок
 
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а с блок схемами можите помочь?
kazax вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 12.05.2010, 23:43   #6 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,917
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

А это не имеет никакого отношения к массивам, это просто имена переменных, которые можно назначать любые. kneg - это сокращение от смеси русско-английских слов kol-vo negative (количество отрицательных), а knil - kol-vo nil (количество нулей). Вот и все премудрости.
С блок-схемами могу помочь, но на ближайшие сутки свободного времени не осталось. Вам к какому сроку?
MrSTEP вне форума   Ответить с цитированием
Старый 12.05.2010, 23:59   #7 (permalink)
kazax
Новичок
 
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ну мне хотя бы в пятницу сдать надо.чет я прогу набрал она вывела Type45numbers:
что такое ? а первую задачу ты смотрел?
kazax вне форума   Ответить с цитированием
Старый 13.05.2010, 00:17   #8 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,917
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

До пятницы блок-схему не успею. Программа хочет, что бы ты ввел 45 элементов а к первой задаче задание не очень понятное, лучше картинкой приложи. Взяться за нее сейчас не смогу
MrSTEP вне форума   Ответить с цитированием
Старый 13.05.2010, 10:36   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,837
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от MrSTEP Посмотреть сообщение
а к первой задаче задание не очень понятное, лучше картинкой приложи. Взяться за нее сейчас не смогу
Да там всё понятно, если малость дешифровкой позаниматься. Это вот что:
Цитата:
Сообщение от kazax Посмотреть сообщение
Дана действительная квадратная матрица a[i,j], где i,j=1....n . Получить две квадратные матрицы b[i,j] и c[i,j], где i,j=1...n, для которых:
b[i,j]=a[i,j] , если j=>i, и b[i,j]=-a[i,j], если j<i;
c[i,j]=a[i,j], если j<i, и c[i,j]=-a[i,j], если j=>i.
Элементарно:
Код:
const
 n=8;
var
 i,j:integer;
 a,b,c:array[1..n,1..n] of real;

begin
 Randomize;
 for i:=1 to n do
   for j:=1 to n do
    a[i,j]:=Random*100-50;

 WriteLn('Matrix A:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    Write(a[i,j]:8:3);
   writeln;
  end;
 WriteLn('Press "Enter" to continue');
 ReadLn;

 for i:=1 to n do
   for j:=1 to n do
    If j>=i then b[i,j]:=a[i,j] else b[i,j]:=-a[i,j];

 for i:=1 to n do
   for j:=1 to n do
    If j<i then c[i,j]:=a[i,j] else c[i,j]:=-a[i,j];

 WriteLn('Matrix B:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    Write(b[i,j]:8:3);
   writeln;
  end;
 WriteLn('Press "Enter" to continue');
 ReadLn;

 WriteLn('Matrix C:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    Write(c[i,j]:8:3);
   writeln;
  end;
 ReadLn;
end.
Значение константы n можно, разумеется, поменять.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 13.05.2010, 14:41   #10 (permalink)
kazax
Новичок
 
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо Vladimir_S ,а с блок схемами пожите?
kazax вне форума   Ответить с цитированием
Ads

Яндекс

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

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

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:42.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.