Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Графы Всем добрый вечер. мне дали задание по графам, я кое-что сделал, но не уверен в правильности: 1. Начертите неориентированный связанный граф, содержащий семь вершин и десять ребер. 2. В текстовом файле подготовьте списки инциденций данного графа. 3. Напишите процедуру ввода данных списков и формирования их в виде динамической структуры массива линейных односвязных списков. 4. Напишите... https://www.cyberforum.ru/ pascalabc/ thread540226.html	В строке произвольной длины удалить все «+», если за ними следуют не цифры Pascal ABC Написать программу, которая строке произвольной длины удалят все «+», если за ними следуют не цифры.
Pascal ABC вопрос по файлам, и и работой с содержимым в них https://www.cyberforum.ru/ pascalabc/ thread540199.html должно было писать сначала исходные цифры, потом записывать числа с четной позицией но почему то 2ое действие не выполняет uses crt; var f:file of integer; i,a,x:integer; begin randomize; assign(f,'123'); rewrite(f);	Pascal ABC Дан двумерный массив. Определить сумму квадратов элементов заданного столбца https://www.cyberforum.ru/ pascalabc/ thread540189.html Дан двумерный массив. Определить сумму квадратов элементов заданного столбца.
Pascal ABC Вычислить среднее арифметическое положительных элементов массива вычислить среднее арифметическое положительных элементов для массивов A(N1),B(N2),C(N3), если N1,N2,N3<=100 и номера строк и столбцов в которых они расположены для матриц	Pascal ABC По заданному натуральному числу определить количество цифр в нем и их сумму https://www.cyberforum.ru/ pascalabc/ thread540165.html 1)Написать программу, которая по заданному натуральному числу определяет количество цифр в нем и их сумму в Pascal ABC и через оператор while
Pascal ABC Входит ли заданное число а в последовательность чисел 1, 2, 5, 12, 29, 70 6.52. Выяснить, входит ли заданное число а в после¬довательность чисел 1, 2, 5, 12, 29, 70... 6.57. Дано натуральное число. а) Верно ли, что сумма его цифр больше k, а само число четное? 6.61. Дано натуральное число. Выяснить, является ли оно простым (простым называется нату-ральное число, большее 1, не имеющее других делителей, кро¬ме единицы и самого себя). Оператор цик-ла с... https://www.cyberforum.ru/ pascalabc/ thread540138.html	Pascal ABC Определить, является ли последовательность упорядоченной по убыванию Дана последовательность чисел в произвольном порядке от 1 до 5. Нужно определить, является ли эта последовательность по убыванию. Т.е. нужно написать по убыванию расположены числа или нет. Помогите новичку пожалуйста.
Pascal ABC Помогите написать программу, которая использует строковый тип! Написать программу, заполняющую массив GRAPH с элементами типа NAME (Фамилия и инициалы работника) POS (Название занимаемой должности) YEAR (Год поступления на работу) Ввод значений должен осуществляться с клавиатуры и из файла. Вывести фамилии работников, чей стаж работы превышает значение, введенное с клавиатуры. Если таких работников нет, вывести сообщение. https://www.cyberforum.ru/ pascalabc/ thread540058.html	Pascal ABC Пирамидальная сортировка массива - найти ошибки в коде Ошибка в приложенной картинке. Сортировка пирамидой, ошибка в сорте возникает почему-то только при значение массива = 5. При упорядоченном или повторении элементов? в чем подвох? uses crt; const max = 10000; type myArray = array of integer; var dimension, i : integer; arr, sortArray : myArray; https://www.cyberforum.ru/ pascalabc/ thread540012.html
Pascal ABC Найти конечный вид матриц 1) for i:= 0 to 10 A:=i for i:=0 to 6 begin k:=A; A:=A k:=A end.	Pascal ABC Даны три строки, определить можно ли из символов первых двух строк получить третью строку Даны три строки, определить можно ли из символов первых двух строк получить третью строку. Если можно с комментариями желательно. https://www.cyberforum.ru/ pascalabc/ thread540000.html

Puporev

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

64305 / 47602 / 32742

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

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

06.04.2012, 06:14

Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а - Pascal ABC - Ответ 2879097

06.04.2012, 06:14. Показов 7922. Ответов 3

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

Ответ

Pascal

uses crt;
var n:integer;
    a,s:real;
begin
clrscr;
write('a=');
readln(a);
s:=1;
n:=1;
while s<=a do
 begin
  n:=n+1;
  s:=s+1/n;
 end;
write('n=',n,' s=',s:0:3);
readln
end.

Вернуться к обсуждению:
Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а Pascal ABC

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

06.04.2012, 06:14

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

Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а
а эту же задачу на C++ с циклом while НАПРИМЕР можете написать?

Дано вещественное число a. Найти такое наименьшее n, что 1+1/2+1/3+.+1/n>a
Дано вещественное число a. Найти такое наименьшее n, что 1+1/2+1/3+...+1/n>a. (С++)

Дано действительное число a, найти такое наименьшее n. что
1+\frac{1}{2}+...+\frac{1}{n}>a

Дано действительное число a; найти такое наименьшее n, что 1+1/2+.+1/n > a
помогите решить в Delphi

	06.04.2012, 06:14

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

06.04.2012, 06:14

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

Дано число a (1<a<=1,5) найти такое наименьшее n
Что в последовательности чисел 1+1/2 , 1+1/3, ..., 1+1/n последнее число будет меньше a

Дано действительное число a. Найти такое наименьшее n
Найти такое наименьшее n, что сумма последовательности больше заданного числа 1 1...

Дано действительное а Найти такое наименьшее n, что
1+ 1/2+...1/n a

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N C++
Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 +...

Найти наименьшее число r, такое что 2 ^r≥N
Дано натуральное число N. Найти наименьшее число r, такое что 2r≥N.

Найти наименьшее число n, такое что сумма чисел от 1 до n делилась на m
найти наименьшее число n, такое что сумма чисел от 1 до n делилась на m (m <> = 2012). Организуйте...

Новые блоги и статьи
Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .
Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .	[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .

Наверх