HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Pascal нужно немного помочь с кодом
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Pascal нужно немного помочь с кодом
  #1  
Старый 26.05.2010, 00:44
0x22b
Участник форума
Регистрация: 01.12.2007
Сообщений: 141
С нами: 9707254

Репутация: 136
По умолчанию Pascal нужно немного помочь с кодом
Условие Из заданой матрицы А(5х7) элементы которой формируются по формуле........... сформировать одномерный массив В состоящий из элементов матрицы которые стоят на пересечении четных строк и четных столбцов матрицы А.

Вообщем с паскалем дружу плохо, кое что накидал, но мне нужно чтоб в массив В числа записывались без дробной части..

вот код..

Код:
program zadanie1;
var
i,j,k:integer;
sa:real;
matrixA:array[1..5,1..7] of single;
arrB:array[1..6] of single;
begin

for i:=1 to 5 do
  for j:=1 to 7 do
    matrixA[i,j]:=2*sin(3*i)+3*(sin(3*j*i)/cos(3*j*i));

k:=1;

for i:=2 to 5 do begin
  if (i mod 2)=0 then begin
    for j:=2 to 7 do begin
      if (j mod 2)=0 then begin
        arrB[k]:=matrixA[i,j];
        inc(k);
      end;
    end;
  end;
end;

for i:=1 to 6 do
  writeln(arrB[i]);
end.
вывод такой:

-2.46641087532043E+0000
-6.96352100372314E+0000
2.26925811767578E+0001
-7.47783613204956E+0000
2.52723598480225E+0000
-1.86039793491364E+0000

мне нужны просто целые числа..
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 26.05.2010, 00:59
Ins3t
Участник форума
Регистрация: 18.07.2009
Сообщений: 272
С нами: 8850336

Репутация: 330
По умолчанию
Функция Trunc: Усекает значение вещественного типа к значению целочисленного типа.
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Просьба о взломе почты (нужно помочь в этом сотруднику на работе) Дрэгги Уязвимости Mail-сервис 3 11.02.2009 21:28
О взломе почты, нужно помочь знакомому Дрэгги Болталка 0 11.02.2009 19:32



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


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




ANTICHAT ™ © 2001- Antichat Kft.