Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: 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 из 11
Поиск: