12.12.2012, 19:59 | #1 (permalink) |
Member
Регистрация: 16.11.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ещё одна блок-схема
x,y:real; Begin Repeat Write('x= '); Readln(x); Until (x>=0); x:= (trunc(x) mod 4) + frac(x); if x<=2 then y:=Sqrt(1-Sqr(1-x)) else y:=-Sqrt(1-Sqr(3-x)); Writeln('y = ',y:5:3); Readln; End. |
12.12.2012, 19:59 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Темы, которые аналогичны вашей так же встречались на нашем форуме Блок-схема Блок-схема 2 Блок-схема |
12.12.2012, 20:10 | #2 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Вот на тебе блок схему:
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|