Новое на сайте

Пример класса "Комплексные числа"
Учебник
02 Ноя 2012

Пример был взят из учебника Free Pascal и Lazarus (Е.Р. Алексеев, О.В. Чеснокова, Т.В. Кучер), где он описан для среды Lazarus и с графическим интерфейсом.

Здесь приводится для IDE Free Pascal.

Вариант без параметров:

{$mode objfpc}
 
uses Classes;
 
type TComplex = class(TObject)
    private
        x,y: real;
    public
        constructor Create;
        function Modul(): real;
        function Argument(): real;
        //function ComplexToStr(): string;
end;
 
constructor TComplex.Create;
    begin
        x := 0; y := 0;
        inherited Create;
    end;

Как написать объектно-ориентированную программу в среде FreePascal
Учебник
31 Окт 2012

Более правильный вариант. Во FreePascal следует включить режим компиляции objfpc и подключить модуль Classes.

//{$ifdef fpc}
{$mode objfpc}
//{$endif}
//{$ifdef MSWINDOWS}{$apptype console}{$endif}
uses Classes;
type myclass = class(TObject)
private
    a,b: byte;
public
    procedure print;
    constructor create(c,d:byte);
end;
 
constructor myclass.create(c,d:byte);
begin
   //inherited Create;
   a:=c; b:=d
end;
 
procedure myclass.print;
begin  writeln(a); writeln(b) end;
 
var obj: myclass;
 
begin
     obj:=MyClass.Create(8,29);
     obj.b := 200;

Максимальный по модулю элемент массива
Задача
29 Окт 2012

В однородном массиве, состаящем из N вещественных элементов, найти максимальный по модулю элемент массива.

Сколько раз в матрице встречается заданное число
Задача
29 Окт 2012

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

Упорядочить первые и последние элементы массива
Задача
28 Окт 2012

Дан массив из 10 элеменов. Первые 4 упорядочить по возрастанию, последние 4 по убыванию.

Поиск в строке неизвестных подстрок, удовлетворяющих заданным условиям [не решено]
Задача
28 Окт 2012

Условие
Дана текстовая строка, состоящая из заглавных латинских букв. Требуется найти подстроку из трёх букв, которая встречается в данной строке чаще всего. Например, в строке DEFDEFABCABCZABCDEFDEF чаще всего (4 раза) встречается подстрока DEF.

Формат входного файла
Входной файл содержит текстовую строку.

Формат выходного файла
Выходной файл должен содержать единственное число — количество вхождений самой часто встречающейся подстроки из трёх букв.

Ограничения
Длина исходной строки от 3 до 1000000 символов.

Совершенные числа
Задача
27 Окт 2012

Число совершенно, если оно равно сумме всех своих делителей, кроме самого себя. Пример: 6=1+2+3. Найдите все совершенные числа от 1 до 1000 и выведите их на экран. Подсказка: вам необходимо найти все делители от 1 до исследуемого числа. Делителем числа называется число, которое делит данное без остатка (a mod b=0).

Среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах
Задача
27 Окт 2012

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах.

Сумма элементов частей массива
Задача
27 Окт 2012

Какая сумма элементов массива больше – с первого до элемента с номером К или от элемента с номером К+1 до последнего.

Алгоритмы работы с динамическими структурами
Учебник
12 Авг 2012

Добавление элемента в стек

Пусть указатель a содержит адрес вершины стека, b - другой объявленный указатель.

  1. Выделяем память под данные, на которые указывает b.
  2. Записываем в эту память смысловые данные и ссылку на вершину стека, которая хранится в a.
  3. a присваиваем значение b, т.е. a начинает указывать на новую вершину стека.

Извлечение элемента из стека

a - указатель на вершину, b - другой указатель