| ← Январь 2017 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
5
|
6
|
7
|
8
|
|
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
|
16
|
17
|
18
|
19
|
21
|
22
|
|
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Код :: выделить код y=2,1cos (x^2-4)/(x+3,4)+x/√(|x| ) Консультация # 190491: Здравствуйте! Прошу помощи в следующем вопросе: Составить блок-схему и программу в паскале. ... Консультация # 190492: Здравствуйте! Прошу помощи в следующем вопросе: Составьте программу нахождения среднего арифметического значения одномер-ного массива А(N) (элементы массива вводятся с клавиатуры) . Сформируйте новый мас-сив В(М), состоящий из элементов массива А(N), больших среднего арифметического. В паскале.... Здравствуйте! У меня возникли сложности с таким вопросом: Код :: выделить код y=2,1cos (x^2-4)/(x+3,4)+x/√(|x| )
Дата отправки: 26.01.2017, 18:49 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
b,h,x,y:real;
begin
x:=-3;
repeat
write('enter b:=');readln(b);{вводим верхнюю границу}
until b>x;{проверяем чтобы было больше}
write('enter h:=');readln(h);{вводим шаг}
while x<=b do{цикл по переменной Х}
begin
y:=2.1*cos(sqr(x)-4)/(x+3.4)+x/sqrt(abs(x));{считаем значение}
if y>0 then writeln('x:=',x,'y:=':5,y);{если больше выводим}
x:=x+h;{следующий шаг}
end;
end.Блок-схема сделана с помощью он-лайн построителя.  Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 26.01.2017, 18:59 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
i:integer;
k:real;
begin
k:=0;{тут будет сумма}
for i:=1 to 10 do{цикл суммы}
k:=k+1/sqr(i);{первая часть суммы}
for i:=5 to 15 do{цикл суммы}
k:=k+sqrt(5+sin(i));{вторая часть суммы}
writeln('result:',k:10:5);{выводим результат}
end.Блок схема(см. прикрепленный файл) сделана автоматическим он-лайн построителем.  Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 26.01.2017, 19:00 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код const
n=5;
m=n-1;
var
a:array[1..n]of integer;
b:array[1..m]of integer;
c,d:integer;
e:real;
begin
e:=0;{сумма введенных чисел}
for c:=1 to n do{цикл ввода}
begin
write('enter A[',c,']:=');{выводим для красоты}
readln(a[c]);{вводим}
e:=e+a[c];{суммируем}
end;
e:=e/n;{получаем среднее}
writeln('midle:',e:10:5);{выводим результат}
d:=0;{счетчик элементов нового амассива}
for c:=1 to n do{цикл поиска}
if a[c]>e then{проверяем условие}
begin
inc(d);{увеличиваем счетчик}
b[d]:=a[c];{запоминаем в массиве}
end;
writeln('count:',d);{сообщение о количестве найденных элементов}
c:=0;{пока ноль}
while c<d do{пока меньше счетчика}
begin
inc(c);{увеличиваем счетчик}
write(b[c]:6);{выводим массив В}
end;
end.Блок-схему можно построить любым автоматическим построителем, благо их в интернете полно. А можно использовать он-лайн построитель. Удачи!
Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код const
n=5;
m=n-1;
var
a:array[1..n]of integer;
b:array[1..m]of integer;
c,d:integer;
e:real;
begin
e:=0;{сумма введенных чисел}
for c:=1 to n do{цикл ввода}
begin
write('enter A[',c,']:=');{выводим для красоты}
readln(a[c]);{вводим}
e:=e+a[c];{суммируем}
end;
e:=e/n;{получаем среднее}
writeln('midle:',e:10:5);{выводим результат}
d:=0;{счетчик элементов нового амассива}
for c:=1 to n do{цикл поиска}
if a[c]>e then{проверяем условие}
begin
inc(d);{увеличиваем счетчик}
b[d]:=a[c];{запоминаем в массиве}
end;
writeln('count:',d);{сообщение о количестве найденных элементов}
c:=0;{пока ноль}
while c<d do{пока меньше счетчика}
begin
inc(c);{увеличиваем счетчик}
write(b[c]:6);{выводим массив В}
end;
end.Блок-схему можно построить любым автоматическим построителем, благо их в интернете полно. А можно использовать он-лайн построитель. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
