| ← Октябрь 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
||
|
16
|
17
|
18
|
19
|
|||
|
23
|
24
|
25
|
26
|
27
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 196704: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Написать программу, которая вычисляет выражение y=x+(x3 -5), используя функция вычисления х3. pascal... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 16.10.2019, 23:08 Консультирует puporev (Профессионал): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код var a:array[1..10,1..10] of integer;
n,m,i,j,min:integer;
begin
repeat
writeln('Введите размеры массива от 2 до 10'); //можете поменять интервал
readln(n,m);
until(n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива целые числа от -10 до 10');//то же
for i:=1 to n do
for j:=1 to m do
begin
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
until(a[i,j]>=-10)and(a[i,j]<=10);
if i+j=2 then min:=a[i,j]
else if a[i,j]<min then min:=a[i,j];
end;
writeln('Введенный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
write('Минимальный элемент=',min);
end.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 17.10.2019, 14:04 Консультирует zdwork (6-й класс): Здравствуйте, rail! Код (Pascal) :: выделить код { Написать программу, которая вычисляет выражение y=x+(x^3 -5),
используя функция вычисления х^3.}
function VStep(a: real; b: integer): real; // Функция возведения числа a в степень b
begin
VStep := Exp(b * Ln(a));
end;
var
x, y: real;
begin
Write('X=');
Readln(x);
y := x + (VStep(x, 3) - 5);
Writeln('Y=', y)
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
