Задачи - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи (Помогите пожалуйста завтра экзамен)

Задачи

1. Дан массив Х из 30- ти вещественных элементов. Подсчитать в нем количество троек образованных рядом стоящими элементами для которых выполняется условие:Х[i-1]<X<X[i+1]
2. Задан текст Т в виде массива символов. Текст состоит из слов, содержащих буквы и отделенных друг от друга одним или несколькими пробелами а конце символ точка. Посчитать количество букв в тексте.
3. Дан массив Х из n числовых элементов. Найти в массиве самую длинную подряд идущую последовательность элементов со строго убывающими значениями: Х>X[i+1]>...X
4. Заданна таблица размером n*n содержащая целые числа. Каждая из клеток таблицы находится на пересечении двух диагоналей состоящих из элементов таблицы. Требуется обнулить все диагонали на пересечении которых находится нулевой элемент.

Добавлено (15.08.13, 15:24)
---------------------------------------------
Срочно просто умоляю

№1 | Автор: Макси | 2013-08-15, 15:24 | Репутация: [ + 0 ]

сессия поздновато пришла)
1.
var
x:array[1..30]of integer;
i, amount:byte;
begin
amount:=0;
for i:=1 to 30 do
read(x);
for i:=2 to 29 do
if (x[i-1]<x) and (x<x[i+1]) then amount:=amount+1;
writeln(amount);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2013-08-15, 21:48 | Репутация: [ + 211 ]

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2013-08-15, 21:48 | Репутация: [ + 211 ]

Спасибо:)это вступительные экзамены

№3 | Автор: Макси | 2013-08-16, 10:01 | Репутация: [ + 0 ]

Здравствуйте нужжна помощь с решением задачи на паскале... вообщем вот задача С КЛАВИАТУРЫ СЧИТЫВАЕТСЯ 3 ЦЕЛЫХ ЧИСЛА ВЫВЕСТИ НА ЭКРАН КОЛ-ВО ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ И КОЛ-ВО ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ.
ОЧЕНЬ СРОЧНО ЕСЛИ ВОЗМОЖНО

№4 | Автор: vasea19 | 2013-09-10, 18:43 | Репутация: [ + 0 ]

var
a,b,c,q,w:byte;
begin
read(a,b,c);q:=0;w:=0;
if (a > 0) then q:=q+1 else w:=w+1;
if (b > 0) then q:=q+1 else w:=w+1;
if (c > 0) then q:=q+1 else w:=w+1;
writeln(q,' ',w);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№5 | Автор: Berestovskiy | 2013-09-11, 08:43 | Репутация: [ + 211 ]

ПОмогите решить задачу по паскалю !!! Используя оператор While написать программу которая выведет на экран сумму и произведение первых n чисел!!

№6 | Автор: vasea19 | 2013-09-24, 19:56 | Репутация: [ + 0 ]

var
i,n,sum,pr:integer;
begin
sum:=0;pr:=1;
read(n);i:=1;
while i<=n do begin
sum:=sum+1;
pr:=pr*i;
i:=i+1;end;
writeln(sum,' ',pr);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№7 | Автор: Berestovskiy | 2013-09-26, 09:35 | Репутация: [ + 211 ]

Требуется посчитать сумму целых чисел от 1 до N.

№8 | Автор: mariab08 | 2013-09-28, 06:22 | Репутация: [ + 0 ]

var
i,sum,n:integer;
begin
read(n);
sum:=0;
for i:= 1 to n do
sum:=sum+i;
writeln(sum);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№9 | Автор: Berestovskiy | 2013-09-28, 13:49 | Репутация: [ + 211 ]

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№9 | Автор: Berestovskiy | 2013-09-28, 13:49 | Репутация: [ + 211 ]

Помогите пожалуйста решить задачку!!! Лесенкой называется набор кубиков, в котором каждый более верхний слой содержит кубиков меньше, чем предыдущий. Требуется написать программу, вычисляющую число лесенок, которое можно построить из N кубиков.

Добавлено (05.10.13, 11:47)
---------------------------------------------
помогите решить эту задачку!!! Требуется вычислить факториал целого числа N. Факториал обозначают как N! и вычисляют по формуле:N! = 1 * 2 * 3 * … * (N-1) * N, причем 0! = 1.Так же допустимо рекуррентное соотношение: N! = (N-1)! * N

№10 | Автор: mariab08 | 2013-10-05, 11:47 | Репутация: [ + 0 ]

Факториал:
function fact(x:integer):integer;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№11 | Автор: Berestovskiy | 2013-10-05, 15:20 | Репутация: [ + 211 ]

До завтра должно быть сделано..помогите пожалуйста...
1.Разработатьалгоритм и программу, в которой с помощью оператора While протабулировать функцию y=2*b3-x/4a , диапазон изменения х от 8 до 15 сшагом 0,6.
2.Одномерный массив.
Дан массив A размера 10. Найтиминимальный элемент из его элементов с четными номерами: A2, A4, A6, . . . .

№12 | Автор: semechka | 2013-10-20, 09:37 | Репутация: [ + 0 ]

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи (Помогите пожалуйста завтра экзамен)

Страница 1 из 1
1

прикладная математика