Toggle navigation
Все ответы
Имя пользователя или адрес электронной почты
Пароль
Запомнить
Вход
Регистрация
|
Я забыл свой пароль
Вопросы
Горячее!
Без ответов
Категории
Задать вопрос
Помогите сделать,нужно в паскале
0
голосов
23
просмотров
Помогите сделать,нужно в паскале
помогите
сделать
нужно
паскале
10 - 11 классы
информатика
Информатика
Алекс102_zn
(
513
баллов)
17 Май, 18
|
23
просмотров
ответить
комментировать
Ваш комментарий к вопросу:
Отображаемое имя (по желанию):
Напишите мне, если после меня будет добавлен комментарий:
Напишите мне, если после меня добавят комментарий
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Прокомментировать
Отмена
Ваш ответ
Отображаемое имя (по желанию):
Отправить мне письмо на это адрес если мой ответ выбран или прокомментирован:
Отправить мне письмо если мой ответ выбран или прокомментирован
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Ответить
Отмена
Дан
1
ответ
0
голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1552 от 20.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (xn,xk,dx,a):=(-3.0,3.0,0.6,2.62);
var fun:real->real:=x->Power(1/(7+x),1/3)/(14.5+Log(a*a+3));
var n:=Trunc((xk-xn)/dx)+1; // количество точек
var (s,p):=(0.0,1.0);
for var i:=1 to n do begin
var x:=xn+(i-1)*dx;
var z:=fun(x);
if i mod 3=0 then Writeln(x:4:1,z:20:9);
if z
end;
var F:=p+s;
Writeln('F=',F)
end.
Результат
-1.8 0.034380259
0.0 0.031137058
1.8 0.028850236
F=3.08194173508216E-17
Эникей_zn
(
150k
баллов)
17 Май, 18
задать связанный вопрос
комментировать
Ваш комментарий к ответу:
Отображаемое имя (по желанию):
Напишите мне, если после меня будет добавлен комментарий:
Напишите мне, если после меня добавят комментарий
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста
войдите
или
зарегистрируйтесь
.
Прокомментировать
Отмена
Похожие задачи
Написать программу: Даны длины сторон треугольника a,b,c. Является ли он прямоугольным?
Прочитай текст и подчеркни виды компьютерных сетей. Локальные компьютерные сети...
Придумать задачу для Pascal ABC, которая содержит не менее 3 условий (разветвляющиеся...
Паскаль. Написать программу при помощи процедуры, которая по известному радиусу...
Помогите! Доступ к файлу http.txt, находящемуся на сервере www.net осуществляется по...