Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2015, 22:14   #1
Ksuu
Пользователь
 
Регистрация: 12.04.2015
Сообщений: 13
Вопрос Турбо паскаль. Двумерные массивы.

Помогите пожалуйста. Я начала делать, но не знаю как продолжить. Нужно определить количество положительных элементов четвертого столбца и распечатать массив в виде матрицы.
Код:
PROGRAM M4;
VAR k,i:byte;
    x:array [1..5,1..5] of real;
begin
     writeln ('massive x');
     for k,i:=1 to 5 do
         begin
              x[k,i]=(cos(k)+sin(i))/(sqrt(k)+sqr(i));
              write (x[k,i]:8:4);
              if x[k,i]>0 then

Последний раз редактировалось Stilet; 29.05.2015 в 08:44.
Ksuu вне форума Ответить с цитированием
Старый 29.05.2015, 00:01   #2
Ksuu
Пользователь
 
Регистрация: 12.04.2015
Сообщений: 13
По умолчанию

Неужели никто не знает как!?
Ksuu вне форума Ответить с цитированием
Старый 29.05.2015, 04:58   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var k,i,c:byte;
    x:array [1..5,1..5] of real;
begin
   writeln ('massive x');
   For k:=1 to 5 do
   begin
      For i:=1 to 5 do
      begin
         x[k,i]:=(cos(k)+sin(i))/(sqrt(k)+sqr(i));
         Write(x[k,i]:5:5,'  ');
      end;
      Writeln;
   end;
   c:=0;
   For k:=1 to 5 do
      If x[k,4]>0 then
         c:=c+1;
   Writeln('kol-vo polozh. elementov 4-go stolbca = ',c);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Турбо паскаль. Массивы. Ksuu Помощь студентам 5 28.05.2015 20:27
Паскаль Турбо, массивы. Кхалиси Помощь студентам 7 14.05.2015 23:27
двумерные массивы в турбо паскале!!! Lolman Помощь студентам 1 17.03.2011 12:08
Турбо Паскаль : массивы ARAGON Помощь студентам 4 06.04.2010 11:31
Турбо Паскаль : массивы ARAGON Помощь студентам 5 05.04.2010 18:52