Форум программистов, компьютерный форум, киберфорум
Наши страницы

Блок-схема - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Проверьте кто-то программу! http://www.cyberforum.ru/cpp-beginners/thread673708.html
Вот написал программу через указатели, хотел спросить правильно ли я ее написал? Написать программу, которая вводит с клавиатуры пару чисел a и b до тех пор, пока a != 0 или b != 0. Для каждой...
C++ Сортировка по алфавиту На вход подается некоторое количество описаний книг (автор, название, количество страниц). Отсортировать и вывести в алфавитном порядке по названиям. http://www.cyberforum.ru/cpp-beginners/thread673706.html
Уже обсуждалась ранне,но я хочу понять,где у меня ошибка в проге C++
Шифр RSA. Вроде бы все прочла ,что связано с этой темой,ну и как бы написала программу,но она при компилировании выдает ошибки. Я не понимаю ,что это за ошибки,тк глюканутый компилятор-он просто...
C++ Программа ввода с клавиатуры целых чисел
Написать программу, обеспечивавшею ввод с клавиатуры целого положительного числа. При нажатии клавиши соответствующий символ должен появиться на экране только в том случае, если этот символ является...
C++ Функции ,которые выполняли тоже самое ,что strstr, strcpy , strlen http://www.cyberforum.ru/cpp-beginners/thread673698.html
#include <stdio.h> #include <stdlib.h> void *k_strcpy(char* s1, const char* s2) { while(*s1++ = *s2++); return s1; } char *mstrstr(char *s1, char *s2) {
C++ Копирование Массив в Вектор Читаю пример Википедии, там приведен пример, в котором элементы массива копируются в вектор. Для этого используется memcpy, но ниже уточнение, что этот самый memcpy не приветствуется и что лучше... подробнее

Показать сообщение отдельно
zhenik9
0 / 0 / 0
Регистрация: 29.09.2012
Сообщений: 23

Блок-схема - C++

17.10.2012, 22:23. Просмотров 258. Ответов 0
Метки (Все метки)

Доброго времени суток
нужно в редакторе блок-схем отобрать такое подмножество точек, соединение
которых замкнутой ломаной линией образует выпуклый многоугольник,
охватывающий все остальные точки.
Текст в паскале
var i, j, m: integer;
begin
m:=1;
for i:= 2 to n do
if a[i].y < a[m].y
then m := i
else if (a[i].y = a[m].y) and (a[i].x > a[m].x) then m:=i;
b[1] := a[m]; a[m]:= a[1]; a[1]:= b[1];
k:= 1;
min:= 2;

writeln(b[1].x, b[1].y);
repeat
for j := 2 to n do
if (Vect(b[k],a[min],b[k],a[j])< 0) or
((Vect(b[k],a[min],b[k],a[j])=0) and
(dist2(b[k],a[min])< dist2(b[k],a[j])))
then min:=j;
k:=k+1;
b[k]:=a[min];
min:=1;
until (b[k].x = b[1].x)and (b[k].y = b[1].y);
end; {Solve}

begin{main}
assign(input,'input.pas');
reset(input);
readln(input,n);
for i:= 1 to n do
read(input,a[i].x, a[i].y);
close(input);
solve(a, k, b);
for j := 1 to k-1 do
writeln(b[j].x, ' ',b[j].y)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru