Технический форум

Технический форум (http://www.tehnari.ru/)
-   Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)
-   -   Помогите с решением задач (http://www.tehnari.ru/f43/t30146/)

Dima$ 12.11.2009 20:28

Помогите с решением задач
 
1.Написать программу, вычисляющую значение функции для аргумента (x), вводимого с клавиатуры.
2.Напишите программу вычисления функции Z в зависимости от интервала, в которой попадает вводимый с клавиатуры аргумент. Значения величин a и b задаются при выполнении программы.

http://www.tehnari.ru/imagehosting/2...c372b789a1.jpg

3.Дано 10 вещественных чисел. Опре¬делить, образуют ли они возрастаю-щую последовательность.

ЕСЛИ НЕ СЛОЖНО ТО НАРИСУЙТЕ БЛОК СХЕМЫ К 2 И 3 задачи

AlexZir 12.11.2009 20:34

В первом задании функция какая дана?
В третьем задании никаких ограничений на код не накладывается?

Dima$ 12.11.2009 21:14

1-Я ФУНКЦИЯ
http://www.tehnari.ru/imagehosting/2...c421dd42ba.jpg
В 3 ФУНКЦИИ ОГРАНИЧЕНИЯ НЕТ

DDS 12.11.2009 23:41

Вот 2 задача
var
a,b,z,x: real;
begin
read(x);
if x<2.3 then z:=(a+b)/(exp(x)+cos(x));
if (x<=2.3) and (x<5) then z:=(a+b)/(x+1);
if x>=5 then z:=exp(x)+sin(x);
write(z:0:2);
end.

DDS 12.11.2009 23:52

Вложений: 1
Вот блок-схема к 2 задаче

DDS 13.11.2009 00:03

1 задача
var x:integer;y:real;
begin
read(x);
if x>0 then begin
y:=ln(x)/ln(10);
write(y:0:0); end else write('невозможно найти логарифм');
end.


Часовой пояс GMT +4, время: 10:11.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.