Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Морской бой. Хочу написать игру "морской бой", Но прежде чем начинать хотелось бы глянуть на рабочие исходники других подобных прог. Все, что я нашел на паскале абс и 7 не запускаются=(( Если у кого то есть рабочий текст программы скиньте пожалуйста. Так же хотел спросить, если я в графике пока ещё слабо шарю стоит ли браться за такую программу? https://www.cyberforum.ru/ pascalabc/ thread363518.html Задача ''Симметричная последовательность'' Pascal ABC
Я конечно понимаю что эта задача легкая,но у меня не получается её написать ... условия : Последовательность чисел назовем симметричной, если она одинаково читается как слева направо, так и справа налево. Например, следующие последовательности являются симметричными: 1 2 3 4 5 4 3 2 1 1 2 1 2 2 1 2 1 Вашей программе будет дана последовательность чисел. Требуется определить, какое минимальное...
Pascal ABC Найти сумму целых пол-х чисел, кратных 4 и меньших 100. https://www.cyberforum.ru/ pascalabc/ thread363423.html
Найти сумму целых пол-х чисел, кратных 4 и меньших 100. в чем ошибка?? uses crt var i,s:integer; begin i:=1; s:=0; while:<100 do if i mod 3=0 then s:=s+i;
Pascal ABC В тексте узнать которые из букв 'a' или 'o' находиться на первом месте https://www.cyberforum.ru/ pascalabc/ thread363405.html
Пока писал две начали работать, осталось только одна, помогите решить) 3) В тексте узнать которые из букв 'a' или 'o' находиться на первом месте. например scola чтобы результат был 'o', аfrica = 'a' , cub = '-'
Pascal ABC Работа с текстовым файлом
нужна програмка которая из текстового файла заносит в масив ЧИСЛА(а не цифры или символы)
Pascal ABC Файловые переменные. https://www.cyberforum.ru/ pascalabc/ thread363193.html
вы бы не могли помочь с задачей ? :) Упорядочить лексикографические строки текстового файла. вывести на экран первоначальный файл и преобразованный. если все строки файла одинаковые, вывести на экран соответствующее сообщение. Заранее благодарна!
Pascal ABC Попадание точки в одну из областей. Доброго времени суток. Помогите пожалуйста, ваще не понимаю как это написать. Нужно определить в какую из областей попадает точка с произвольно заданными координатами, области пронумерованы, (5) все что не заштриховано. Заранее огромное спасибо. https://www.cyberforum.ru/ pascalabc/ thread363140.html Задача на рекурсию Pascal ABC
Во время недавних раскопок на Марсе были обнаружены листы бумаги с таинственными символами на них. После долгих исследований учёные пришли к выводу, что надписи на них на самом деле могли быть обычными числовыми равенствами. Кроме того, из других источников было получено веское доказательство того, что марсиане знали только три операции - сложение, умножение и вычитание (марсиане никогда не...
Pascal ABC Подсчитать общее количество бензина, израсходованное на автобазе, и его стоимость На автобазе N автомашин, для которых известен пробег (в тыс. км) за год. Задавшись расходом бензина на одну тысячу км для каждой машины, подсчитать общее количество бензина, израсходованное на автобазе и его стоимость. https://www.cyberforum.ru/ pascalabc/ thread363018.html Pascal ABC Графика: Движение точки вокруг квадрата https://www.cyberforum.ru/ pascalabc/ thread362943.html
Здраствуйте. Никак неполучается написать программу в которой бы точка двигалась вокруг квадрата. Нижний левый угол квадрата нужно взять за начало откуда будет двигаться точка,потом вводим 3 переменные,первая опускает току на "x" вниз,вторая на "y" вправо и третья на "c" вверх. Пытался сделать но получился какой то ужас вроде этого. Если нетрудно помогите или посоветуйте как сделать. uses...
Pascal ABC Вычислить сумму ряда с точностью 0.001
помогите правильно ввести формулы в паскале.. программные коды(возможно неверно): к первой Program l7_52; Var n,x:integer; y:real; Begin Write('введите х='); Readln(x); y:=0; For n:=2 to 7 do
Pascal ABC Перед div программа пишет неверное выражение Var b : boolean; x, i : integer; Begin Readln(x); b:=false; i:=0; While not (b) do Begin; b:=(abs(x)<5); x:=div(x,3)+1 i:=i+1; https://www.cyberforum.ru/ pascalabc/ thread362848.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.10.2011, 16:31 0

Найти первый отрицательный член последовательности - Pascal ABC - Ответ 2057516

10.10.2011, 16:31. Показов 1718. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено N0rD как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var b,a,a1:real;
    i:integer;
begin
clrscr;
repeat
write('Введите положительное вещественное число b=');
readln(b);
until b>0;
a1:=b;
i:=1;
while a1>0 do
 begin
  i:=i+1;
  a:=a1-1/sqrt(i);
  a1:=a;
 end;
write('a=',a:0:3);
readln
end.


Вернуться к обсуждению:
Найти первый отрицательный член последовательности Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2011, 16:31
Готовые ответы и решения:

Найти первый отрицательный член последовательности
помогите плииззз не могу разобраться найти первый отрицательный член последовательности cos (ctg...

Найти первый отрицательный член последовательности
Перевод условия на русский: Дано действительное положительно число b. Последовательность ..... ...

Найти первый отрицательный член последовательности
Найти первый отрицательный член последовательности cos(ctg(n)) , n=1, 2, 3. Применить оператор...

Последовательность {ak} задана рекуррентно Найти первый отрицательный член последовательности

1
10.10.2011, 16:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2011, 16:31
Помогаю со студенческими работами здесь

Вычислите первый отрицательный член последовательности
Вычислите первый отрицательный член последовательности cos(ctg(n)), n =1,2,3,....Отрицательные...

Дано число а. Определить первый отрицательный член последовательности
Дано число а. Определить первый отрицательный член последовательности x1,x1,x3,...,xn, где x1=а,...

Найти первый член последовательности
Задача 1 Рассмотрим последовательность e 1, e 2, e 3,..., образованную по следующему закону...

Найти первый член последовательности
Найти первый член последовательности ln(9n)/n2, меньший 1, для n изменяющегося следующим образом:...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru