Трижды протабулировать функцию, используя три различных цикла

@CTYDEHT · Регистрация: 19.11.2009

Студворк — интернет-сервис помощи студентам

Товарищи помогите пожалуйста, я не могу понять как f(x) в программе Паскаль записать из двуз уравнений. Я искал примеры в интернете, но там функции записаны одним уравнением, а здесь двумя и я не могу сообразить как их связать в программе, хотя бы в одном цикле.
вот попытки, но врядли это верное решение. Я уже 3 дня решаю эту задачу

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program cicleForTabul;
var x0,f,f1,f2,x,a:real;
k,N:integer;
begin
cls;
writeLn('Введите a');
readLn(a);
x0:=-2;
N:=trunc((7-x0)/0.4);
for k:=0 to N do
begin
x:=x0+0.4*k;
f1:=x+sqrt(a);
if abs(cos(x))>1/sqrt(2) then
write('f1(',x:8:2,') =',f1:8:2);
f2:=x+1;
if abs(cos(x))<=1/sqrt(2) then
write('f2(',x:8:2,') =',f2:8:2);
f:=f1+f2;
write('f(',x:8:2,') =',f:8:2);
end;
end.

Задача:
Трижды протабулировать функцию, используя три различных цикла (For, While, Repeat)
...........x + корень из (а), если |cos(x)| > 1/корень из (2)
f(x) =....................................... ....................................на интервале x [-2;7], с шагом 0,4
...........x - 1, если |cos(x)| <= 1/корень из (2)

@M128K145 · 19.11.2009, 20:53

используй нормально операторы ветвления, где-то так

Pascal
1
2
3
4
5
6
7
8
9
for k:=0 to N do
begin
x:=x0+0.4*k;
if abs(cos(x))>1/sqrt(2) then
f:=x+sqrt(a);
if abs(cos(x))<=1/sqrt(2) then
f:=x+1;
writeln('f(',x:8:2,') =',f:8:2);
end;

Ps. я паскаль не знаю

21.12.2009, 19:29

f(x)={1-x, если x>=0, x2, если x<0

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

Dablov
	21.12.2009, 19:29
	f(x)={1-x, если x>=0, x2, если x<0