Форум программистов, компьютерный форум CyberForum.ru

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Блок схема1 http://www.cyberforum.ru/cpp-beginners/thread200885.html
Помагите нарисовать блок схема на графическую режиму uses crt; var ex,ey,kx,ky,gx,gy,rx,ry,i,a,b: integer; begin ex:=10; ey:=2; a:=0;
C++ Все элементы матрицы Помогите, нужно вывести все элементы матрицы, расположенные выше главной диагонали, которые больше любого элемента, расположенного ниже главной диагонали. Нужен код на C++ http://www.cyberforum.ru/cpp-beginners/thread200883.html
C++ Побитовые операции.Определить суму елементов.
Дан массив чисел . Определить сумму положительных элементов, имеющих 1 в 7, 5 и 3 битах, и сумму отрицательных элементов. Проверить наличие в от-рицательной сумме 0 в 6, 4 и 2 битах. У кого какие идеи, буду весьма благодарен.
Переписать из массива А в массив В C++
Переписать из массива А в массив В элементы с положительными значениями в начало массива, а с отрицатильными в конец массива,с сохранением порядка следования помогите пожалуйста сделать программу
C++ Вопрос http://www.cyberforum.ru/cpp-beginners/thread200847.html
стоит ли учить язык програмирования С++? говорят язык отличный. И чем он хуже Делфи,Паскаля,Асемблер,ЛУА(ЛОА непомню правильности) , ПХП, и прочие языки.. чем они лутше? что лутше всего выбрать и стоит ли учить скриптовые языки????
C++ Cоставить функцию на Borland(c++) SubWord(s,n,l) Функция SubWord(s,n,l) Назначение: выделение из строки s l слов, начиная со слова с номером n подробнее

Показать сообщение отдельно
Sagadat
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 12
30.11.2010, 19:49     Блок схема2
Помагите нарисовать блок схема на графическую режиму

uses GraphABC;

var i,j: integer;

begin
SetWindowSize(1000,600);
for j:=0 to WindowHeight-3 do
for i:=0 to WindowWidth-3 do
SetPixel(i,j,RGB(i+j,i-j,i+2*j));

for i:=0 to WindowWidth-3 do
for j:=0 to WindowHeight-3 do
SetPixel(i,j,RGB(2*i+j,i-2*j,i+2*j));

for j:=0 to WindowHeight-1 do
for i:=0 to WindowWidth-1 do
SetPixel(i,j,RGB(10,10,i*i*j*j));

for i:=0 to WindowWidth-1 do
for j:=0 to WindowHeight-1 do
if (i-150)*(i-200)+(j-200)*(j-70)<80*80
then SetPixel(i,j,RGB(round(i-30)*(i-30)+(j-10)*(j-10),5,5))
else SetPixel(i,j,clblue);

for j:=0 to WindowHeight-1 do
for i:=0 to WindowWidth-1 do
SetPixel(i,j,clblack);

ClearWindow;
for j:=0 to 5000 do
begin
SetBrushColor(clred);
FillRect(Random(WindowWidth),Random(WindowHeight),Random(WindowWidth),Random(WindowHeight));
end;

ClearWindow;
for j:=1 to 100000 do
SetPixel(Random(WindowWidth),Random(WindowHeight),clred);

SetBrushColor(clWhite);
Rectangle(40,80,WindowWidth-60,WindowHeight-80);
SetFontSize(22);
SetFontName('Arial');
SetFontColor(clRed);
TextOut(80,WindowHeight div 2-14,' GraphABC!');
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 04:02. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru