Блок схема1

@Sagadat · Регистрация: 25.11.2010

Студворк — интернет-сервис помощи студентам

Помагите пожалуйста нарисовать блок схему этого задача

uses GraphABC;

var i,j: integer;

begin
for i:=0 to WindowWidth-3 do
for j:=0 to WindowHeight-1 do
if (i-3350)*(i-5350)*(i-600)*(j-200)*(j-300)<120*120
then SetPixel(i,j,RGB(round(i-60)*(i-60)+(j-20)*(j-20),10,10))
else SetPixel(i,j,clblue);
begin
for j:=2 to WindowHeight-1 do
for i:=2 to WindowWidth-1 do
SetPixel(i,j,RGB(20,20,i*i*j*j));
SetPixel(i,j,clyellow);
ClearWindow;
ClearWindow;
end;
for j:=1 to 200000 do
SetPixel(Random(WindowWidth),Random(Wind owHeight),clred);

SetBrushColor(clWhite);
Rectangle(60,100,WindowWidth-80,WindowHeight-100);
SetFontSize(22);
SetFontName('Arial');
SetFontColor(clRed);
TextOut(80,WindowHeight div 2-14,' GraphABC!');
end.

@lemegeton · 01.12.2010, 20:54

Не по теме:

Это !с++.

silent_1991 · 01.12.2010, 21:28

Мало того, это не C и не C#. Я бы сказал, это кое что, что удовлетворяет условию

if (strlen(str) == 6 && str[3] == 'c')
return 1;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Sagadat 0 / 0 / 0 Регистрация: 25.11.2010 Сообщений: 12

	Блок схема1 01.12.2010, 20:47. Показов 535. Ответов 2 Метки нет (Все метки) Помагите пожалуйста нарисовать блок схему этого задача uses GraphABC; var i,j: integer; begin for i:=0 to WindowWidth-3 do for j:=0 to WindowHeight-1 do if (i-3350)(i-5350)(i-600)(j-200)(j-300)<120120 then SetPixel(i,j,RGB(round(i-60)(i-60)+(j-20)(j-20),10,10)) else SetPixel(i,j,clblue); begin for j:=2 to WindowHeight-1 do for i:=2 to WindowWidth-1 do SetPixel(i,j,RGB(20,20,iijj)); SetPixel(i,j,clyellow); ClearWindow; ClearWindow; end; for j:=1 to 200000 do SetPixel(Random(WindowWidth),Random(Wind owHeight),clred); SetBrushColor(clWhite); Rectangle(60,100,WindowWidth-80,WindowHeight-100); SetFontSize(22); SetFontName('Arial'); SetFontColor(clRed); TextOut(80,WindowHeight div 2-14,' GraphABC!'); end. 0

@lemegeton
	01.12.2010, 20:54
	Не по теме: Это !с++. 0

silent_1991 5058 / 3118 / 271 Регистрация: 11.11.2009 Сообщений: 7,044
	01.12.2010, 21:28
	Мало того, это не C и не C#. Я бы сказал, это кое что, что удовлетворяет условию if (strlen(str) == 6 && str[3] == 'c') return 1; 0