из паскаля в блок схему - Фриланс

b-unit · 27.02.2010, 21:09

Доброго времени суток, нужна помощь - сегодня на паре написал в паскале программу, теперь по ней еще надо составить блок схему, напишите пожалуйста её, вот сама программа:
Program zadanie;
uses crt;
var Mk, n, k, d, l, qm, m:real;
begin
slrscr;
writeln ('введите значения Mk, k, d, l');
readln (Mk, k, d, l);
write ('введите способ сборки 1- запресовка, 2- тепловая обработка');
readln (n);
if (n=1) then m:=0,03;
if (n=2) then m:=0,55;
writeln ('m=', m:2:4);
qm:=2*Mk*k/(m*pi*d*l);
writeln ('qm=', qm:3:3);
readln;
end.

p51x · 27.02.2010, 21:51

Блок-схему чертят (рисуют в крайнем случае)

freest · 27.02.2010, 23:11

308 895 241 пиши

sheka · 27.02.2010, 23:30

Напишу, начерчю, в крайнем случае нарисую! 255507394

Gorychev · 28.02.2010, 02:37

458723367 сделаю быстро

QuadroX · 28.02.2010, 11:18

323787261. Сделаю быстро и качественно. Недорого.

SSVVEETTAA · 06.03.2010, 23:32

572928845 Сделаю.

Serge_Bliznykov · 07.03.2010, 01:25

b-unit,
поищите (можно здесь, на форуме) программку fceditor
она умеет рисовать блок-схему по готовой программе.

Loky · 09.03.2010, 17:25

100р и через 10 минут она у тебя 2552343

Petrovi4 · 09.03.2010, 22:06

ICQ - 324-783-266
Сделаю быстро, качественно, недорого.
Предоплаты не требую!!!

27.02.2010, 21:09	#1
b-unit Новичок Джуниор Регистрация: 27.02.2010 Сообщений: 0	из паскаля в блок схему Доброго времени суток, нужна помощь - сегодня на паре написал в паскале программу, теперь по ней еще надо составить блок схему, напишите пожалуйста её, вот сама программа: Program zadanie; uses crt; var Mk, n, k, d, l, qm, m:real; begin slrscr; writeln ('введите значения Mk, k, d, l'); readln (Mk, k, d, l); write ('введите способ сборки 1- запресовка, 2- тепловая обработка'); readln (n); if (n=1) then m:=0,03; if (n=2) then m:=0,55; writeln ('m=', m:2:4); qm:=2Mkk/(mpid*l); writeln ('qm=', qm:3:3); readln; end.

27.02.2010, 23:11	#3
freest Пользователь Регистрация: 26.09.2009 Сообщений: 10	308 895 241 пиши ICQ: 308 895 241 программы под заказ

27.02.2010, 23:30	#4
sheka Босс Форумчанин Регистрация: 03.06.2009 Сообщений: 125	Напишу, начерчю, в крайнем случае нарисую! 255507394 Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь.

28.02.2010, 11:18	#6
QuadroX 323787261 Пользователь Регистрация: 19.12.2008 Сообщений: 49	323787261. Сделаю быстро и качественно. Недорого. ICQ: 323787261 Email: pschegolevatykh@gmail.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Построить блок схему	realt	Помощь студентам	3	25.05.2010 17:34
составить блок-схему	JOHN1992	Помощь студентам	3	27.12.2009 14:41
Помогите составить блок схему	Света2125	Помощь студентам	7	29.10.2009 17:07
проверить блок-схему	felmor	Паскаль, Turbo Pascal, PascalABC.NET	2	04.01.2009 15:43
помогите составить блок схему	zaq2000	Паскаль, Turbo Pascal, PascalABC.NET	5	04.12.2008 12:41

27.02.2010, 21:51	#2
p51x Старожил Регистрация: 15.02.2010 Сообщений: 15,821	Блок-схему чертят (рисуют в крайнем случае)

28.02.2010, 02:37	#5
Gorychev Участник клуба Регистрация: 08.03.2008 Сообщений: 1,537	458723367 сделаю быстро

06.03.2010, 23:32	#7
SSVVEETTAA Регистрация: 08.11.2009 Сообщений: 3	572928845 Сделаю.

07.03.2010, 01:25	#8
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	b-unit, поищите (можно здесь, на форуме) программку fceditor она умеет рисовать блок-схему по готовой программе.

09.03.2010, 17:25	#9
Loky Пользователь Регистрация: 02.10.2008 Сообщений: 14	100р и через 10 минут она у тебя 2552343

09.03.2010, 22:06	#10
Petrovi4 Новичок Джуниор Регистрация: 16.06.2007 Сообщений: 0	ICQ - 324-783-266 Сделаю быстро, качественно, недорого. Предоплаты не требую!!!