Автор Тема: из барсика в паскаль...  (Прочитано 1444 раз)

Оффлайн DeadLord

  • Автор
  • Студент
  • *****
  • Сообщений: 441
  • Репутация: 85
из барсика в паскаль...
« : 22 Мая 2007, 16:48:09 »
есть вот такая конструкция на барсике:
SUB raschet1(d(2),xx,yy,t(2),xx1,yy1,id(2),xx2,yy2)
как в паскале объявить массивы d(2), t(2) и id(2)?

они что из себя представляют то??? я в бейсике не силен, так что это только первый вопрос:)
Motorola MPX200/TI omap710@120MHz/WM5_Black46 by Ghost-ind/SD Apacer 1Gb
Asus p526/TI omap850@201MHz/WM6.1 by melky/microSDHC Kingmax 4Gb
HP550/C2D T5270@1,4GHz/WinXP SP3 by SamLab/Debian Lenny (Debian 5) /2Gb/160Gb/X3100 int.

Оффлайн GogA

  • Автор
  • Студент
  • *****
  • Сообщений: 564
  • Репутация: 22
  • root :)
    • gogolev.net
из барсика в паскаль...
« Ответ #1 : 25 Мая 2007, 01:36:11 »
не понял твою конструкцию на бейсике..
на паскале массивы объявлять так:

var
  masofint: array [1..5] of integer;
  masofstring: array [1..5] of string;
  masofmasogint: array [1..5,1..5] of integer;

это есть в любом учебнике по паскалю.

то что тебе надо не понял, так что подробней.

Оффлайн Nikitian

  • Первоклассник
  • *
  • Сообщений: 23
  • Репутация: 5
    • Реальные дуэли на реальные деньги на Secundant.Com
Re: из барсика в паскаль...
« Ответ #2 : 26 Мая 2007, 02:32:28 »
не понял твою конструкцию на бейсике..
на паскале массивы объявлять так:

var
  masofint: array [1..5] of integer;
  masofstring: array [1..5] of string;
  masofmasogint: array [1..5,1..5] of integer;

это есть в любом учебнике по паскалю.

то что тебе надо не понял, так что подробней.

Топикстартер просто не понял какие типы и размерности у массивов объявлять. С типами - хз, а размерности.... лучше динамический попробовать ;)
Реальные убийства виртуальных соперников на www.secundant.com

Оффлайн delux

  • Детсадовец
  • *
  • Сообщений: 5
  • Репутация: 0
Re: из барсика в паскаль...
« Ответ #3 : 12 Июня 2007, 02:56:39 »
эта конструкция может быть записана так:
procedure raschet1(d:array [0..2] of integer; xx, yy :integer;
                   t:array [0..2] of integer; xx1, yy1 :integer;
                   id:array [0..2] of integer; xx2 ,yy2 :integer; );
если хочешь возвращать значения обратно в вызывающую функцию то используй var
например
procedure raschet1(var d:array [0..2] of integer; .....  );
размерность массива известна так что динамические массивы тут никчему