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

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

15.04.2011, 18:17. Просмотров 403. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос надо бы до понедельника решить (Pascal ABC):

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

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

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

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

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

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

8
Высокий
244 / 244 / 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, то вывести что корней нет
Здравствуйте господа... У меня вот такая проблема, на завтра надо решить...

Если надо что нибудь решить оброщайтесь помогу чем смогу
Если надо что нибудь решить оброщайтесь помогу чем смогу Добавлено через 5...

Выручайте! надо 2 задания решить, Выражение с матрицами и Задание с линейным наближением!
Добрый день! на завтра очень нужно сделать 2 задания, помогите пожалуйста,...


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

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

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