10.05.2012, 18:02 | #1 (permalink) |
Новичок
Регистрация: 02.05.2012
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать блок-схему для курсовой
Program prod3numbers; uses crt; Var massiv: array[1..100] of real; prod,max1,max2,max3: real; i,j,k,mas_len: integer; Begin clrscr; Write ('Vvedit dovjinu masyvu <= 100 :'); readln (mas_len); for i:=1 to mas_len do begin Write ('Vvedit element masyvu ',i,': '); readln (massiv[i]); end; for i:=1 to mas_len do for j:=i+1 to mas_len do for k:=j+1 to mas_len do if (massiv[i]*massiv[j]*massiv[k] > prod) then begin max1 := massiv[i]; max2 := massiv[j]; max3 := massiv[k]; prod := massiv[i]*massiv[j]*massiv[k]; end; write('Maksymalny dobutok= ', prod:5:2,' ( chyslo1= ',max1:5:2,' chyslo2= ',max2:5:2,' chyslo3= ',max3:5:2,' )'); Readkey; End. |
10.05.2012, 18:02 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблема обязательно решится, а пока можете набраться информации побольше Помогите сделать блок-схему Помогите написать блок-схему Помогите написать блок-схему |
10.05.2012, 19:34 | #2 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|