|
|
Знаете ли Вы, что ... | |
...для каждой темы существует свой раздел. Изучите структуру форума. Если соответствующего раздела нет, то всегда есть раздел "Разное" :) | |
<< Предыдущий совет - Случайный совет - Следующий совет >> |
Pascal, Delphi & Builder Вопросы программирования касающиеся Pascal и Delphi |
Ответить |
|
Опции темы | Опции просмотра |
16.06.2006 11:53 | #1 | ||
Гость
Сообщений: n/a
|
* * * * *1.Что такое трассировочная таблица?* ???
* * * * * * * * * * * * * * * * 2.Задачки * * * * * *Упражнение 1.1 * * * * * Заданы действительные числа a, b, c и d. Найти полусумму наименьшего и наибольшего из них. * * * * *Упражнение 1.2 * * * * * Заданы натуральное число n и действительные числа a и b. Найти сумму членов арифметической прогрессии * * * * *a, a + b, a + 2b,..., a + (n - 1) b.* * * * *Упражнение 1.3 * * * * * Дано действительное число x. Не пользуясь никакими другими арифметическими операциями, кроме сложения, умножения и вычитания, вычислить значение * * * * *5x^4 + 2x^3 - 8x - 1.* * * * *Упражнение 1.4 * * * * * Треугольник задан координатами трех своих вершин. Определить, где находится точка O с указанными координатами -- внутри или вне треугольника. * * * * *Упражнение 1.5 * * * * * Старинная задача "Волк, коза и капуста". * * * * * * *Крестьянину надо перевезти через речку волка, козу и капусту. В лодке может поместиться только один человек, а с ним или волк, или коза, или капуста. Если оставить на берегу волка с козой без человека, то волк съест козу. Если оставить козу с капустой, то коза съест капусту. В присутствии человека коза не может съесть капусту, а волк не может съесть козу. Как должен действовать крестьянин, чтобы перевезти свой груз через речку в целости и сохранности? * * * * Простите за Легкие задачки,но я ток начел и Хочу понять хоть как ето делать А с контрольной сам думаю справлюсь если ето объяснят. |
||
|
Ответить |
16.06.2006 18:34 | #2 | ||
* * * * Упражнение 1.1
Вот код на Паскале: Program Upr_1_1; Function Max(x,y:Integer) : Integer; Begin * if (x > y) then * * Max := x * else * * Max := y; End; Function Min(x,y:Integer) : Integer; Begin * if (x < y) then * * Min := x * else * * Min := y; End; Var a, b,c, d : Integer; * * i_max, i_min : Integer; begin * Writeln('Введите числа!'); * Readln(a,b,c,d); * i_max := Max(a,b); * i_max := Max(a,c); * i_max := Max(a,d); * i_min := Min(a,b); * i_min := Min(a,c); * i_min := Min(a,d); * Writeln ((i_max + i_min)/2); end. |
|||
|
Ответить |
16.06.2006 18:39 | #3 | ||
* * *Упражнение 1.2
Тоже на Паскале: Program Upr_1_2; Var n, a, b : Integer; * * i, Sum : Integer; begin * Write('Введите число n :!'); * Readln(n); * Write('Введите число a :!'); * Readln(a); * Write('Введите число* b :!'); * Readln(b); * Sum := 0; * For i := 0 to n - 1 do * * Sum := Sum + (a + i*b); * Writeln(Sum/n); end. |
|||
|
Ответить |
16.06.2006 18:50 | #4 | ||
* * * * * Упражнение 1.3
Program Upr_1_3; Function Degree(x: Real; Deg : Integer):Real; Var * * Buffer : Real; * * i : integer; Begin * Buffer := x; * if Deg > 1 then * * for i := 2 to Deg do * * * Buffer := Buffer * x * else if deg = 0 then Degree := 1 * else if deg = 1 then Degree := x; * Degree := Buffer; End; Var * * X : Integer; * * Result : Real; begin * Write('Введите число X :'); * Readln(X); * Result := 5*Degree(X,4) + 2*Degree(X,3) - 8*X - 1; * Writeln(Result); end. |
|||
|
Ответить |
|