| ← Февраль 2017 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
|
13
|
15
|
16
|
17
|
18
|
19
|
|
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
|
27
|
28
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 190546: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Составьте блок-схему и программу, вычисляющую значение данной функции при заданном значении x: ... Консультация # 190547: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Написать программу на паскале:... Консультация # 190548: Здравствуйте! У меня возникли сложности с таким вопросом: Составьте блок-схему и программу вычисления значения функции у при произвольных значениях х, а, b:... Консультация # 190549: Здравствуйте! У меня возникли сложности с таким вопросом: Составьте блок-схему и программу вычисления значения функции y = f(x) при произвольном значении x.... Консультация # 190551: Здравствуйте! У меня возникли сложности с таким вопросом: Написать программу на паскале:... Консультация # 190552: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Написать программу на паскале: Составить блок-схему и программу вычисления суммы синусов натуральных чисел от N до M.... Консультация # 190553: Здравствуйте! Прошу помощи в следующем вопросе: Написать программу на паскале:... Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 09.02.2017, 23:05 Консультирует Delph (1-й класс): Здравствуйте, nikita9581! Код (Pascal) :: выделить код Program p190545;
var R1, R2, R3, R: Extended;
Begin
WriteLn('Введите по очереди три сопротивления:');
Write('R1 = '); ReadLn(R1);
Write('R2 = '); ReadLn(R2);
Write('R3 = '); ReadLn(R3);
R := R1 + 1/(1/R2 + 1/R3);
Write('Сопротивление всей схемы R = ', R);
ReadLn;
End.
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 09.02.2017, 23:06 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
x:real;
begin
write('x:=');
readln(x);
writeln('result:=',1/(sqrt(sqr(x)+3)));
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 09.02.2017, 23:08 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код function max(a,b:real):real;
begin
if a>b then max:=a
else max:=b
end;
function min(a,b:real):real;
begin
if a<b then min:=a
else min:=b
end;
var
x,y,z:real;
begin
write('X:=');readln(x);
write('Y:=');readln(y);
write('Z:=');readln(z);
writeln('result:',max(min(x,y),z)/3);
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 09.02.2017, 23:09 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
a,b,x:real;
begin
write('A:=');readln(a);
write('B:=');readln(b);
write('X:=');readln(x);
if x>2 then writeln('y:=',exp(x)+x*x)
else writeln('y:=',(a+x*x)/(b+ln(abs(x)+1)));
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 09.02.2017, 23:10 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
x:real;
begin
write('X:=');
readln(x);
if x>0 then writeln('y:=',(exp(x)+sqrt(x+4)):10:5)
else if x<=-2 then writeln('y:=',sqrt(2-x))
else writeln('y:=',ln(x+2));
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 09.02.2017, 23:12 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
b,t,h,k:real;
begin
repeat
write('t(0<>t<2):=');
readln(b);
until b<2;
repeat
write('h:=');
readln(h);
until h>0;
while b<2 do
begin
if b<>0 then
begin
k:=arctan((2*t+3)/(t+15))+ln(abs(b));
if k<0 then writeln('f(',b:10:5,'):=',k:10:5);
end;
b:=b+h;
end;
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 09.02.2017, 23:13 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
n,m:integer;
x:real;
begin
write('N:=');readln(n);
repeat
write('M(>',n,'):=');
readln(m);
until m>n;
x:=0;
while n<=m do
begin
x:=x + sin(n);
inc(n);
end;
writeln('result:=',x);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 09.02.2017, 23:14 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, nikita9581! Код (Pascal) :: выделить код var
a,h,t:array[1..10]of real;
i,y,k,m:integer;
begin
writeln('A:');
for i:=1 to 10 do
begin
a[i]:=0.7*sin(i)/cos(i)/i;
writeln('a[',i:2,']:=',a[i]:10:7);
end;
m:=1;
for i:=2 to 10 do
if a[m]>a[i] then m:=i;
writeln('min a[',m:2,']:=',a[m]:10:7);
writeln('H:');
i:=1;
while i<m do
begin
h[i]:=a[i];
writeln('h[',i:2,']:=',h[i]:10:7);
inc(i);
end;
writeln('T:');
i:=1;
while(i+m)<=10 do
begin
t[i]:=a[m+i];
writeln('t[',i:2,']:=',t[i]:10:7);
inc(i);
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
