VPF: Object Pascal: кроссплатформенные технологии,

Lazarus kлиент сервер приложение ??

count — 2010-03-19T17:03:00-02:00

надо установить пакет INet или LazSocket
Кстати насчет сервера - не уверен. Клиента - точно на этих компонентах можно организовать.

Проект lazarus, Всем паскалистам предлагаю взглянуть

count — 2010-01-24T21:42:00-02:00

Lazarus - не замена Delphi...
Паскаль с похожей на дельфи, но кроссплатформенной ИДЕ.
сам использую для пары мелких проектов (в одном - изза кроссплатформенности (arm/ win CE), во втором - по причине лицензионной чистоты)
из глобального не хватает только MDI... все остальное - базы, репортинг, сеть - вполне на уровне и нормально работают. Приходится конечно немного менять привычки, но вцелом - интересная штука.
Про размер файлов - самый частый вопрос - отключается в настойках проекта запись дебугов - и все ок.
в целом - имеет полное право на жизнь

Процедуры и функции

Proxin — 2010-03-10T12:57:00-02:00

Код


procedure inputvectors(var vectorx,vecotry:integer);
begin
readln(vectorx,vectory);
end;

подпрограммы в паскале, помогите написать программу

ФедосеевПавел — 2010-03-09T15:42:00-02:00

