Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 32
1

Вычислить и вывести на экран в виде таблицы значения функции

31.03.2013, 17:27. Показов 1211. Ответов 2
Метки нет (Все метки)

Для большей компактности записал задание в док файл
0
Вложения
Тип файла: docx Вычислить.docx (13.8 Кб, 43 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 17:27
Ответы с готовыми решениями:

Вычислить и вывести на экран в виде таблицы значения функции, заданной в виде ряда Тейлора
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, ...

Вычислить и вывести на экран в виде таблицы значения функции F
Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач. до Xкон. с...

Вычислить и вывести на экран в виде таблицы значения функции
Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач. до Xкон. с...

Вычислить и вывести на экран в виде таблицы значения функции
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на...

2
261 / 236 / 161
Регистрация: 10.12.2011
Сообщений: 513
31.03.2013, 18:04 2
Лучший ответ Сообщение было отмечено afsdsome как решение

Решение

Написал с функцией.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Uses crt;
var
 Xnach, Xkonec, dx: real;
 a, b, c: real;
 
function F ( a, b, c, Xnach: real):real;
var
 func: real;
begin
 if (Xnach < 0) and (b <> 0) then func:=exp((2+b)*ln(a*Xnach))
  else
   if (Xnach > 0)  and (b = 0) then func:=(Xnach  - a)/(Xnach - c)
    else func:=Xnach/c;
    F:=func;
end;
 
 
begin
clrscr;
writeln('Enter Xnach:');readln(Xnach);
writeln('Enter Xkonec:');readln(Xkonec);
writeln('Enter dx(prirost):');readln(dx);
writeln('Enter a:');readln(a);
writeln('Enter b:');readln(b);
writeln('Enter c:');readln(c);
 
while ( Xnach <= Xkonec ) do begin
      writeln('F(',Xnach:0:2,'): ',F(a,b,c,Xnach):0:2);
      Xnach:=Xnach + dx;
end;
readln;
end.
0
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 32
31.03.2013, 18:06  [ТС] 3
большое спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2013, 18:06

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычислить и вывести на экран в виде таблицы значения функции
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на...

Вычислить и вывести на экран в виде таблицы значения функции
Задание к 3 картинке) Вычислить и вывести на экран в виде таблицы значения функции, заданной с...

Вычислить и вывести на экран в виде таблицы значения функции F
Помогите пожалуйста решить задачку: Вычислить и вывести на экран в виде таблицы значения функции...

Вычислить и вывести на экран в виде таблицы значения функции
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда, на интервале...

Вычислить и вывести на экран в виде таблицы значения функции
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на...

Вычислить и вывести на экран в виде таблицы значения функции
Добрый вечер, форумчане! Большая просьба помочь в решении задачи. Вычислить и вывести на экран в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.