Составьте процедуру, выводящую представленную фигуру

@Corleon4ik · Регистрация: 26.02.2009

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

Я вообще не силён в паскале и ничего в нём не понимаю хоть уже месяца 2 за ним сижу((( можете помоч сделать 3 задания пож. я эт вообще не понял как... заранее большое большое спасиб
Вот задание :
1.
Составьте программу, которая: запрашивает значение переменной х и шага n; выводит значение функции http://pic.ipicture.ru/uploads... mMXWSu.jpg в точках x, x+n, x–n.
Протокол работы программы:
x= 0.5
n= 1
f(0.5)= 4.500
f(1.5)= -3.833
f(-0.5)= -3.167

2
Составьте процедуру, выводящую представленную фигуру по заданным:
• координатам центра фигуры;
• размеру минимальной единицы фигуры;
• цвету линии.
Выведите на экран несколько таких фигур разного размера и цвета.
Форму фигуры задайте по образцу: http://pic.ipicture.ru/uploads... TjPzFz.jpg

http://pic.ipicture.ru/uploads... 77WEYZ.jpg

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

@schdub · 26.02.2009, 19:07

Первая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var  x, n : REAL;
 
function F(a : REAL) : REAL;
begin
  F:=(1/x) + ((3*x - sqr(x))/(1-x));
end;
 
begin
  Write('x= '); ReadLn(x);
  Write('n= '); ReadLn(n);
  
  WriteLn('f(', x:1:1,')=',f(x):1:3); 
  WriteLn('f(', x:1:1,')=',f(x+n):1:3); 
  WriteLn('f(', x:1:1,')=',f(x-n):1:3);    
  
  ReadLn;
end.

@Corleon4ik · 26.02.2009, 19:17 **[ТС]**

второе задание не обязательно решать я уже вроде немного разобрался

@schdub · 26.02.2009, 19:49

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

второе задание не обязательно решать я уже вроде немного разобрался

Извини, но у меня тоже уже есть наработки, может сгодятся

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure Chelovechek(x0:integer; y0:integer; zoom :integer; color:WORD);
begin
  {устанавливаем цвет}
  SetColor(Color);
  {голова}
  Circle(x0, Round(y0-(1.5*zoom)), zoom);
  {руки}
  MoveTo(x0, Round(y0-(0.5*zoom))); LineTo(x0-zoom, Round(y0+(0.5*zoom)));
  MoveTo(x0, Round(y0-(0.5*zoom))); LineTo(x0+zoom, Round(y0+(0.5*zoom)));
  {туловище}
  MoveTo(x0, Round(y0-(0.5*zoom))); LineTo(x0, Round(y0+(0.5*zoom)));
  {ноги}
  MoveTo(x0, Round(y0+(0.5*zoom))); LineTo(x0+zoom, Round(y0+(0.5*zoom)+(2*zoom)));
  MoveTo(x0, Round(y0+(0.5*zoom))); LineTo(x0-zoom, Round(y0+(0.5*zoom)+(2*zoom)));
end;

всего лишь процедура, которая рисует человечка, а вот в твоем задании не понятно, как происходит взаимодействие с пользователем, т.е. как он вводит координаты середины, цвет фигуры и т.д. Данную процедуру использовать так:

Code
1
Chelovechek(координата_центра_X, координата_центра_Y, размер, цвет);

@Corleon4ik · 26.02.2009, 19:57 **[ТС]**

Спасиб большое) можешь в аську пож написать 378619336 пару вопросиков

@schdub · 26.02.2009, 20:01

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

Спасиб большое) можешь в аську пож написать 378619336 пару вопросиков

Нет, у меня сейчас нет доступа к асе

@Corleon4ik · 26.02.2009, 20:07 **[ТС]**

А можно с тобой какнибудь связаться? через агент или вконтакте? хоть гденить?

@schdub · 26.02.2009, 20:36

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

А можно с тобой какнибудь связаться? через агент или вконтакте? хоть гденить?

К сожалению нет... только этот сайт

Ну еще мыло... _._xit_._@mail.ru

@Corleon4ik · 26.02.2009, 20:50 **[ТС]**

Слушай зайди сюда в чат тут без регистрации и никто никогда не сидит
http://www.megatona.net/chat/chat/flashchat.php
у меня пару вопросов по паскалю

@schdub · 26.02.2009, 20:53

Извини, а почему ты не хочешь здесь писать? К чему такая секретность?

@Corleon4ik · 26.02.2009, 20:58 **[ТС]**

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

@schdub · 26.02.2009, 21:18

Я могу Вам расписать все до малейшей подробности, но будет лучше, если Вы укажете, проблемные моменты... И мне уже скоро в казарму... если честно, было бы лучше через эл.почту. И как скоро Вам нужно?

@Corleon4ik · 26.02.2009, 22:23 **[ТС]**

Мне нужно как можно скорее( у меня в понедельник экзамен по паскалю( хотя я в нём не очень силён ( мне всего осталось дорешать 1 билет? там 4 задачи ... я на емайл тебе пошлю или создам тему тут ... посмотри как можно побыстрее пожалуйста

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

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

	Составьте процедуру, выводящую представленную фигуру 26.02.2009, 19:05. Показов 2761. Ответов 12 Метки нет (Все метки) Я вообще не силён в паскале и ничего в нём не понимаю хоть уже месяца 2 за ним сижу((( можете помоч сделать 3 задания пож. я эт вообще не понял как... заранее большое большое спасиб Вот задание : 1. Составьте программу, которая: запрашивает значение переменной х и шага n; выводит значение функции http://pic.ipicture.ru/uploads... mMXWSu.jpg в точках x, x+n, x–n. Протокол работы программы: x= 0.5 n= 1 f(0.5)= 4.500 f(1.5)= -3.833 f(-0.5)= -3.167 2 Составьте процедуру, выводящую представленную фигуру по заданным: • координатам центра фигуры; • размеру минимальной единицы фигуры; • цвету линии. Выведите на экран несколько таких фигур разного размера и цвета. Форму фигуры задайте по образцу: http://pic.ipicture.ru/uploads... TjPzFz.jpg http://pic.ipicture.ru/uploads... 77WEYZ.jpg Добавлено через 30 минут 2 секунды первое задание не нада решать я его уже решил ... помогите пожалуйста с остальными 0

@Corleon4ik 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 12
	26.02.2009, 19:17 [ТС]
	второе задание не обязательно решать я уже вроде немного разобрался 0

@Corleon4ik 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 12
	26.02.2009, 19:57 [ТС]
	Спасиб большое) можешь в аську пож написать 378619336 пару вопросиков 0

@Corleon4ik 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 12
	26.02.2009, 20:07 [ТС]
	А можно с тобой какнибудь связаться? через агент или вконтакте? хоть гденить? 0

@Corleon4ik 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 12
	26.02.2009, 20:50 [ТС]
	Слушай зайди сюда в чат тут без регистрации и никто никогда не сидит http://www.megatona.net/chat/chat/flashchat.php у меня пару вопросов по паскалю 0

@schdub 3073 / 1411 / 425 Регистрация: 19.01.2009 Сообщений: 3,894
	26.02.2009, 20:53
	Извини, а почему ты не хочешь здесь писать? К чему такая секретность? 0

@Corleon4ik 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 12
	26.02.2009, 20:58 [ТС]
	Да тупые вопросы( я с первым заданием плохо разобрался( можешь поподробнее обьяснить как ты сделал ... если можешь то лучше в чате. 0

@schdub 3073 / 1411 / 425 Регистрация: 19.01.2009 Сообщений: 3,894
	26.02.2009, 21:18
	Я могу Вам расписать все до малейшей подробности, но будет лучше, если Вы укажете, проблемные моменты... И мне уже скоро в казарму... если честно, было бы лучше через эл.почту. И как скоро Вам нужно? 0

@Corleon4ik 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 12
	26.02.2009, 22:23 [ТС]
	Мне нужно как можно скорее( у меня в понедельник экзамен по паскалю( хотя я в нём не очень силён ( мне всего осталось дорешать 1 билет? там 4 задачи ... я на емайл тебе пошлю или создам тему тут ... посмотри как можно побыстрее пожалуйста 0