Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 27.10.2009, 17:23   #1 (permalink)
Максимус
Новичок
 
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Кому не сложно, помогите с написанием программ.

1. Напишите программу вычисления функции S. Значения величин a, b, x задаются.

2. Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае.
3. Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности.
Максимус вне форума   Ответить с цитированием

Старый 27.10.2009, 17:23
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Упрощу вам решение проблемы - вот список аналогичных обсуждений

Проблемы с написанием классов на языке С++
Проблемы с написанием программы на языке Турбо Паскаль
Помогите с архитектурой программ ГИС,для горного дела

Старый 27.10.2009, 20:00   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Максимус Посмотреть сообщение
1. Напишите программу вычисления функции S. Значения величин a, b, x задаются.
Боюсь, что без знания функции S проблема неразрешима.
Цитата:
2. Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае.
VAR
a,b:REAL;
BEGIN
Write('a= '); ReadLn(a);
Write('b= '); ReadLn(b);
IF a<b THEN
BEGIN
a:=a*2;
b:=b*2;
END ELSE
BEGIN
a:=SQR(a);
b:=SQR(b);
END;
WriteLn('a= ',a);
WriteLn('b= ',b);
ReadLn;
END.

Последний раз редактировалось Vladimir_S; 27.10.2009 в 21:26 Причина: Небольшая косметика
Vladimir_S вне форума   Ответить с цитированием
Старый 27.10.2009, 21:25   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Максимус Посмотреть сообщение
3. Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности.
CONST
n= ; {Здесь нужно указать значение n}
VAR
i:INTEGER;
A:ARRAY[1..n] of REAL;
Max:REAL;

BEGIN
Write('A[1]= ');
ReadLn(A[1]);
MAX:=A[1];
FOR i:=2 TO n DO
BEGIN
Write('A[',i,']= ');
ReadLn(A[i]);
IF A[i]>MAX THEN MAX:=A[i];
END;
WriteLn('MAX= ',MAX);
ReadLn;
END.
Vladimir_S вне форума   Ответить с цитированием
Старый 08.11.2009, 10:26   #4 (permalink)
Максимус
Новичок
 
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию вот

Цитата:
Сообщение от Максимус Посмотреть сообщение
1. Напишите программу вычисления функции S. Значения величин a, b, x задаются.

вот http://www.tehnari.ru/imagehosting/2...664993578d.jpg
Максимус вне форума   Ответить с цитированием
Старый 07.11.2010, 20:01   #5 (permalink)
Wiki
Member
 
Регистрация: 07.11.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию ку

Меня тоже интересует первая задача с функцией.очень бы помогла мне.
Wiki вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 08.11.2010, 12:13   #6 (permalink)
Wiki
Member
 
Регистрация: 07.11.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Кто нибудь может помочь с зазачей по функции? очень надо.

Напишите программу вычисления функции S. Значения величин a, b, x задаются
Wiki вне форума   Ответить с цитированием
Старый 08.11.2010, 12:59   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Wiki Посмотреть сообщение
Меня тоже интересует первая задача с функцией.очень бы помогла мне.
Цитата:
Сообщение от Wiki Посмотреть сообщение
Кто нибудь может помочь с зазачей по функции? очень надо.

Напишите программу вычисления функции S. Значения величин a, b, x задаются
Это могут многие, включая меня. Но не знаю, как другие - а я из принципиальных соображений делать этого не стану, поскольку здесь речь идет не о каких-то затруднениях с решением сложной задачи, а о Вашем нежелании осваивать самые-самые начальные азы программирования. Всё, что тут требуется - это ввести три числа и написать строчку вычисления примитивной комбинации стандартных элементарных функций. Занимает это хозяйство 4-5 строк и абсолютно никакой, даже минимально-вообразимой сложности не составляет.
P.S. Черт вас побери, молодежь, ну когда вы, наконец, поймете, что учиться нужно в первую очередь для себя, а не для папы-мамы? Ведь вам жить! И что, думаете так чужим умом и чужими знаниями и просуществовать всю жизнь?
Извините, если что не так. Накипело!
Vladimir_S вне форума   Ответить с цитированием
Старый 08.11.2010, 16:48   #8 (permalink)
Wiki
Member
 
Регистрация: 07.11.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Да я понимаю как это должно быть написано.у меня и затруднение с тем что стпень отрицательная.и может ее дополнительно как то прописывать тогда надо.
Wiki вне форума   Ответить с цитированием
Старый 08.11.2010, 17:18   #9 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Саму функцию вы так и не написали, а без этого что-либо говорить о решении попросту бесполезно.

От отрицательной степени можно избавиться путем преобразования в частное
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 08.11.2010, 17:52   #10 (permalink)
Wiki
Member
 
Регистрация: 07.11.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

в предыдущих сообщениях ссылка. я незнаю как это сделать иначе не писала бы.

Последний раз редактировалось Wiki; 08.11.2010 в 17:58
Wiki вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.