Пересмотри подпрограммы scmult и Trans.
Первая даже не откомпилируется (функция должна возвращать только перечислимые типы (Integer, Real и т.д.).
Вторая будет возвращать неверный результат для неквадратных матриц. Могу предложить такой вариант

Код

PROCEDURE MatrixT(VAR A : TMatrix; Rows, Cols : Integer);
VAR
  i, j : Integer;
  z    : Integer;
  m    : Integer;
BEGIN
  if Rows>Cols
    then m:=Rows
    else m:=Cols;
  for i:=1 to m do begin
    for j:=Succ(i) to m do begin
      z:=A[i, j];
      A[i, j]:=A[j, i];
      A[j, i]:=z;
    end;
  end;
END;

А сама программа будет примерно такой (это незаконченный вариант):

Код


VAR
  za, zb        : Integer;
  m, n          : Integer;
  A, B, C, D, E : Matrix;
BEGIN
  n:=4;
  m:=5;
  Vvod(A,n,m);
  Vvod(B,n,m);
  WriteLn('Matrix A:');
  Vyvod(A,n,m);
  WriteLn('Matrix B:');
  Vyvod(B,n,m);
  za:=z(A, n, m);
  zb:=z(B, n, m);
  WriteLn('z(A)=', za);
  WriteLn('z(B)=', zb);
  if za>zb
  then begin
    {C:=za*(A*B^T)+zb*(A*B^T)^2}
    {D:=(A*B^T)}
    Trans(B,n,m, C);
    Umn(A,C,m,n, D);
    {C:=za*D}
    scmult(D,n,n,za, C);
    {E:=D^2}
    Umn2(D,n,n, E);
    {D:=zb*E}
    scmult(E,n,n,zb, D);
    {C:=C+D}
    SumMatr(C, D, n,n, C);   {<--- Нужно описать процедуру сложения двух матриц}
    WriteLn('Матрица C');
    Vyvod(C, n,n);
  end
  else begin
.................................
     здесь аналогичный код вычисления матрицы D
.................................
  end;
END.

Динамический массив, Как расширить?

Proxin — 2010-03-05T21:46:00-02:00

спасибо большое.
почему не рассматриваю другие варианты? потому что посмотреть охота как это делается на ранних компиляторах. а с tcollection - не знаю, как реализовать. почитать где про них можно?

Tchart в delpi .net, отсутствует обьект

Proxin — 2010-02-22T11:37:00-02:00

Вы не в той теме отписались, товарищ.
Но выход - установить какой-нибудь сторонний компонент для рисовки графиков, например, с torry.net. Или поискать tchart в дистрибутиве, может он просто не установлен.

[Pascal] Множества и записи

ФедосеевПавел — 2010-02-23T10:17:00-02:00

Показывай, что сам наваял, в чём помощь нужна.

Решение системы Ах=в и определитель А

ФедосеевПавел — 2010-02-22T18:31:00-02:00

Определитель ты вычисляешь в процедуре Gauss, а на экран выводишь в основной программе. Но в основную программу вычисленное значение никак не передаёшь.
Кроме того, то что ты вычисляешь не определитель матрицы A, а определитель другой матрицы, полученной из A.
Sorry, это я глупость сморозил.

модуль и запись.

nigma — 2010-02-19T13:35:00-02:00

народ мне нужна ваша помощь!
Задание:Приложение должно содержать пользовательское меню, обязательно содержащие пункты «Ввод данных в файл» и «Чтение данных из файла». Новый тип данных запись должен быть описан в модуле.Известны сведения о летней сессии 2-го курса. Сведения о каждом студенте содержат следующие данные: фамилию, номер группы (от 1 до 4), оценки по трем предметам (численные методы, Основы алгоритмизации и программирования, операционные системы и среды). Вывести фамилии студентов, имеющих задолжность хотя бы по одному предмету.
заранее спасибо большое

Помощь программистам на Pascal, Компиляторы, русификация, литература

Loney — 2010-01-31T23:58:00-02:00

Русский HELP! выложенный здесь не работает в последней версии по крайней мере точно, вместо русских слов там каракули, и по-моему только частичное отображение. Есть что-нибудь поновее или может немного другое? Не может же быть, что у меня шрифтов нет под это =_=

времени мало, времени мало

PROsent — 2010-02-08T19:20:00-02:00

Помогите Сделать лаби, пожалуста, я не могу сделать их, так как времени мало, завтра должен сдать(((. Помогите будь-ласка потому что к сессии не допустят.

ПРОЦЕДУРЫ В АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ПАСКАЛЬ

1)Определить сколько раз слово “did” входит в заданный текст
2) Найти развязки системы линейных алгебраических уравнений:
(2x-y-z=7
(x+y-z=2 с помощью определителей.
(x-y-3z=-2 |a11 a12 a13|
Для определителя 3-го порядка: Δ= |a21 a22 a23|использовать формулу:
|a31 a32 a33|
Δ=a11a22a33+a12a23a31+a13a21a32-a13a22a31-a11a23a32-a12a21a33.

ФУНКЦИИ В АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ПАСКАЛЬ. ПОНЯТИЕ РЕКУРСИИ

1) В файле F записан список студентов вашей группы и их рейтинг за последнюю сессию. Вывести на печать фамилии студентов, рейтинг которых выше 80 баллов.
2) Найти развязки системы линейных алгебраических уравнений:
(2x-y-z=7
(x+y-z=2 с помощью определителей.
(x-y-3z=-2 |a11 a12 a13|
Для определителя 3-го порядка: Δ= |a21 a22 a23|использовать формулу:
|a31 a32 a33|
Δ=a11a22a33+a12a23a31+a13a21a32-a13a22a31-a11a23a32-a12a21a33.

КОМБИНИРОВАННЫЕ ТИПЫ В АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ПАСКАЛЬ

1) Распечатать список студентов, фамилии которых начинаются буквой В, и их дать рождение. Для каждого студента указать дату народжен¬ня, год вступления в высшее учебное заведение, курс, группу, оценки за каждую сессию.

ДИНАМИЧЕСКИЕ ОБЪЕКТЫ АЛГОРИТМИЧЕСКОГО ЯЗЫКА ПАСКАЛЬ.

1) Сформировать динамическую строку и вывести ее на печать. Проверить, заканчивается ли заданная строка знаком переноса.

СЛОЖНОЙ СТРУКТУРЫ. ОДНО- И ДВУНАПРАВЛЕННЫЕ.1. СПИСКИ, СТЕКИ, ОЧЕРЕДИ

1) Сформировать двунаправленный список со звеном-заглавием. Вставить перед каждой буквой “А” букву “D”. Вывести списки на печать.

ДИНАМИЧЕСКИЕ ОБЪЕКТЫ СЛОЖНОЙ СТРУКТУРЫ. ТАБЛИЦЫ, БИНАРНЫЕ ДЕРЕВЬЯ

1) ОТОБРАЗИТЬ С ПОМОЩЬЮ ДЕРЕВА ВЫРАЖЕНИЕ A*(-B)+C*D. УДАЛИТЬ УЗЕЛ “-”, ЧТОБЫ ВЫРАЖЕНИЕ СТАЛО: A*B+C*D. ВЫВЕСТИ ПРОМЕЖУТОЧНЫЙ И
ОКОНЧАТЕЛЬНЫЙ РЕЗУЛЬТАТЫ.

Помогите решить задачку

qqqqqqq — 2010-02-08T15:34:00-02:00

Первая задача

1. Найти область допустимых значений аргумента x.
2. Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в
область допустимых значений. В случае попадания аргумента x в область допустимых
значений вычислить значение выражения f x и вывести его на экран монитора, в
случае непопадания аргумента x в область допустимых значений вывести об этом
информационное сообщение.

f(x)=tg(5x+1/|x+9|)

Вторая задача

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

Вычислить объем V либо площадь боковой поверхности S правильной
треугольной призмы, если заданы периметр основания призмы P и ее высота H.