Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
валерасай
5 / 5 / 2
Регистрация: 15.04.2011
Сообщений: 21
1

надо бы до понедельника решить

15.04.2011, 18:17. Просмотров 412. Ответов 8
Метки нет (Все метки)

1. Вычислить 1+(3^1-2^1)/1+(3^2-2^2)/2+(3^3-2^3)/3+...+(3^9-2^9)/9 (использовать цикл)(^n-степень числа)
2. Дана последовательность чисел. Оканчание последовательности число 9999. Определить, является ли последовательность бывающей.
3. Дано нат. число. Обозначим через n количество разрядов. например, 12345: 1-пятая цифра, 2-вторая цифра и т. д. Подсчитать количество четных чисел.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2011, 18:17
Ответы с готовыми решениями:

помогите, срочно надо до понедельника
Исходный массив должен быть выведен на экран. Все преобразования производить с...

Не могу решить!!! Очень надо.
Скоро госэкзамен, а у нас так и не было не одного урока по программированию,...

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

надо решить задачи по Паскаль
Вводится денежная сумма в рублях и копейках. Программа печатает введенную сумму...

помогите, пожалуйста, решить задачу( оч.надо!)
Уважаемые программисты, помогите, пожалуйста, решить задачу решить задачу,...

8
Высокий
245 / 245 / 135
Регистрация: 09.04.2011
Сообщений: 524
15.04.2011, 18:29 2
первая
Pascal
1
2
3
4
5
6
7
8
uses crt;
var n: integer;
    s: real;
begin clrscr;
s:=1;
for n:=1 to 9 do s:=s+(exp(n*ln(3))-exp(n*ln(2)))/n;
writeln('S = ',s:6:4);
end.
Добавлено через 1 минуту
Вторая не совсем понял задание. Последовательность начинается с чего?
0
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
15.04.2011, 18:40 3
Высокий, скорее всего последовательность должна заполняться любыми числами пользователем или randomно

Добавлено через 52 секунды
до того как пользователь не введет 9999
0
валерасай
5 / 5 / 2
Регистрация: 15.04.2011
Сообщений: 21
15.04.2011, 18:51  [ТС] 4
там ни че не написано
училка сказала что любая последовательность
0
EvilScream
23 / 22 / 29
Регистрация: 16.12.2010
Сообщений: 71
15.04.2011, 19:13 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
 n ,kol:integer;
begin
clrscr;
 kol:=0;
 writeln('Ââåäèòå  Г·ГЁГ±Г«Г®');
 readln(n);
kol:=0;
while n<>0 do begin
    if (n mod 10) mod 2=0 then
 kol:=kol+1;
 n:=n div 10;
 end;
write('Г—ГҐГІГ*îå êîë-ГўГ®',kol:2);
end.
2 задание может убывающая или возростающая ?
0
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
15.04.2011, 19:36 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var a:array[1..10000]of integer;i,k:integer;
begin
clrscr;
writeln('вводите числа последовательности');
repeat
i:=i+1;
readln(a[i]);
if i>1 then
if (a[i-1]>a[i])and(a[i]<>9999) then k:=k+1;
until a[i]=9999;
if k+1=i-1 then writeln('убывающая')
else writeln('Не убывающая');
end.
Вот вторая
0
валерасай
5 / 5 / 2
Регистрация: 15.04.2011
Сообщений: 21
15.04.2011, 19:47  [ТС] 7
мы массивы не прошли можно как нить без них
0
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
15.04.2011, 20:16 8
Тогда так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a,i,k,b:integer;
begin
clrscr;
writeln('вводите числа');
repeat
i:=i+1;
readln(a);
if i>1 then
if (b>a)and(a<>9999) then k:=k+1;
b:=a;
until a=9999;
if k+1=i-1 then writeln('убывающая')
else writeln('Не убывающая');
end.
1
валерасай
5 / 5 / 2
Регистрация: 15.04.2011
Сообщений: 21
15.04.2011, 20:25  [ТС] 9
спасибо

Добавлено через 5 минут
а еще один
4. По заданной формуле общего члена последовательности Ai вычислить сумму всех членов последовательности, величина которых больше заданного числа r.(использовать цикл while)
Ai=sin(x)/ i!
r=0.05
заранее огромное спасибо
0
15.04.2011, 20:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2011, 20:25

Уравнение на Паскали...срочно надо решить
Помогите пожалуйста решить задачки которые находятся на картинках..

Олимпиадная задача, котроую срочно надо решить
Эта задача вышла у нас на олимпиаде, и никто её не смог решить. Хочу узнать как...

надо решить задачу: a*b=x,надо вывести х, а когда a и b равны 0, то написать что корней множество, а когда a или b равен 0, то вывести что корней нет
Здравствуйте господа... У меня вот такая проблема, на завтра надо решить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru