Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Исследовать область определения и построить график функции Исследовать область определения и построить график функции: y = x / (3x^2+2x+1). Так бы я сам сделал, да вот с областью определения не знаю что делать. https://www.cyberforum.ru/ pascalabc/ thread825580.html	Записать все отрицательные числа из файла F в файл N, а все положительные в G. Pascal ABC Всем привет! Условие задачи: Дан файл F с числами от -20 до 20. Записать все отрицательные числа из файла F в файл N, а все положительные в G. Затем вывести результаты чисел на экран (отдельно положительных и отдельно отрицательных). Заранее спасибо! Вот что у меня получилось. Но кроме чисел записанных в файле не выводит ни чего. Program F86; Var f,g,n:text; ...
Pascal ABC Записи.Составить программу обработки сведений о студентах своей группы https://www.cyberforum.ru/ pascalabc/ thread825525.html :gsorry: 1 пункт- uses crt; const nmax=25; type TStud=record fio:string; mtm:byte; fiz:byte; inf:byte;	Pascal ABC Составить программу обработки сведений о студентах своей группы Составить программу обработки сведений о студентах своей группы. Сведения представляются в виде таблицы, содержащей фамилии студентов и определенные характеристики: Выполните задание из пункта 1, считывая данные из файла и записывая результат в файл. https://www.cyberforum.ru/ pascalabc/ thread825522.html
Вывести все положительные элементы матрицы и найти их сумму Pascal ABC В задании данные считываются из файла (ов) и результат выводится в файл. Дана матрица А(6,5). Вывести все положительные элементы этой матрицы. Найти их сумму.	Pascal ABC Сортировка матриц Извините, но не найдется ли у кого примеров сортирования двухмерных массивов быстрым и-или пирамидальным методами? Надеюсь на вашу отзывчивость https://www.cyberforum.ru/ pascalabc/ thread825468.html
Pascal ABC Строка: Подсчитайте наибольшее количество идущих подряд букв кириллицы https://www.cyberforum.ru/ pascalabc/ thread825437.html Подсчитайте наибольшее количество идущих подряд букв кириллицы: uses crt; const kr=; var s:string; i,j,n,k,mx,imx:byte; begin clrscr; writeln('Введите строку, содержащую последовательности букв кирилицы:'); read(s); n:=length(s);	Pascal ABC Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы. помогите сделать пожалуйста(((((((( Дан двумерный массив размером n × m, заполненный случайными числами. Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы. Добавлено через 7 минут ray of integer; i,j:integer; s:string; begin for i:=1 to 5 do begin for j:=1 to 5 do begin a:=random(20); if a<10 then write(' ',a,' ') else
Pascal ABC Сформировать одномерный массив, каждый элемент которого равен количеству элементов соот-ветствующей строки, больших данного числа. помогите пожалуйста.очень очень надо.завтра сдавать.Дан двумерный массив размерностью 4 × 5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен количеству элементов соот-ветствующей строки, больших данного числа. https://www.cyberforum.ru/ pascalabc/ thread825412.html	Pascal ABC Дан двухмерный массив .Вставить в него две строки с заданными значениями элементов первую после строки с номером s,вторую перед ней. 4.Дан двухмерный массив .Вставить в него две строки с заданными значениями элементов первую после строки с номером s,вторую перед ней. https://www.cyberforum.ru/ pascalabc/ thread825402.html
Pascal ABC Дан двухмерный массив .Удалить из него первую из строк ,количество нулей в которой равно заданному числу n. 3.Дан двухмерный массив .Удалить из него первую из строк ,количество нулей в которой равно заданному числу n.	Pascal ABC Найти число пар одинаковых "соседних"элементов.В качестве "соседних" рассматриваются элементы,расположенные в одной строке или в одном столбце. 2.Дан двухмерный массив .Найти число пар одинаковых "соседних"элементов.В качестве "соседних" рассматриваются элементы,расположенные в одной строке или в одном столбце. https://www.cyberforum.ru/ pascalabc/ thread825396.html

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

02.04.2013, 08:29

Построить изображение и выполнить заливку отдельных фрагментов изображения - Pascal ABC - Ответ 4346669

02.04.2013, 08:29. Показов 2476. Ответов 5

Метки (Все метки)

Ответ

Pascal

uses graph;
var xc,yc,r,i:integer;
    p:array[1..10] of pointtype;
    u:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=yc-50;
u:=0;
for i:=1 to 8 do
 begin
  p[i].x:=xc+round(r*cos(u));
  p[i].y:=yc-round(r*sin(u));
  u:=u+pi/4;
 end;
p[9]:=p[1];
p[10]:=p[2];
setfillstyle(1,15);
bar(0,0,2*xc,2*yc);
setcolor(0);
for i:=1 to 5 do
 begin
  line(p[i].x,p[i].y,p[i+3].x,p[i+3].y);
  line(p[i].x,p[i].y,p[i+5].x,p[i+5].y);
 end;
circle(xc,yc,r);
readln
end.

Вернуться к обсуждению:
Построить изображение и выполнить заливку отдельных фрагментов изображения Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.04.2013, 08:29

Готовые ответы и решения:

Извлечение отдельных фрагментов из изображения
Всем доброго времени суток. Сейчас активно штудирую дотку, и на сколько я помню где-то видел про...

Нужна программа для вырезки отдельных фрагментов из видео
подскажите простую и на руском языке программу для вырезки отдельных фрагментов из видео.Ну очень...

Сохранение в отдельных файлах всех фрагментов текста из текстового файла, ограниченных определёнными символами
Доброго дня! Просьба помочь написать батник. Есть текстовый файл который необходимо разбить на...

Как выполнить полупрозрачную заливку?
Нужно залить пикчербокс полупрозрачной заливкой. Добавлено через 2 минуты можете не отвечать ,...

	02.04.2013, 08:29

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.04.2013, 08:29

Помогаю со студенческими работами здесь

Как выполнить заливку нарисованной фигуры?
Создана программа - графический редактор. Допустим нарисован овал, как выполнить его заливку? С# ...

Как очистить image1 и выполнить заливку одной кнопкой?
Как очистить image1 и выполнить заливку одной кнопкой?

Распознание фрагментов изображения
Имеем два изображения одной и той же комнаты пейзажа не важно суть что на картинке множество...

Умная склейка фрагментов изображения
Доброго времени суток Суть вопроса - есть несколько изображений, и каждое чуть-чуть отличается...

Наверх