Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Составить программу, которая после ввода строки строчных латинских букв заменяет их на прописные https://www.cyberforum.ru/ pascalabc/ thread684817.html Например: pascalabc - PASCALABC	Составить программу, которая обращает введенное слово, т.е. переставляет символы в слове в обратном порядке Pascal ABC Например, мама – амам, Петя – ятеП.
Pascal ABC Определить, где больше точек, до середины отрезка или после если например ввожу "....." пишет " до середины строки точек меньше... надо это учесть.. чтоб писало поровну... var str: string; i,s1,s2: integer; begin write('Введите строку: '); readln(str); for i:=1 to length(str) do begin if (i<length(str) div 2)and(str='.') then inc(s1) https://www.cyberforum.ru/ pascalabc/ thread684768.html	Pascal ABC Двумерный массив. Определить количество ненулевых чисел в каждой строке матрицы https://www.cyberforum.ru/ pascalabc/ thread684757.html Ввести двумерный массив чисел, содержащий N строк и М столбцов. Значения N и М задать самим (лучше взять небольшие, например, 4 строки и 6 столбцов). Определить количество ненулевых чисел в каждой строке матрицы. Исходный массив и результаты вывести на экран, при этом двумерный массив выводить в форме матрицы. Для отладки программы значения элементов массива придумать самостоятельно. ...
Pascal ABC Третий отрицательный элемент заменить максимальным дано линейный масив действительных чисел, третий отрицательный элемент заменить максимальным... помогите пожалуйста... вобще нет мыслей как отсеять именно третий отрицательный элемент...	Pascal ABC Составить программу табулирования функции z = f (x, y) в прямоугольнике https://www.cyberforum.ru/ pascalabc/ thread684735.html одна задачка ломает мне голову,помогите плиз... Составить программу табулирования функции z = f (x, y) в прямоугольнике x с шагом табуляции h,где f (x, y) ,ln(x+sqrt(x2+y2)) a=1 ,b=3 ,c=0, d=1, h=0.05.
Pascal ABC Работа с графикой: создание рисунков Помогите написать код, чтоб получились такие рисунки. https://www.cyberforum.ru/ pascalabc/ thread684698.html	Подсчитать, сколько раз в массиве встречается максимальное число Pascal ABC подсчитать сколько раз в масиве встречается максимальное число выводит максимальное число.... надо количество раз.. помогите исправить пожалуйста) program Lr; uses crt; const n=10; type mat = array of integer;
Pascal ABC Старинная задача. Покупка коров. https://www.cyberforum.ru/ pascalabc/ thread684623.html Помогите решить! Сколько можно купить быков, коров и телят, если плата за быка – 10 руб., за корову – 5 руб., за телёнка – полтинник (0.5 рубля) и на 100 руб. надо купить 100 голов скота (старинная задача)? Один вопрос - одна тема. Последнее предупреждение.	Pascal ABC Задача об оловянных солдатиках Помогите решить! Было когда-то на свете 25 оловянных солдатиков, которых сделали из старой оловянной ложки массой 123 г. 24 солдатика были одинаковыми: друг от друга не отличались. Но двадцать пятый солдатик был не такой, как все. Он оказался одноногим. Его отливали последним, и олова немного не хватило. Какова масса последнего солдатика? Один вопрос - одна тема. https://www.cyberforum.ru/ pascalabc/ thread684620.html
Составить программу, которая меняет местами части предложения до и после тире Pascal ABC Значением строки служит предложение, содержащее тире. Составить программу, которая меняет местами части предложения до и после тире. Добавлено через 15 часов 18 минут Значением строки служит предложение, содержащее тире. Составить программу, которая меняет местами части предложения до и после тире. var s,s1,s2:string; i:byte; begin read(s); i:=pos('-',s);	Pascal ABC Вычислить факториал https://www.cyberforum.ru/ pascalabc/ thread684587.html основная проблема заключается в том, что не могу описать факториал, так как число "n" я ввожу сам с клавиатуры.

Puporev

Почетный модератор

64300 / 47595 / 32743

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

Сообщений: 115,181

31.10.2012, 09:18

Используя оператор цикла, найти сумму элементов ряда - Pascal ABC - Ответ 3633705

31.10.2012, 09:18. Показов 3536. Ответов 6

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

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

Решение

Pascal

uses crt;
var an,ai,e,t1,t2:real;
     n:integer;
begin
e:=0.001;
n:=1;
t1:=1/2;
t2:=1/3;
ai:=t1+t2;
an:=ai;
while ai>e do
 begin
  n:=n+1;
  t1:=t1/2;
  t2:=t2/3;
  ai:=t1+t2;
  an:=an+ai;
 end;
write('an=',an:0:3);
end.

Вернуться к обсуждению:
Используя оператор цикла, найти сумму элементов ряда Pascal ABC

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

31.10.2012, 09:18

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

Используя операторы цикла с предусловием и постусловием, найти сумму ряда.

Найти количество максимальных элементов массива, используя только один оператор цикла
Найти количество максимальных элементов массива, используя только один оператор цикла.

Используя оператор цикла с последующей условием, вычислить сумму бесконечного ряда
Всем привет. Помогите пожалуйста с заданием! Используя оператор цикла с последующей условием,...

Используя операторы цикла с предусловием и постусловием, найти сумму ряда с точностью е
Используя операторы цикла с предусловием и постусловием, найти сумму ряда с точностью е=0.001 и...

	31.10.2012, 09:18

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

31.10.2012, 09:18

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

Вычислить сумму, используя оператор цикла
Необходимо вычислить сумму, используя оператор цикла. Если не трудно, помогите с заданием,...

Найти сумму элементов ряда, используя оператор цикла
Добрый вечер, задание состоит в том что "Используя оператор цикла, найти сумму элементов. Результат...

Используя оператор цикла, найти сумму элементов
Найти сумму ряда с точностью e=10-4, общий член которого {a}_{n}=\frac{{2}^{n}n!}{{n}^{n}}

Найти сумму первых 8 элементов, используя оператор цикла for
Доброго утра/дня/вечера! Ребят, кто шарит может подсобить? 1)Геометрическая прогрессия имеет вид...

Наверх