|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
13.05.2012, 19:51 | #1 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать блок схему
{$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, 18:26 | #5 (permalink) |
Новичок
Регистрация: 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) |
Новичок
Регистрация: 13.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
*30 знаков ;
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|