сервис вопросов и ответовПомоги составить блок-схему. program h7; const n=15; p=3.14; var x: array [0..n] of integer; y: array [0..n] of real
10-11 класс|
|
;
i,h,k:integer;
a,s,max,min,t:real;
f:text;
begin
randomize;
k:=0;
s:=0;
for i:=0 to n do
begin
x[i]:=trunc(15*random);
end;
for i:= 0 to n do
write(x[i]);
for i:=0 to n do
if (x[i]<1) then y[i]:=0.5*(2+sqr(sin(x[i]-p/4)))+exp(x[i]) else
if(x[i]>=1) and (x[i]<=10) then y[i]:=4*exp(0.62*ln(x[i]))-2*sqrt(2*x[i])+1 else
if (x[i]>10) then y[i]:=5*exp(-x[i])+2*sqr(ln(x[i]));
for i:= 0 to n do
write (y[i]:5:1);
for i:= 0 to n do
s:=s+y[i];
a:=s/i;
max:=y[0];
min:=y[0];
for i:= 0 to n do;
if y[i]/0.3>a then
begin
if y[i]>max then begin
max:=y[i];
h:=i;
end
else
if y[i]<min then begin
min:=y[i];
k:=i;
end;
end;
t:=y[h];
y[h]:=y[k];
y[k]:=t;
for i:= 0 to n do
write (y[i]:5:1);
writeln ('----------------------');
assign (f,'f.txt');
rewrite(f);
end.
Artemjeadasha
07 мая 2014 г., 21:06:53 (9 лет назад)
Elinaisakova
07 мая 2014 г., 22:54:49 (9 лет назад)
Например такая блок схема для всего кода
Ответить
Другие вопросы из категории
Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами ( не включая сами эти числа), в порядке их убывания, а
также количество N этих чисел.
В некоторой местности соединение с сетью Интернет возможно только через спутник. При этом максимальная длительность однократного непрерывного сеанса
связи (время "видимости" спутника) не превышает 8 минут. Повторно спутник становится видимым только через 1 час 12 минут. Какой наибольший объем информации можно в этом случае передать через Интернет в течение суток, если скорость передачи информации составляет 100 Мбит в секунду? Считать, что передача информации начинается сразу с того момента, как спктник становится "видимым".
Читайте также
Помогите составить блок схему к задачи Pascal
program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.
Помогите исправить ошибки и написать блок-схему. Задание: Имеется массив А из N произвольных чисел, среди которых есть положительные,
отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.
Листинг программы:
Program Massiv;
Const n=10;
Var A:array [1..4] of integer;
I, c, c2, c3: integer;
Begin
For i=1 to N do begin
Readln (a[i]); If (a[i]=0 then inc(c)
Else if ([ai]<0) then inc(c2)
Else inc (c3);
End;
Writeln (`нулевые:`,c);
Writeln (`отрицательные:`,c2);
Writeln (`положительные:`,c3);
End.
Нужно составить блок-схему алгоритма подготовки к сдаче к экзамену.
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
Помогите составить программу для вычисления значения функции y для заданного значения x
у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы
1)составить блок-схему поиска двузначных чисел,таких,что если к сумме цифр этого числа прибавить квадрат этой суммы,то получится это число.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.
Вы находитесь на странице вопроса "Помоги составить блок-схему. program h7; const n=15; p=3.14; var x: array [0..n] of integer; y: array [0..n] of real", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.