Блок-схема к Паскалю

маринаник · 07.02.2013, 23:00

помогите составить блок схему к паскалю!!!
Var
P:Extended;
i,x:Byte;
Begin
P:=1;
Write('x= ');
Readln(x);
For i:=2 to x do P:=P*i;
Writeln(P:0:0);
Readln
End.

Léon · 08.02.2013, 00:46

Цитата:

Сообщение от маринаник

помогите составить блок схему к паскалю!!!

Есть программы, которые строят по коду блок-схемы. Например, diamFC.

07.02.2013, 23:00	#1 (permalink)
маринаник Новичок Регистрация: 05.02.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Блок-схема к Паскалю помогите составить блок схему к паскалю!!! Var P:Extended; i,x:Byte; Begin P:=1; Write('x= '); Readln(x); For i:=2 to x do P:=P*i; Writeln(P:0:0); Readln End.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

07.02.2013, 23:00
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно в топиках которые создавались ранее уже есть полезные ответы Блок-схема 1 Блок-схема 2

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070