|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
19.04.2012, 22:39 | #1 (permalink) |
Новичок
Регистрация: 19.04.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите в построении блок-схем, по коду паскаля
1) Program ChisloB; var b,i,k:integer; summY:real; y:array[1..100] of real; Begin write ('Vvedite B, B>0: '); readln (b); i:=0; summY:=0; writeln('Vvedite Yi'); i:=i+1; Write('Y',i,':'); readln(y[i]); summY:=summY+abs(y[i]); Writeln(',summY:0:2,'>',b,')'); Writeln('Srednee arifmeticheskoe iz modulei Yi=',summY/i:0:3); summY:=0; for k:=1 to i do summY:=summY+y[k]; Writeln('Srednee arifmeticheskoe iz Yi=',summY/i:0:3); readln; end. 2) Program massivT; var m,k,i,summ:integer; T:array[1..100] of integer; Begin write ('Vvedite m,100>m>0: '); readln (m); summ:=0; for i:=1 to m do begin Write('T(',i,'):'); readln(T[i]); if i mod 2=0 then summ:=summ+T[i]; end; k:=0; for i:=1 to m do if T[i]<summ then k:=k+1; Writeln('V massive T(m) ',k,' elementov menshih ',summ); readln; end. |
19.04.2012, 22:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочтите аналогичные темы - это лучше, чем просто ждать ответа Блок-схема по коду Pascal Как пишутся arcsin, arccos на языке паскаля? Помогите составить программу для Паскаля ABC, пожалуйста Нужна помощь гуру по WI-FI в построении сети |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|