Вывести значения функции. Составить процедуру рисования изображения

@zombine229 · Регистрация: 07.05.2012

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

2 варианта почти ничем неотличаются мне хотябы 1 и 2 номер зделайте плиз
во 2 задании сказано что нужно создать процедуру но мы их еще не проходили сказали зделать в циклах

@КонецСвета · 07.05.2012, 18:28

1 вариант 2 задание

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses graphABC;
 
procedure Uzz (x,y,r,cl: integer);
begin
SetBrushStyle(bsclear);
setpencolor(cl);
circle(x,y,r*2);
circle(x-(r),y,r);
circle(x+(r),y,r);
circle(x,y-(r),r);
circle(x,y+(r),r);
end;
 
begin
setwindowsize(700,400);
clearwindow(clblack);
Uzz (500,200,70,clgreen);
Uzz (100,100,30,clred);
Uzz (300,100,10,clskyblue);
Uzz (250,250,40,clyellow);
Uzz (70,300,20,clfuchsia);
end.

2 вариант 2 задание

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses graphABC;
 
procedure Uzz (x,y,r,cl: integer);
begin
SetBrushStyle(bsclear);
setpencolor(cl);
circle(x,y,r*2);
circle(x-(r*2),y,r);
circle(x+(r*2),y,r);
circle(x,y-(r*2),r);
circle(x,y+(r*2),r);
end;
 
begin
setwindowsize(700,400);
clearwindow(clblack);
Uzz (500,200,50,clgreen);
Uzz (100,100,20,clred);
Uzz (300,100,5,clskyblue);
Uzz (250,250,20,clyellow);
Uzz (70,300,10,clfuchsia);
end.

@zombine229 · 07.05.2012, 18:43 **[ТС]**

Сообщение от КонецСвета

1 вариант 2 задание

спасибо тебе большое за 2 номера но просто как я и писал выше я непроходил еще процедур буду очень благодарен если зделаешь в циклах + могу оплатить в суме 300-500р на любой счет

@КонецСвета · 07.05.2012, 18:47

zombine229, в циклах эти задания? или первые?..
дело в том, что в первых - там цикл на 3 шага, причем один из них - назад, другой вперед...
а во вторых не могу проследить закономерность для цикла...

@zombine229 · 07.05.2012, 18:54 **[ТС]**

ну однокурсник с другими вариантами зделал примерно так только со своими значениями(я про 1 задание) program pro1;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
x,n,c,f:real;
begin
write('x='); readln(x);
write('n='); readln(x);
f:=x*cos(x)+sin(x);
writeln(cos(x)+sin(x),f=6:3);
c:=x+n;
writeln('x+n=',c:5:1);
c:=x-n;
writeln('x-n=',c:5:1);
end.

но нужно чтобы в этом номере все 3 значания выводило сразу

Добавлено через 42 секунды
а и на счет 2 номера я на паскале зашел в указатель он у меня команды uzz вообще нераспознал

@КонецСвета · 07.05.2012, 18:56

zombine229, uzz - это название процедуры программиста, подпрограммы. может быть любым, так что проблема в другом. ты уверен, что надо в PascalABC? или Турбо или NET?

@zombine229 · 07.05.2012, 18:59 **[ТС]**

во вторых командах используя цикл и команды circle random

Добавлено через 47 секунд
я просто больше практиковался с програмами на движение но и там были свои недочеты

Добавлено через 37 секунд
нужно именно в ABC

@КонецСвета · 07.05.2012, 19:11

1 контрольная 1 задание

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var x,y,n,t: real;
begin
write('x='); readln(x);
write('n='); readln(n);
y:=x*cos(x)+sin(x);
writeln('f(',x,')=',y:6:3);
t:=x+n;
y:=t*cos(t)+sin(t);
writeln('f(',t,')=',y:6:3);
t:=x-n;
y:=t*cos(t)+sin(t);
writeln('f(',t,')=',y:6:3);
readln;
end.

циклов нет...
2 контрольная 2 задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var x,y,n,t: real;
begin
write('x='); readln(x);
write('n='); readln(n);
y:=(x+sin(x))/(x-sin(x));
writeln('f(',x,')=',y:6:3);
t:=x+n;
y:=(t+sin(t))/(t-sin(t));
writeln('f(',t,')=',y:6:3);
t:=x-n;
y:=(t+sin(t))/(t-sin(t));
writeln('f(',t,')=',y:6:3);
readln;
end.

1 контрольная 1 задание с циклом

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses graphABC;
var i: byte;
 
procedure Uzz (x,y,r,cl: integer);
begin
SetBrushStyle(bsclear);
setpencolor(cl);
circle(x,y,r*2);
circle(x-(r),y,r);
circle(x+(r),y,r);
circle(x,y-(r),r);
circle(x,y+(r),r);
end;
 
begin
setwindowsize(700,400);
clearwindow(clblack);
for i:=1 to 5 do
Uzz (random(500)+100,random(200)+100,random(30)+10,rgb(random(255),random(255),random(255)));
end.

2 контрольная 2 задание с циклом

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses graphABC;
var i: byte;
 
procedure Uzz (x,y,r,cl: integer);
begin
SetBrushStyle(bsclear);
setpencolor(cl);
circle(x,y,r*2);
circle(x-(r*2),y,r);
circle(x+(r*2),y,r);
circle(x,y-(r*2),r);
circle(x,y+(r*2),r);
end;
 
begin
setwindowsize(700,400);
clearwindow(clblack);
for i:=1 to 5 do
Uzz (random(500)+100,random(200)+100,random(30)+10,rgb(random(255),random(255),random(255)));
end.

PS для запуска в PascalABC.NET надо объявление переменных в процедуре заменить на:

