|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.11.2009, 20:28 | #1 (permalink) |
Новичок
Регистрация: 12.11.2009
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с решением задач
2.Напишите программу вычисления функции Z в зависимости от интервала, в которой попадает вводимый с клавиатуры аргумент. Значения величин a и b задаются при выполнении программы. http://www.tehnari.ru/imagehosting/2...c372b789a1.jpg 3.Дано 10 вещественных чисел. Опре¬делить, образуют ли они возрастаю-щую последовательность. ЕСЛИ НЕ СЛОЖНО ТО НАРИСУЙТЕ БЛОК СХЕМЫ К 2 И 3 задачи |
12.11.2009, 20:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме ранее создавались топики которые так или иначе похожи на ваш Задачка по Паскалю для истинных профессионалов в этом деле. Помогите с решением! Помогите, пожалуйста, с решением задачи Помогите решить несколько задач Задание в паскале. Помогите с решением |
12.11.2009, 20:34 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
В первом задании функция какая дана?
В третьем задании никаких ограничений на код не накладывается?
__________________
Убить всех человеков! |
12.11.2009, 23:41 | #4 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Вот 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. |
12.11.2009, 23:52 | #5 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Вот блок-схема к 2 задаче
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
13.11.2009, 00:03 | #6 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|