3 года назад

Найти значение функции y=x^2+1 на отрезке [5;12].... решить в паскале

1 ответ:

0 0

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
5.To(12).Tabulate(x->x*x+1).Println
end.

<u><em>Результат:</em></u>
(5,26) (6,37) (7,50) (8,65) (9,82) (10,101) (11,122) (12,145)

Читайте также

Напишите пожалуйста программу на C++ для решения задачи. Условие на фото.

Ирина Рублева

#include <iostream>
using namespace std;
int main()
{
int n,S,i;
cin>>n;
S=0;
for(i;i<=n;i++)
{
S=sqrt(2+S);
}
cout<<S;
return 0;
}

0 0

1 год назад

Помогите решить задачу на Паскале. Выпуклый многоугольник на плоскости задан своими вершинами, расположенными в произвольном пор

LinkaHertz [2]

//Прошу прощения за "пузырёк"
//Pascal ABC.NET 3.1 сборка 1219

Const n=5; //количество вершин

Type
ty=record
x:integer;
y:integer;
end;

Var
ar:array[1..n] of ty;
i,j:integer;
begin
for i:=1 to n do
begin
write('Абсцисса точки №',i,':');readln(ar[i].x);
write('Ордината точки №',i,':');readln(ar[i].y);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i].x>ar[j].x then swap(ar[i],ar[j]);
for i:=1 to (n div 2)-1 do
for j:=i+1 to n div 2 do
if ar[i].y<ar[j].y then swap(ar[i],ar[j]);
for i:=n div 2+1 to n-1 do
for j:=i+1 to n do
if ar[i].y>ar[j].y then swap(ar[i],ar[j]);
ar.reverse.Print;
end.

Пример ввода:
Абсцисса точки №1:1
Ордината точки №1:2
Абсцисса точки №2:2
Ордината точки №2:1
Абсцисса точки №3:-3
Ордината точки №3:-3
Абсцисса точки №4:3
Ордината точки №4:3
Абсцисса точки №5:3
Ордината точки №5:1
Пример вывода:
(3,3) (3,1) (2,1) (-3,-3) (1,2)

0 0

1 год назад

Пакет программ управляющих работой компьютера обеспечивающая связь между человеком и компьютером а также запуском прикладных про

Татьяна Третьякова [7]

Операционная система

0 0

3 года назад

В одной из кодировок unicode каждый символ кодируется 16 битами определите размер следующего предложения в данной кордировке: Де

Тайный Агент [568]

Фраза "Делай добро и жди добра" состоит из 23 символов. Размер = 23*16 бит = 23*16/8 байт = 46 байт.

0 0

4 года назад