Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр https://www.cyberforum.ru/ pascalabc/ thread601030.html Pascal ABC ИНОГДА выскакивает ошибка! В чем причина?
Добрый вечер, уважаемые, помогите, пожалуйста, разобраться с причиной ИНОГДА выскакивающей ошибки (Ошибка ввода/вывода 102: для файловой переменной не выполнена процедура Assign (Sort.pas, строка 61)). Вот код: program z; var i,n:integer; a:array of integer; b:array of integer; procedure sort_max(a1:array of integer; var b1:array of integer); var i,j,k,max:integer; begin ...
Pascal ABC Преобразовать массив по правилу Дано: массивы W(N,M), X(N). Преобразовать массив W следующим образом: положительные элементы итой строки массива W умножить на Xi, i =1,2,..N. https://www.cyberforum.ru/ pascalabc/ thread600972.html Pascal ABC Одномерный массив. Найти среднее арифметическое элементов, равных своим индексам https://www.cyberforum.ru/ pascalabc/ thread600971.html
1)дан одномерный массив целых чисел.найти и вывести на экран среднее арифметическое элементов этого массива равных своим индексам
Pascal ABC В столовой предлагается N комплексных обедов, состоящих из Q блюд
Помогите решить, или скиньте какую нить подобную прогу. В столовой предлагается N комплексных обедов,состоящих из Q блюд. Известны стоимость и калорийность каждого блюда. Сколько стоят самый дешевый и самый дорогой обеды? Сколько калорий включает в себя самое калорийное блюдо? Добавлено через 2 часа 1 минуту Очень срочно надо и кстате задача через записи, с процедурами и меню.
Pascal ABC Даны два числа. Написать программу, которая меньшее из них возводит в квадрат, а большее оставляет без изменения Даны два числа. Написать программу, которая меньшее из них возводит в квадрат, а большее оставляет без изменения. Если числа равны, то они не должны быть изменены. https://www.cyberforum.ru/ pascalabc/ thread600946.html
Pascal ABC Дан вещественный вектор X (x1, x2, …, xN), где N – целое положительное число https://www.cyberforum.ru/ pascalabc/ thread600895.html
Дан вещественный вектор X (x1, x2, …, xN), где N – целое положительное число. Переменной r присвоить значение, равное сумме компонент вектора, принадлежащих отрезку , переменной k – значение, равное числу таких компонент. Печатать r, k и вектор X. вот. с этим можете помочь?))
Pascal ABC Нужна небольшая программа по спискам
ребят не шарю помогите
Pascal ABC Создать файл целых чисел. Определить минимальное и среднее арифметическое чисел, лежащих за минимальным значением https://www.cyberforum.ru/ pascalabc/ thread600761.html
Создать файл целых чисел. Определить минимальное значение в файле. Затем определить среднее арифметическое чисел, лежащих за минимальным значением и минимальное значение в файле заменить на это среднее арифметическое.
Pascal ABC Файлы. Проверить программу в файле на соответствие открывающих и закрывающих скобок https://www.cyberforum.ru/ pascalabc/ thread600739.html
Помогите пожалуйста.. Дан текстовый файл, содержащий программу на языке Pascal. Проверить эту программу на соответствие открывающих и закрывающих скобок. Считать, что в программе каждый оператор занимает не более 1 строчки. Заранее спасибо!)))
Работа со строками. Проверка правописания "жи" и "ши" Pascal ABC
Честно в паскале не понимаю эту тему . если можно строчку написать что это за действие , Ввести предложение если в нём будет ошибка а именно 'жы' или 'шы' должен выдать не правильно если всё по правилам ничего не выводит
Pascal ABC Положительные элементы исходного массива оставить без изменения, нулевые элементы увеличить на единицу Дан массив X(N,M). Сформировать одномерный массив следующим образом: положительные элементы исходного массива оставить без изменения, нулевые элементы увеличить на единицу, а отрицательные значения преобразовать в положительные. https://www.cyberforum.ru/ pascalabc/ thread600422.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.06.2012, 01:54 0

Нарисовать домик, из трубы которого идет дым - Pascal ABC - Ответ 3143846

09.06.2012, 01:54. Показов 8979. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
uses graphABC, crt;
type mas=array [1..1000] of integer;
var i: integer;
    a,b: mas;
 
procedure fon (a,b: mas);
var i,x,y: integer;
begin
setbrushcolor(clnavy);
setpencolor(clnavy);
rectangle(0,0,800,200);
setbrushcolor(clblue);
setpencolor(clblue);
rectangle(0,200,800,400);
setbrushcolor(clgreen);
rectangle(0,400,800,600);
setpencolor(cllime);
for i:=1 to 1000 do
    line(a[i],b[i],a[i]+(random(11)-5),b[i]-(random(11)+10));
setpencolor(clblack);
setbrushcolor(clGray);
rectangle(50,480,800,460);
setpencolor(clblack);
setbrushcolor(clyellow);
circle(700,100,40);
end;
 
procedure dom;
begin
setbrushcolor(clbrown);
rectangle(200,200,230,280);
rectangle(50,300,250,500);
line(50,300,151,200);
line(250,300,149,200);
floodfill(150,220,clmaroon);
floodfill(210,275,clmaroon);
setpencolor(clmaroon);
line(200,280,200,250);
line(200,279,230,279);
setbrushcolor(clskyblue);
rectangle(100,400,150,450);
rectangle(150,400,200,450);
rectangle(100,350,150,400);
rectangle(150,350,200,400);
end;
 
procedure Dym;
var j: byte;
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
for j:=1 to 4 do
    circle(random(30)+200,random(30)+170,random(10)+5);
for j:=1 to 4 do
    circle(random(30)+220,random(30)+150,random(10)+10);
setpencolor(clskyblue);
setbrushcolor(clskyblue);
for j:=1 to 4 do
    circle(random(50)+250,random(50)+100,random(20)+15);
setpencolor(clblue);
setbrushcolor(clblue);
for j:=1 to 4 do
    circle(random(70)+300,random(70)+50,random(30)+20);
end;
 
begin
for i:=1 to 1000 do
    begin
    a[i]:=random(800);
    b[i]:=random(201)+400;
    end;
setwindowsize(800,600);
lockdrawing;
hidecursor;
repeat
for i:=1 to 50 do
    begin
    clearwindow;
    fon(a,b);
    dom;
    Dym;
    sleep(500);
    redraw;
    end;
until keypressed;
end.


Вернуться к обсуждению:
Нарисовать домик, из трубы которого идет дым Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2012, 01:54
Готовые ответы и решения:

Нарисовать домик из трубы которого идет дым
Помогите нарисовать домик из трубы которого идет дым в паскале абц

Графика: домик, из трубы идет дым
написать программу в котором изображается домик, с трубы которого идет дым, помогите пож-ста

Анимация: Паровоз движется по рельсам, из трубы идет дым
Кто может помогите с 2мя задачами) только начал разбирать графику.. но не все получаеться. Одно из...

Нарисовать домик, а так же дым и звезды
Добрый день! Рисую дом с трубой, дымом, полумесяцем и звёздами. Не получается нарисовать дым и...

1
09.06.2012, 01:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2012, 01:54
Помогаю со студенческими работами здесь

Нарисовать домик, из трубы которого идет дым
Нарисовать домик из трубы которого идет дым. Помогите!

Разработать приложение, в котором изображается домик, из трубы которого идет дым
Разработать приложение, в котором изображается домик, с трубы которого идет дым, а по небу...

Нужно нарисовать домик и чтоб с трубы шел дым!!!
Нужно нарисовать домик и чтоб с трубы шел дым!!! Оч нужнооо!!!!!!!!!

Нарисовать паровоз, который движется по рельсам, из трубы идет дым
Нужно на завтра программу: Паровоз движется по рельсам, из трубы идет дым. Помогите пожалуйста,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru