IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Графика в паскале!, Помогите с кодом!!!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Помогите кто-то с заданием!!!!!Нужно сортировать заданый массив фигур(треугольник,квадрат,круг) методом перестановки!Помогите пожалуста!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Критерий сортировки, например, треугольников, приведи? А что больше - треугольник или квадрат?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Что-то на подобии этого ?

uses crt;

const
n = 6;

type

TFigure = (Triangle, Rectangle, Circle); (* 0, 1, 2*)

var

f: array [1..n] of TFigure = (

Triangle, Circle, Circle, Rectangle, Circle, Triangle

);

var

i, j: Integer;
temp: TFigure;

begin

clrscr;

for i := 1 to n - 1 do
for j := i + 1 to n do
if f[i] >= f[j] then begin
temp := f[i];
f[i] := f[j];
f[j] := temp;
end;

for i := 1 to n do
writeln(ord(f[i]));

readln;

end.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


и, желательно, уточнение, как задаются фигуры.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Может, и что-то такое:
uses crt;

const
n = 6;

type
PTFigure = ^TFigure;
TFigure = object
end;

PTTriangle = ^TTriangle;
TTriangle = object(TFigure)
end;
PTRectangle = ^TRectangle;
TRectangle = object(TFigure)
end;
PTCircle = ^TCircle;
TCircle = object(TFigure)
end;


function Less(const a, b: PTFigure): boolean;
begin
Less := true;
// Сравнение по какому-то признаку
end;

var
f: array[1 .. n] of PTFigure;

var
i, j: Integer;
T: PTFigure;

begin
clrscr;
for i := 1 to n do begin
j := random(3) + 1;
case j of
1: f[i] := new(PTTriangle);
2: f[i] := new(PTRectangle);
3: f[i] := new(PTCircle);
end;
end;

for i := 1 to n - 1 do
for j := i + 1 to n do
if not Less(f[i], f[j]) then begin

T := f[i]; f[i] := f[j]; f[j] := T;

end;

// Вывод данных
// Деструкторы
readln;

end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Я не знаю, я на С работаю, а дали в универе задание по паскалю, мне не охота в нем шарится! Напиши пожалуста любой какой-то код шоб хоть работал а дальше я уже сам расшарюсь когда будет время!фигуры поидее одного размера должны быть
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Ну в принципе 2 предположения есть, смотри посты #3 и #5 открываю их ...

Опятьже слишком мало информации о задании.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.11.2017 3:22
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"