Pascal
1
procedure Uzz (x,y,r: integer; cl: color);

@zombine229 · 07.05.2012, 19:37 **[ТС]**

блин всеже получилось только с процедурой?? просто препод сразу просечет что списал блин вот еслиб научил процедуре тогда ваще кул было а так=((( пичалька

Добавлено через 30 секунд
ну всмысле не ты научил а препод

@КонецСвета · 07.05.2012, 19:37

zombine229, не понимаю? так надо без процедуры???
тут же в задании - процедура... сейчас...

посмотри - вот так?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses graphABC;
var i: byte;
    x,y,r,cl: integer;
 
begin
setwindowsize(700,400);
clearwindow(clblack);
for i:=1 to 5 do
    begin
    x:=random(500)+100;
    y:=random(200)+100;
    r:=random(30)+10;
    cl:=rgb(random(255),random(255),random(255));
    SetBrushStyle(bsclear);
    setpencolor(cl);
    circle(x,y,r*2);
    circle(x-(r),y,r);
    circle(x+(r),y,r);
    circle(x,y-(r),r);
    circle(x,y+(r),r);
    end;
end.

@zombine229 · 07.05.2012, 19:38 **[ТС]**

эх везет вам у вас только 7 часов уменя уже 11(вечера)

@КонецСвета · 07.05.2012, 19:42

Не по теме:

Сообщение от zombine229

эх везет вам у вас только 7 часов уменя уже 11(вечера)

как узнал?

и вот еще - посмотри?... без процедур...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses graphABC;
var i: byte;
    x,y,r,cl: integer;
 
begin
setwindowsize(700,400);
clearwindow(clblack);
for i:=1 to 5 do
    begin
    x:=random(500)+100;
    y:=random(200)+100;
    r:=random(30)+10;
    cl:=rgb(random(255),random(255),random(255));
    SetBrushStyle(bsclear);
    setpencolor(cl);
    circle(x,y,r*2);
    circle(x-(r*2),y,r);
    circle(x+(r*2),y,r);
    circle(x,y-(r*2),r);
    circle(x,y+(r*2),r);
    end;
end.

@zombine229 · 07.05.2012, 19:47 **[ТС]**

я знаю задания не он делал просто сказал что нужно без процедуры так что как то так

Добавлено через 4 минуты
cl:=rgb вот эта строка непонятна мне

@КонецСвета · 07.05.2012, 19:51

rgb-функция выбора цвета по модели RGB (как в корел) в нашем случае - случайного цвета
в справочнике по АВС прописана, если надо отмазка для препода
если это не изучали, можно сделать выбор цвета через массив - грубовато, но ... нормально.
подумай, если "да" - сообщи =)

@Puporev · 09.05.2012, 16:39

Комментарий модератора

zombine229, Хорош флудить в этой теме, есть новые вопросы, создавай новые темы, еще одно слово в этой теме и накажу.

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@zombine229 0 / 0 / 0 Регистрация: 07.05.2012 Сообщений: 14

	Вывести значения функции. Составить процедуру рисования изображения 07.05.2012, 18:15. Показов 1790. Ответов 14 Метки нет (Все метки) 2 варианта почти ничем неотличаются мне хотябы 1 и 2 номер зделайте плиз во 2 задании сказано что нужно создать процедуру но мы их еще не проходили сказали зделать в циклах Миниатюры 0

@zombine229 0 / 0 / 0 Регистрация: 07.05.2012 Сообщений: 14
	07.05.2012, 18:43 [ТС]
	Сообщение от КонецСвета 1 вариант 2 задание спасибо тебе большое за 2 номера но просто как я и писал выше я непроходил еще процедур буду очень благодарен если зделаешь в циклах + могу оплатить в суме 300-500р на любой счет 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	07.05.2012, 18:47
	zombine229, в циклах эти задания? или первые?.. дело в том, что в первых - там цикл на 3 шага, причем один из них - назад, другой вперед... а во вторых не могу проследить закономерность для цикла... 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	07.05.2012, 18:56
	zombine229, uzz - это название процедуры программиста, подпрограммы. может быть любым, так что проблема в другом. ты уверен, что надо в PascalABC? или Турбо или NET? 0

@zombine229 0 / 0 / 0 Регистрация: 07.05.2012 Сообщений: 14
	07.05.2012, 18:59 [ТС]
	во вторых командах используя цикл и команды circle random Добавлено через 47 секунд я просто больше практиковался с програмами на движение но и там были свои недочеты Добавлено через 37 секунд нужно именно в ABC 0

@zombine229 0 / 0 / 0 Регистрация: 07.05.2012 Сообщений: 14
	07.05.2012, 19:37 [ТС]
	блин всеже получилось только с процедурой?? просто препод сразу просечет что списал блин вот еслиб научил процедуре тогда ваще кул было а так=((( пичалька Добавлено через 30 секунд ну всмысле не ты научил а препод 0

@zombine229 0 / 0 / 0 Регистрация: 07.05.2012 Сообщений: 14
	07.05.2012, 19:38 [ТС]
	эх везет вам у вас только 7 часов уменя уже 11(вечера) 0

@zombine229 0 / 0 / 0 Регистрация: 07.05.2012 Сообщений: 14
	07.05.2012, 19:47 [ТС]
	я знаю задания не он делал просто сказал что нужно без процедуры так что как то так Добавлено через 4 минуты cl:=rgb вот эта строка непонятна мне 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	07.05.2012, 19:51
	rgb-функция выбора цвета по модели RGB (как в корел) в нашем случае - случайного цвета в справочнике по АВС прописана, если надо отмазка для препода если это не изучали, можно сделать выбор цвета через массив - грубовато, но ... нормально. подумай, если "да" - сообщи =) 1