ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Pascal нужно немного помочь с кодом
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: 136
Отправить сообщение для 0x22b с помощью ICQ
По умолчанию 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

мне нужны просто целые числа..
 
Ответить с цитированием

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

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



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



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


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




ANTICHAT.XYZ