Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить сумму ряда Как решить это задание? https://www.cyberforum.ru/ pascal/ thread746168.html	Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце массива элементы заполнить нулями Pascal Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце массива элементы заполнить нулями. Сделал: program asz; uses crt; const n=10; var i,j:integer; A:Array Of real;
Pascal Ошибка в реализации рекурсии https://www.cyberforum.ru/ pascal/ thread746117.html Здравствуйте, подскажите пожалуйста в чём ошибка. "Неверное число параметров функции" выдает в 4 строке. Задание: Написать программу, которая по заданному натуральному значению и действительному вычисляет результат выражения (обязательно с помощью рекурсии): http://funkyimg.com/u2/2834/522/683853____________________.png Мой вариант: //возведение в степень реализовано под...	Pascal Двумерный массив. Составить вектор из номеров столбцов, в которых все элементы упорядочены по невозрастанию значений. https://www.cyberforum.ru/ pascal/ thread746113.html Пожалуйста,помогите! как можно скорее, сама, увы, бессильна( надо написать программу, турбо паскаль Дана матрица А(M,N). Составить вектор из номеров столбцов, в которых все элементы упорядочены по невозрастанию значений.
Pascal Решение задач на тему числовые ребусы Помогите пожалуйста решить числовой ребус через паскаль! Аист*4=стая. Помогите если кто может!)	Pascal составьте блок-схему по программе пожалуйста) и результаты этой программы должны быть выведены на экран дисплея и помещены в текстовый файл на диск. TYPE MAT=ARRAY OF REAL; VEC=ARRAY OF REAL; VAR A:MAT; X:VEC; I,N:INTEGER; S:REAL; PROCEDURE MATR(N:INTEGER; VAR A:MAT); VAR I,J:INTEGER; BEGIN FOR I:=1 TO N DO https://www.cyberforum.ru/ pascal/ thread746042.html
Pascal Записи: Каталог книг Помогите Т_____Т дело вот в чем ,у меня накрылся жесткий ,а вместе с ним и ВСЕ работы на диске С , восстановить данные не удалось ,пропали все рефераты и все лабы,которые были предназначены к сдаче. У кого есть несколько минуток уделить ,помогите пожалуйста . Сроки сдачи бьют меня топорами ,а времени на все не хватает! вот две задачи ,что надо сделать : 1)Необходимо создать программу... https://www.cyberforum.ru/ pascal/ thread746020.html	ввести координаты ферзя и коня. определить бьет ли ферзь коня если первый ход ферзя Pascal ввести координаты ферзя и коня. определить бьет ли ферзь коня если первый ход ферзя. pascal
Pascal Распределить слова по файлам в зависимости от количества слогов в текстовом файле In1.txt записать несколько слов в столбик, одно слово в одной строчке. затем сделать так, чтоб 1) в другом текстовом файле Out1.txt были все слова с 1 слогом 2)в другом текстовом файле Out2.txt были все слова с 2 слогами 3)в другом текстовом файле Out3.txt ,были все остальные слова https://www.cyberforum.ru/ pascal/ thread745846.html	Pascal связать меню и программы в паскале https://www.cyberforum.ru/ pascal/ thread745665.html вот меню программы: Program Menu1; Uses crt; Var a:text; key,N:char; Procedure knopf1; begin clrscr; Assign(a,'C:\Trap\knopf1.txt'); Reset(a);
Pascal Динамика: Напечатать текст, исправленный с учетом роли знака # Я уже большую часть работы сделал, но никак не могу понять тему "динамическая память"(((. Я написал программу без использования динамической памяти и она работает. А как это сделать с динамикой не знаю=(. ********************************************************* {Дан текст, оканчивающийся точкой. Среди литер этого текста особую роль играет знак #, появление которого в тексте означает отмену...	Pascal Разветвляющийся вычислительный процесс помогите сделать програмки https://www.cyberforum.ru/ pascal/ thread745564.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

Записей в блоге: 1

26.12.2012, 09:49

Найти сумму тех членов ряда, модуль которых больше или равен заданному e - Pascal - Ответ 3917798

26.12.2012, 09:49. Показов 1747. Ответов 1

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

Сообщение было отмечено Rainer082 как решение

Решение

Pascal

Var a,s,pr,e,f,i:real;
Begin
    write('Введите e: ');readln(e);
    pr:=1;f:=1;i:=0;
    Repeat
     i:=i+1;
     pr:=pr*10;
     f:=f*i;
     a:=pr/f;
     s:=s+a;
    Until e>=a;
    writeln('S = ',s:0:2);
    readln;
End.

Вернуться к обсуждению:
Найти сумму тех членов ряда, модуль которых больше или равен заданному e Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.12.2012, 09:49

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

Найти сумму тех членов ряда, модуль которых больше или равен заданному ε
Люди добрые помогите пожалуйста написать программы. Даны числовой ряд и некоторое число ε....

Найти суму тех членов ряда, модуль которых больше или равен заданному Е
Дан числовой ряд и некоторое число Е. Найти суму тех членов ряда, модуль которых больше или равен...

Дан числовой ряд и некоторое малое число Е (например, Е=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному Е
Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда,...

Дан числовой ряд, найдите сумму тех членов ряда, модуль которых больше или равен заданному e
дан числовой ряд и некоторое число e, найдите сумму тех членов ряда, модуль которых больше или...

	26.12.2012, 09:49

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.12.2012, 09:49

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

Найти суму тех членов ряда, модуль которых больше или равен заданому Е
Дан числовой ряд и некоторое число Е. Найти суму тех членов ряда, модуль которых больше или равен...

Найти сумму чисел ряда, модуль которых больше или равен числу е
Даны числовой ряд и некоторое число е. Найти сумму чисел ряда, модуль которых больше или равен...

Найти сумму тех членов ряда, которые по абсолютной величине больше ε
\sum_{n=0}^{\infty}{(-1)}^{n}\: \frac{{x}^{2n}}{n!}

Среди заданных чисел найти количество пар чисел, модуль разности которых равен заданному числу
Дана строка из n целых чисел. Найти кол-во пар чисел модуль разности которых равен d. ВХОДНЫЕ...

Наверх