|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
23.01.2013, 14:26 | #11 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
23.01.2013, 23:32 | #12 |
Новичок
Джуниор
Регистрация: 23.01.2013
Сообщений: 6
|
program x1;
var a,b,s:real; begin readln(a, b); s:=(ABS(b-a)+1)*(a+b)/2; writeln(s:5:0); readln; end. сам паскаль вчера первый раз увидел, может и поумнее как то решается https://www.dropbox.com/s/ypt4g36hqu78jyl/summ.pas файлик потому что копирую отсюда а уже не работает Последний раз редактировалось Septor; 24.01.2013 в 00:57. |
24.01.2013, 06:39 | #13 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Это арифметическая прогрессия с шагом единица, какой реал?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
24.01.2013, 09:16 | #14 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Поэтому нужно или использовать вещественный тип данных, либо приводить результат к целому число функциями, либо использовать вместо вещественного деления / операцию целочисленного деления div Как мы видим, Septor выбрал первый вариант... |
|
24.01.2013, 09:50 | #15 |
Пользователь
Регистрация: 21.07.2012
Сообщений: 14
|
2. Арифметическая прогрессия задана формулой an=2n+3. Вывести первые 15 членов этой прогрессии и найти их сумму.
var an, n, i: integer; begin for i:=1 to 15 do begin an:= 2 * i + 3; writeln(i, ') Член Прогрессии ',an); end end. |
24.01.2013, 10:15 | #16 |
Пользователь
Регистрация: 21.07.2012
Сообщений: 14
|
4. Найти произведение: Р = (1 + 1/2)•(3+1/3)•(5+1/4)•... (n множителей)
Никогда не поздно начать. В var x, n, i: integer; y, p, pr: real; begin x:= 1; y:= 2; pr:=1; writeln('Сколько множетелей последовательности '); readln(n); for i:=1 to n do begin p:= (x + 1/y); y:=y + 1; x:= x + 2; pr:= p * pr; end; writeln('Произведение последовательности ',pr); end. |
24.01.2013, 18:59 | #17 | |
Новичок
Джуниор
Регистрация: 23.01.2013
Сообщений: 6
|
Цитата:
|
|
24.01.2013, 19:34 | #18 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
24.01.2013, 19:49 | #19 |
Новичок
Джуниор
Регистрация: 23.01.2013
Сообщений: 6
|
да, так как там деление на 2, сейчас понимаю, но тогда методом проб и ошибок выбрал верный
|
24.01.2013, 19:53 | #20 |
Старожил
Регистрация: 31.05.2010
Сообщений: 13,543
|
Не, жо..а, жо..й, а где ТС?
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
решить задачи по паскалю. | Alexander7777 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 14.12.2012 18:27 |
Здравствуйте,помоги решить задачи на массив. | Зухра89 | Помощь студентам | 0 | 10.02.2012 23:11 |
Здравствуйте, не могли бы вы помочь) | Лися88 | Помощь студентам | 4 | 12.11.2011 11:32 |
Здравствуйте товарищи программеры=)Не могли бы помочь!? | KaZzZaNovA | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 04.12.2008 17:29 |