Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.04.2012, 22:39   #1 (permalink)
2NRJ
Новичок
 
Регистрация: 19.04.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите в построении блок-схем, по коду паскаля

Помогите пожалуйста, 2 задачки срочно, завтра уже нужно сдать, крайний срок.(( 2 блок схемки нарисовать, кому не влом, парни выручайте!
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.
2NRJ вне форума   Ответить с цитированием

Старый 19.04.2012, 22:39
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Прочтите аналогичные темы - это лучше, чем просто ждать ответа

Блок-схема по коду Pascal
Как пишутся arcsin, arccos на языке паскаля?
Помогите составить программу для Паскаля ABC, пожалуйста
Нужна помощь гуру по WI-FI в построении сети

Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:00.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.