Новые сообщения · Правила  
Страница 20 из 38«1218192021223738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Обращайся ещё))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
381 | Автор: Berestovskiy | 2012-03-14, 20:46   |  Репутация: [ + 211 ]
var
a,n,i:integer;
begin
a:=2;
while p<100 do begin
read(n);
for i:=1 to n-1 do
a:=a*2;
a:=a+1;n:=n+1;end;
writeln('Poryadkovui nomer
elementa: ',n);
writeln('Element = ',a);
end.
Так будет?
382 | Автор: RamilX | 2012-03-14, 20:49   |  Репутация: [ + 0 ]
Вот так будет:

var
i,q,a,n,p:integer;
begin
a:=2;
n:=1;q:=2;
while p<100 do begin
for i:=1 to q-1 do
a:=a*2;
q:=q+1;
p:=a;
a:=2;
n:=n+1;
end;
writeln(n);
writeln(p);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
383 | Автор: Berestovskiy | 2012-03-14, 21:01   |  Репутация: [ + 211 ]
Спасибо огромное выручил:-)
384 | Автор: RamilX | 2012-03-14, 21:22   |  Репутация: [ + 0 ]
Обращайся))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
385 | Автор: Berestovskiy | 2012-03-14, 21:41   |  Репутация: [ + 211 ]
a вот первую вот так надо по-моему:
Var i,n,a,b,x:integer;
a:=b;
Writeln('введите количество чисел последовательности');
Read(n);
Writeln('вводите последовательность');
Read(a);
For i:=2 to n do
Begin
Read(a);
If a>b then a:=b
End;
If b<a then writeln('убывает') else writeln ('не убывает');
End.
386 | Автор: RamilX | 2012-03-15, 06:58   |  Репутация: [ + 0 ]
Ну тогда попробуй в своей программе ввести:
9
9 8 7 6 5 4 3 2 1
И увидишь как она у тебя правильно работает:))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
387 | Автор: Berestovskiy | 2012-03-15, 09:44   |  Репутация: [ + 211 ]
Я бы и рад проверить но компьютер сломан:'(я с телефона сижу:-)
388 | Автор: RamilX | 2012-03-15, 09:48   |  Репутация: [ + 0 ]
Пойди у друга проверь)))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
389 | Автор: Berestovskiy | 2012-03-15, 10:05   |  Репутация: [ + 211 ]
У меня нет друзей
390 | Автор: RamilX | 2012-03-15, 11:24   |  Репутация: [ + 0 ]
помогите решить задачу срочно нужно
1.переставить i-уюи j-ую строки матрицы
2.число n содержит нечетное количество цифр.среднюю цифру заменить на 7(с помощью цикла while и repeat)

Добавлено (15.03.12, 13:43)
---------------------------------------------
помогите решить задачу срочно нужно
1.переставить i-уюи j-ую строки матрицы
2.число n содержит нечетное количество цифр.среднюю цифру заменить на 7(с помощью цикла while и repeat)

391 | Автор: babenok_kseniya | 2012-03-15, 13:43   |  Репутация: [ + 0 ]
391 | Автор: babenok_kseniya | 2012-03-15, 13:43   |  Репутация: [ + 0 ]
Помогите пожалуйсто!!!!заранее спасибо!!!
Из матрицы В(m,n) сформировать матрицу C(m,n),каждый элемент которой получается путём вычитания из соответствующего элемента матрицы В первого элемента данной строки.
392 | Автор: 375298973678 | 2012-03-15, 13:51   |  Репутация: [ + 0 ]
Var i,n,b,x:integer;
begin;
x:=b;
Writeln('введите количество
чисел последовательности');
Read(n);
Writeln('вводите
последовательность');
Read(x);
For i:=2 to n do
Begin
Read(x);
If x>b then b:=x
End;
If x<b then writeln('убывает')
else writeln ('не убывает');
End .
A вот так правильно? Проверьте, пожалуйста, буду признателен)
393 | Автор: RamilX | 2012-03-15, 14:35   |  Репутация: [ + 0 ]
Quote (RamilX)
У меня нет друзей

Сочувствую


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
394 | Автор: Berestovskiy | 2012-03-16, 01:24   |  Репутация: [ + 211 ]
Quote (babenok_kseniya)
1.переставить i-уюи j-ую строки матрицы

var
a,b:array[1..100]of integer;
c:array[1..100,1..100]of integer;
q,w,i,j,n:integer;
begin
read(n);
read(q,w);
for i:=1 to n do
for j:=1 to n do
read(c[i,j]);
for i:=1 to n do begin
if i=q then
for j:=1 to n do
a[j]:=c[i,j];
if i=w then
for j:=1 to n do
b[j]:=c[i,j];end;
for i:=1 to n do
c[w,i]:=a[i];
for i:=1 to n do
c[q,i]:=b[i];
for i:=1 to n do begin
for j:=1 to n do
write(c[i,j],' ');
writeln;end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
395 | Автор: Berestovskiy | 2012-03-16, 09:58   |  Репутация: [ + 211 ]
Quote (375298973678)
Помогите пожалуйсто!!!!заранее спасибо!!!
Из матрицы В(m,n) сформировать матрицу C(m,n),каждый элемент которой получается путём вычитания из соответствующего элемента матрицы В первого элемента данной строки.


var
a:array[1..100,1..100]of integer;
i,j,n,m:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
for i:=1 to m do
for j:=2 to n do
a[i,j]:=a[i,j]-a[i,1];
for i:=1 to m do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
396 | Автор: Berestovskiy | 2012-03-16, 16:10 | Изменено: Berestovskiy - Пт, 2012-03-16, 16:10   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
396 | Автор: Berestovskiy | 2012-03-16, 16:10 | Изменено: Berestovskiy - Пт, 2012-03-16, 16:10   |  Репутация: [ + 211 ]
Quote (RamilX)
Var i,n,b,x:integer;
begin;
x:=b;
Writeln('введите количество
чисел последовательности');
Read(n);
Writeln('вводите
последовательность');
Read(x);
For i:=2 to n do
Begin
Read(x);
If x>b then b:=x
End;
If x<b then writeln('убывает')
else writeln ('не убывает');
End .
A вот так правильно? Проверьте, пожалуйста, буду признателен)


Не правильно


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
397 | Автор: Berestovskiy | 2012-03-16, 16:10   |  Репутация: [ + 211 ]
Вводится число N. Найти количество пар различных чисел , лежащих в интервале от 2 до N, у которых суммы делителей(не включая сами числа) одинаковы. Пары отличающиеся только порядком чисел считаются одинаковыми.
398 | Автор: sicret | 2012-03-16, 19:51   |  Репутация: [ + 0 ]
напиши пример ввода-вывода, а лучше парочку

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
399 | Автор: Berestovskiy | 2012-03-16, 22:36   |  Репутация: [ + 211 ]
ввод 8 вывод 2(2,3,5,7)
ввод 10 вывод 2 (2,3,5,7)
ввод 25 вывод 5 (2,3,5,7,6,25,11,13,17,23)
ввод 26 вывод 6(2,3,5,7,11,13,17,23,6,25,12,26)
400 | Автор: sicret | 2012-03-17, 06:40   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 20 из 38«1218192021223738»
Поиск: