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

Дано натуральное число n. вычислить сумму n. элементов последовательности.
221 | Автор: mastero | 2011-10-27, 19:01   |  Репутация: [ + 0 ]
var
i,n,a:integer;
begin
read(n);
a:=n;
for i:=1 to n do
a:=a*i;
end;

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
222 | Автор: Berestovskiy | 2011-10-27, 19:14   |  Репутация: [ + 211 ]
Сумму надо, а не умножение ))
223 | Автор: HWOARANG | 2011-10-28, 23:37   |  Репутация: [ + 20 ]
223 | Автор: HWOARANG | 2011-10-28, 23:37   |  Репутация: [ + 20 ]
Перепутал с факториалом))
Ну вместо знака * - поставить + и всё заработает)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
224 | Автор: Berestovskiy | 2011-10-29, 00:20   |  Репутация: [ + 211 ]
Ну и вывод на экран не поставил )) Хотя в условии это не сказанно, но думаю что предполагалось.

Добавлено (29.10.11, 18:03)
---------------------------------------------
Хотя даже если заменить умножени на плюс то все равно фигня выйдет.
Допустим мне нужна сумма от 1 до 5.
n=5;
a=5;
1 цикл: a:=a+i(5+1). А уже у нас 6.
2 цикл 6+2
3 8+3
4 11+4
5 15+5
Итого сумма выйдет 20
Хотя 1+2+3+4+5=15

225 | Автор: HWOARANG | 2011-10-29, 18:03   |  Репутация: [ + 20 ]
Ребята, помогите пожалуйста,очень нужно и очень срочно((Заранее спасибо!

1. Дано вещественное число (А>1). Вывести наибольшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет меньше А, и саму эту сумму.

2. Дано натуральное число n. Выяснить входит ли цифра 3 в запись числа n^2, и если нет, то поменять порядок цифр числа n на обратный, в противном случае приписать единицу в начало числа n.
226 | Автор: Lexa | 2011-11-02, 14:56   |  Репутация: [ + 0 ]
226 | Автор: Lexa | 2011-11-02, 14:56   |  Репутация: [ + 0 ]
помогите пожалуйста девушке сделать ргр очень нужно. Спасибо.

Задача 1
Операторы присваивания, ввод и вывод информации

Определите стоимость набора, в который входят следующие конфеты (стоимость упаковки составляет U грн.):
Название Вес Стоимость
Петровские 200 г Кгрн. (1 кг)
Воронежские 300 г Ргрн. (1кг)
Чародейка 250 г RrpH. (I кг)
Факел 150 г Вгрн. (1 кг)
Ласточка 200 г L грн. (1 кг)
Упаковка - U грн. (1 кг)

Задача 2 Условный оператор

Пусть даны координаты трех точек на плоскости. Если они мо¬гут быть вершинами равностороннего треугольника, вычислите его площадь и длину высоты. Выведите длины сторон, площадь и дли¬ну высоты в порядке возрастания значений.

Задача 3 Операторы цикла

Пусть дано натуральное число п. Вычислите: 1*2 + 2*3*4 +... + п *... * 2п.

Задача 4
Регулярные таны данных. Одномерные массивы

Пусть даны натуральные числа k. n. вещественные числа а1,a2,…akn Получите последовательность min(а1, а2,… аk), min(ak+1, ak+2,… а2k),
min(ak(n-1)+1,… аkn).

Задача 5
Двумерные массивы. Процедуры и функции

Пусть задана вещественная матрица. Рассматривая ее как вектор строк, упорядоченные по количеству нечетных элементов в каждой стро¬ке.

Задача 6
Строки, записи, множества. Обзор всех пройденных тем

Пусть задана символьная матрица размерности n х m. Напечатайте все символы, находящиеся в столбцах, элементы которых симметричны.
227 | Автор: as1212 | 2011-11-08, 22:14   |  Репутация: [ + 0 ]
Завтра напишу, сегодня устал..

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
228 | Автор: Berestovskiy | 2011-11-08, 23:51   |  Репутация: [ + 211 ]
Спасибо, жду с нетерпением.
229 | Автор: as1212 | 2011-11-09, 06:57   |  Репутация: [ + 0 ]
помогите пожалуйста
1)Премії працівникам фірми виплачуються залежно від стажу роботи в такому розмірі: при стажі роботи від 1 до 3 років – 75% зарплати; від 3 до 5 років – 100 % зарплати; від 6 до 10 років – 120 %; більше 10 років – 150% зарплати. При стажі роботи менше року премія не виплачується. Визначити розмір премії при заданому стажі роботи і розмірі зарплати.

2) Перевірити, чи є введене ціле додатнє число простим. Простим називається число, яке має тільки два дільники (одиницю і саме це число).
3) Составить программу для подсчёта среднего арифметического элементов линейной таблицы В, состоящей из 20 вещественных чисел, удовлетворяющих условию .


чё за хрень?
230 | Автор: АлинаПК | 2011-11-09, 16:21   |  Репутация: [ + 0 ]
Помогите пожалуйста решить такую задачу:
Выполнить бинарный поиск и поиск методом перебора числа n (n=3) для массива, состоящего из n+50 (n=3) элементов.

Добавлено (12.11.11, 19:30)
---------------------------------------------
Quote (Vova24)
Помогите пожалуйста решить такую задачу: Выполнить бинарный поиск и поиск методом перебора числа n (n=3) для массива, состоящего из n+50 (n=3) элементов.

Либо такую, какую вам будет быстрее и простите за наглость.
Выполнить сортировку массива двумя способами: методом прямого выбора и методом обмена. Ввод элементов массива организовать способом, указанным в варианте задания.
Количество элементов :10. 1) Метод прямого выбора (Вид сортировки: По возрастанию; Организация ввода: Датчик случайных чисел). 2)Метод обмена (Организация ввода:Ввод с клавиатуры; Вид сортировки:По убыванию).
231 | Автор: Vova24 | 2011-11-12, 19:30 | Изменено: Vova24 - Сб, 2011-11-12, 20:13   |  Репутация: [ + 0 ]
231 | Автор: Vova24 | 2011-11-12, 19:30 | Изменено: Vova24 - Сб, 2011-11-12, 20:13   |  Репутация: [ + 0 ]
Quote (Vova24)
Выполнить бинарный поиск




Не ужели нельзя хотя бы попытаться самому найти ответ? Вторая ссылка ведёт на этот же сайт в раздел с примерами, где все лежит уже готовое, осталось только n своё подставить.
232 | Автор: Fireleo | 2011-11-14, 04:54   |  Репутация: [ + 30 ]
Решите пожалуйста два легких задачи)))
Первая-на вывести экран все трехзначные числа которые начинаются и заканчиваются на одну и ту де цифру ваил и репит!
Вторая-вывести экран все трехзначные числа в которых хотябы две цифры повторяются!

Заранее большое спасибо))


rus
233 | Автор: Принц | 2011-11-15, 16:21   |  Репутация: [ + 0 ]
Quote (Принц)
Первая-на вывести экран все трехзначные числа которые начинаются и заканчиваются на одну и ту де цифру ваил и репит!


Ограничения какие?
До какого момента считать?
Спрашиваю дабы не получить "бесконечный" цикл

Насчёт второй задачи - тот-же самый вопрос


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
234 | Автор: Berestovskiy | 2011-11-15, 16:47   |  Репутация: [ + 211 ]
Вывести на экран элементы с четными индексами(для двумерного ммассиваа-суммма индексов должна быь четной?
Вывести на экран положительные элементы с нечетными индексами(для двумерного массива-первый индекс должен быть нечетнымю)?


rus
235 | Автор: Принц | 2011-11-15, 16:58   |  Репутация: [ + 0 ]
помогите решить пожалуйста

Задача: Дана матрица А=(aij)mxn и X=(x1
...
xn).

B=A*X. Найти матрицу В и произведение ненулевых элементов матрицы В.
А=(3.0 8.2 6.0
-4.4 8.0 -15.0
1.7 -9.1 4.1
1.9 2.7 -2.9)

Х=(3.4
2.2
1.9)


2517
236 | Автор: ermilnoname | 2011-11-15, 19:47   |  Репутация: [ + 0 ]
Т.е. дана Матрица А и Матрица Х, получить матрицу В=А*Х?

Quote (ermilnoname)
2517

Респектос))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
237 | Автор: Berestovskiy | 2011-11-15, 21:48   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
Т.е. дана Матрица А и Матрица Х, получить матрицу В=А*Х?

да


2517
238 | Автор: ermilnoname | 2011-11-16, 14:50   |  Репутация: [ + 0 ]
var
a,x:array[1..100]of real;
i,j,n,m:integer;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=1 to m do
read(x[i,j]);
for i:=1 to n do
for j:=1 to m do
write(a[i,j]*x[i,j],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
239 | Автор: Berestovskiy | 2011-11-16, 17:02   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
239 | Автор: Berestovskiy | 2011-11-16, 17:02   |  Репутация: [ + 211 ]
спасибо
Quote (Berestovskiy)
read(a[i,j]);

паскаль пишет что "массив имеет другое количество размерностей", после ]
это что значит?


2517
240 | Автор: ermilnoname | 2011-11-17, 16:30   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Поиск: