Стиральная машина-автомат

@Mellisa · Регистрация: 04.10.2009

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

может кто-нибудь мне помочь с лабой?

мне нужно нарисовать в Pascale стиральную машину-автомат

помогите плиз

@Давид · 27.11.2009, 21:50

Mellisa, Сейчас нарисую -- ждите....

@Давид · 27.11.2009, 22:01

Mellisa, Смотрите...так пойдет?

Pascal

program aaa;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
Line (240,60,240,330);
Line (240,330,480,330);
Line (480,330,480,60);
Line (240,60,270,45);
Line (270,45,450,45);
Line (450,45,480,60);
Line (240,90,480,90);
Circle (360,210,60);
Circle (360,210,90);
bar (270,60,330,85);
Fillellipse (360,65,3,3);
Fillellipse (395,65,3,3);
Fillellipse (420,60,1,1);
Fillellipse (435,60,1,1);
Fillellipse (450,60,1,1);
Readln
end.

@Mellisa · 27.11.2009, 22:05 **[ТС]**

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

@unlucky · 27.11.2009, 22:06

Скопируйте текст=> вставьте в любой текстовый файл=> сохраниет его под расширением .pas=> откройте через паскаль

@Давид · 27.11.2009, 22:09

Mellisa, В паскале в папке bin создаете текстовый документ - копируйте туда текст программы, сохраняете - переименовываете файл на любое название иностранными буквами - задаете формат - например stir_mashina.pas
В паскале его открываете.

@Mellisa · 27.11.2009, 22:11 **[ТС]**

спасибо!!!))) а то ведь я мучаюсь набираю

@Puporev · 27.11.2009, 22:14

Давид, Файлы лучше называть не более чем 8 символов, все равно остальное Паскаль не читает.

@Давид · 27.11.2009, 22:16

Puporev, Нуу...тоже верно)))но я для понятности объяснил человеку..

..спасибо Юр.

@Mellisa · 27.11.2009, 22:24 **[ТС]**

спасибо вам мальчики

Добавлено через 3 минуты
кстати, клевая стиральная машинка получилась)

@Давид · 27.11.2009, 22:35

Mellisa, Незачто...рад что вам понравилось...обращайтесь пожалуйста.

@Mellisa 0 / 0 / 0 Регистрация: 04.10.2009 Сообщений: 22
		1
	Стиральная машина-автомат 27.11.2009, 20:06. Показов 3178. Ответов 10 Метки нет (Все метки) может кто-нибудь мне помочь с лабой? мне нужно нарисовать в Pascale стиральную машину-автомат помогите плиз 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	27.11.2009, 21:50	2
	Mellisa, Сейчас нарисую -- ждите.... 1

@Mellisa 0 / 0 / 0 Регистрация: 04.10.2009 Сообщений: 22
	27.11.2009, 22:05 [ТС]	4
	да я думаю пойдет) мне главное чтобы на стиральную машину было похоже) а если препод начнет предираться скажи на большее я не способна)) у только вот возник вопрос... а можно просто эту программку (текст) сопировать и сразу вставить в паскаль? или нужно самой набирать? 0

@unlucky 37 / 37 / 28 Регистрация: 23.11.2009 Сообщений: 103
	27.11.2009, 22:06	5
	Скопируйте текст=> вставьте в любой текстовый файл=> сохраниет его под расширением .pas=> откройте через паскаль 1

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	27.11.2009, 22:09	6
	Mellisa, В паскале в папке bin создаете текстовый документ - копируйте туда текст программы, сохраняете - переименовываете файл на любое название иностранными буквами - задаете формат - например stir_mashina.pas В паскале его открываете. 1

@Mellisa 0 / 0 / 0 Регистрация: 04.10.2009 Сообщений: 22
	27.11.2009, 22:11 [ТС]	7
	спасибо!!!))) а то ведь я мучаюсь набираю 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2009, 22:14	8
	Давид, Файлы лучше называть не более чем 8 символов, все равно остальное Паскаль не читает. 2

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	27.11.2009, 22:16	9
	Puporev, Нуу...тоже верно)))но я для понятности объяснил человеку....спасибо Юр. 1

@Mellisa 0 / 0 / 0 Регистрация: 04.10.2009 Сообщений: 22
	27.11.2009, 22:24 [ТС]	10
	спасибо вам мальчики Добавлено через 3 минуты кстати, клевая стиральная машинка получилась) 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	27.11.2009, 22:35	11
	Mellisa, Незачто...рад что вам понравилось...обращайтесь пожалуйста. 1