Developing.ru

Здравствуйте. Помогите, пожалуйста, решить задачи
1.Дано действительное число а. Вычислить f(x), где f - периодическая функция, период которой равен 2. На отрезке[-1;1] функция f(x) совпадает с функцией, график которой изображён на рисунке. На рисунке изображён график, состоящий из двух функций: 1) x+1, 2) 1-sqr(x)*x.
Непонятно как сделать, если заданы 2 функции, а не одна!!!!! Заранее спасибо!

2.
inverces:=0;
for i:=1 to 39 do
if a[i]>a[i+1] then inc(inverces);

Помогите пожалуйста еще несколько задач решить.))))))

1.Решить задачу, организовав итерационный цикл. Вычислить длину кривой на участке xЭ[0,4], если она задана уравнением:y=x^3/2(x в степени три вторых) . Вычисления произвести с точностью eps=10^-3, 10^-2, считать точным значением 9,073415289388. Определить, как изменяется число итераций при изменении точности.

2.Написать программу на обработку одномерного массива. Определить число инверсий в массиве из 40 целых чисел (инверсия - это пара элементов, в которой большее число расположено слева от меньшего).

3.Решить поставленную задачу, используя средства управления вводом/выводом Турбо Паскаля. Дан массив литер L(8,6,4). Вывести его элементы на экран строками по 12 литер в виде параллелограмма.

Заранее благодарен. :)

[quote="somewhere"][quote]Может, так?
1) for
2) while () do begin end;
3) repeat until ();[/quote]А какой из них наиболее рациональный? )))))) тут надо дисассемблировать, авось из них будет какой-то, на пару десятков тактов быстрее ))))))[/quote] Ну, это ж учеьная задача. Так что, [i]обосновывать выбор[/i] (c), возможно, также надо исходя именно из теории (красоты получаеммого исходного текста), а не быстродействия :)
Например. Если перед выполнением цикла ясно, сколько именно раз его нужно выплонить, то выбираем [b]for[/b].
Если алгоритм таков, что по крайней мере один раз тело цикла надо выполнить, а после этого смотреть (по какому-либо условию), продолжать цикл дальше или прерывать, то берем [b]repeat until ()[/b] (Пример: делаем что-то, затем запрашиваем пользователя, хочет ли он повторить операцию)
Ну а если алгоритм таков, что, возможно, цикл будет не выполнен вообще ни разу, то берем [b]while () do begin end;[/b]. (Классический пример будет чтение из файла:
[b]while (not EOF ()) do begin end;[/b])

[quote="&quot"]Может, так?
1) for
2) while () begin end;
3) repeat until ();[/quote]
А какой из них наиболее рациональный? )))))) тут надо дисассемблировать, авось из них будет какой-то, на пару десятков тактов быстрее ))))))

[quote="somewhere"]Я никак не могу понять о каких трех видах здесь говорится. [/quote]Может, так?
1) for
2) while () begin end;
3) repeat until ();

If K < 0 then K := 0;

[quote="&quot"]If K <= 0 then summ := 0;[/quote]
Следует читать:
[code]
If K < 0 then K := 0;
[/code]

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

uses crt;

var
f1, f2, fn, Summ : Longint;
k, x	  	 : Integer;

begin
Clrscr;
Write('Input K : ');
Readln(k);
Writeln;
If K <= 0 then summ := 0;
If K < 3 then summ := k else
	begin
	summ := 2;
	f1 := 1;
	f2 := 1;
	For x := 1 to k-2 do
		begin
	        fn := f1 + f2;
	        f1 := f2;
	        f2 := fn;
	        summ := summ + fn;
	        Write(fn:8);
	        end;
        end;
Writeln;
Writeln;
Writeln('Summ = ',Summ);
end.

[quote="&quot"]2.Рассмотреть решение предложенной задачи с использованием всех трех видов циклов. Отладить программу с наиболее рациональным вариантом цикла. Обосновать выбор.
Найти сумму первых k чисел последовательности Фибоначи. Последовательность определяется законом: F0=F1=1; Fn=Fn-1+Fn-2 для n>= 2.(задача на циклы).
Заранее благодарен.[/quote]
Я никак не могу понять о каких трех видах здесь говорится. Лично мне приходит в голову только один:
[code]
uses crt;

var
f1, f2, fn, Summ : Longint;
k, x : Integer;

begin
Clrscr;
Write('Input K : ');
Readln(k);
Writeln;
If K <= 0 then summ := 0;
If K < 3 then summ := k else
begin
summ := 2;
f1 := 1;
f2 := 1;
For x := 1 to k-2 do
begin
fn := f1 + f2;
f1 := f2;
f2 := fn;
summ := summ + fn;
Write(fn:8);
end;
end;
Writeln;
Writeln;
Writeln('Summ = ',Summ);
end.
[/code]

Ну да, я про это и говорю