Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Найти число К, такое, что сумма 1 + 2 + ... + К >= A, и саму эту сумму https://www.cyberforum.ru/ pascalabc/ thread1131069.html Дано число А (>1). Вывести наименьшее из целых чисел К, для которых сумма 1 + 1/2 +... + 1/К будет больше А, и саму эту сумму.	Пусть дана матрица А (n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i-й строке матрицы Pascal ABC Пусть дана матрица А (n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i-й строке матрицы А, не принадлежащих отрезку . Воспользуйтесь функцией, делающей соответствующую проверку в i-й строке. Заранее спс)
Pascal ABC В двухмерном целочисленном массиве 20х10 найти сумму элементов по диагонали В двухмерном целочисленном массиве 20х10 найти сумму элементов по диагонали https://www.cyberforum.ru/ pascalabc/ thread1131052.html	Pascal ABC Написать процедуру для работы со списком Использовать (линейные) однонаправленные списки при следующем их описании: Type Spisok = ^Zveno; Zveno = record Elem : TypeElem; Next : Spisok end; При этом параметры L, LI и L2 обозначают списки, а параметры Е, El и Е2—данные типа TypeElem, к которым применимы операции присваивания и проверки на равенство. TypeElem — тип элементов списка,... https://www.cyberforum.ru/ pascalabc/ thread1130996.html
Pascal ABC Метод половинного деления Помогите пожалуйста начинающей девушке не чего не понимающей в програмировании Отыскание корня уравнения F(x)=0 на интервале (А,В) с точность Е А=0 В=1 Е=10(в -2 степени) х(в 4 степени)+2х(в 3 степени)-х-1 Заранее огромное спасибо!!!	Pascal ABC Составить матрицу по правилу https://www.cyberforum.ru/ pascalabc/ thread1130965.html Помогите составить матрицу вида: 11111 01110 00100 01110 11111
Pascal ABC Некорректный вывод Суть проблемы в procedure zadanie_3 При вызове в основной программе происходит некорректный вывод, например, вместо 1 владельца выводит какие-то заоблачные числа. Сама подпрограмма написана верно, пробовал тело процедуры вставить в основную программу, все работает корректно. program t; uses crt; type avtosalon=record marka:string; https://www.cyberforum.ru/ pascalabc/ thread1130762.html	Pascal ABC Утечка памяти Здравствуйте, в моей программе где-то возникает утечка, но я ни как не могу найти её. Я открываю любой файл, создаю некую шифровку ну и далее всё хорошо. А потом утечка. :( Чтобы запустить нужно поправить fileName на путь к любому файлу больше 100 килобит. type pTreeBox = ^TreeBox; TreeBox = record pLeft, pRight: pTreeBox; Data: shortint;
Pascal ABC Удалите первое вхождение w в строку, если такое есть https://www.cyberforum.ru/ pascalabc/ thread1130683.html Очень нужно на завтра!!! Известно, что в начале строки S находится не более 40 латинских букв, за которыми следуют пробелы. Напечатайте эту строку, предварительно преобразовав ее так, как показано ниже, и используя следующий фрагмент программы: Tуре строка = array of char; Vаr S : строка; Удалите первое вхождение w, если такое есть (образовавшуюся «дыру» заполните последующими...	Pascal ABC Найти в заданной последовательности самую длинную подпоследовательность, состоящую только из положительных чисел Найти в заданной последовательности самую длинную подпоследовательность, состоящую только из положительных чисел. https://www.cyberforum.ru/ pascalabc/ thread1130646.html
Проверить, является ли заданная последовательность знакопостоянной Pascal ABC Проверить, является ли заданная последовательность знакопостоянной.	Pascal ABC Найти среднее арифметическое всех положительных элементов массива Найти среднее арифметическое всех положительных элементов массива. Проверить, имеют ли все элементы массива один знак. Проверить, содержит ли массив знакопеременную последовательность. https://www.cyberforum.ru/ pascalabc/ thread1130644.html

Vakoto

23 / 23 / 22

Регистрация: 20.03.2014

Сообщений: 36

27.03.2014, 12:21

Вычислить значение выражения - Pascal ABC - Ответ 5958826

27.03.2014, 12:21. Показов 3056. Ответов 3

Метки (Все метки)

Ответ

Можно вот так:

Pascal

var
  n,z,i: integer;
  sum,sl: real;
begin
  repeat
    write('Введите N (N>0): ');
    readln(n);
  until n>0;
  sl:=1.1; z:=1; sum:=0;
  for i:=1 to n do
    begin
      sum:=sum+sl*z;
      z:=-z;
      sl:=sl+0.1;
    end;
  writeln('Сумма равна ',sum);
  writeln;
end.

Вернуться к обсуждению:
Вычислить значение выражения Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.03.2014, 12:21

Готовые ответы и решения:

Вычислить значение выражения, значение n вводится с клавиатуры
составить программу для решения задачи. При решении задачи через цикл-"хорошо", через цикл и...

Вычислить значение выражения
https://www.cyberforum.ru/attachment.php?attachmentid=686219&d=1462171475

Вычислить значение выражения
Входные данные: Во входном потоке задано три вещественных числа a (a > 0), b (b < 0), x (-1 < x <...

Вычислить значение выражения
Здравствуйте, помогите пожалуйста решить. Составить программу с использованием цикла....

	27.03.2014, 12:21

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.03.2014, 12:21

Помогаю со студенческими работами здесь

Вычислить значение выражения
Вычислить значение выражения: y=Sqr(x-5) + sir (x+4) (Функции)

Вычислить значение выражения
Объясните, пожалуйста, как решать. Задача сама не сложная, но я не могу понять как решить. ...

Вычислить значение выражения
Всем доброго времени суток. Срочно нужна помощь в написании программы. Задание звучит так:...

Вычислить значение выражения
Помогите пожалуйста перевести три производные, на код паскаля. От f(x):=\sqrt{tan(x)} идут 3...

Наверх