Помогите написать блок схему

icewind · 13.05.2012, 19:51

{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P+,Q-,R-,S+,T-,V+,X+<Y+}
{$M 16384,0,655360}
program Confuse;
var Max,Min,x:Extended;
k,n,i:Integer;
begin
assign(Input,'Confuse.dat');
Reset(Input);
Readln(n,k);
Max:=-2E9;
Min:=2E9;
for i:=1 to n do
begin
read(x);
if x>Max then Max:=x;
if x<Min then Min:=x;
end;
Assign(Output,'Confuse.sol');
Rewrite(Output);
Writeln(Max-Min:0:0);
Close(Input);
Close(Output);
end.

Léon · 14.05.2012, 00:14

Цитата:

Сообщение от icewind

Помогите написать блок схему

Ловите! Вот:

Gruvi · 14.05.2012, 14:35

11Angelav ты через какую прогу рисуешь блок схемы ?

Léon · 14.05.2012, 17:33

Через ворд, мне говорят через Paint, но мне и так удобно, привыкла.

QIWI · 14.05.2012, 18:26

есть прога, называется diamFC, через неё можно бесплатно получать блок схемы программ до 30 знаков , если программа содержит больше знаков ; , то нужно её купить.

QIWI · 14.05.2012, 18:27

*30 знаков ;

13.05.2012, 19:51	#1 (permalink)
icewind Member Регистрация: 01.05.2012 Сообщений: 17 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите написать блок схему {$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P+,Q-,R-,S+,T-,V+,X+<Y+} {$M 16384,0,655360} program Confuse; var Max,Min,x:Extended; k,n,i:Integer; begin assign(Input,'Confuse.dat'); Reset(Input); Readln(n,k); Max:=-2E9; Min:=2E9; for i:=1 to n do begin read(x); if x>Max then Max:=x; if x<Min then Min:=x; end; Assign(Output,'Confuse.sol'); Rewrite(Output); Writeln(Max-Min:0:0); Close(Input); Close(Output); end.

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

13.05.2012, 19:51
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Имеет смысл прочитать данное ниже Помогите сделать блок-схему Помогите написать блок-схему для курсовой Помогите написать блок-схему Помогите написать блок-схему

14.05.2012, 14:35	#3 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	11Angelav ты через какую прогу рисуешь блок схемы ?

14.05.2012, 17:33	#4 (permalink)
Léon С# - learn or die Регистрация: 17.12.2011 Сообщений: 2,438 Записей в дневнике: 8 Сказал(а) спасибо: 21 Поблагодарили 49 раз(а) в 11 сообщениях Репутация: 19701	Через ворд, мне говорят через Paint, но мне и так удобно, привыкла.

14.05.2012, 18:26	#5 (permalink)
QIWI Новичок Регистрация: 13.05.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	есть прога, называется diamFC, через неё можно бесплатно получать блок схемы программ до 30 знаков , если программа содержит больше знаков ; , то нужно её купить.

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

14.05.2012, 18:27	#6 (permalink)
QIWI Новичок Регистрация: 13.05.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	*30 знаков ;