Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Kitten
1

Заочнику ландшафтного дизайна нужна помощь в программировании..

05.01.2012, 13:30. Просмотров 1284. Ответов 6
Метки нет (Все метки)

Помогите пожалуйста, очень нужна помощь. Учусь на заочке на ландшафтный дизайн, по программированию полный нуль. А препод свирепствует. Должны знать все говорит.
Теорию хоть как-то понимаю, а вот с практикой совсем туго. Выручайте...

1) Написать программу нахождения разности номеров первого и второго отрицательных значений в последовательности N вводимых вещественных чисел.

2) Написать программу нахождения максимального отрицательного значения в последовательности N вводимых произвольных (как положительных, так и отрицательных) вещественных чисел.

3) Написать программу нахождения номера максимального отрицательного значения в последовательности произвольных целых вводимых чисел с окончанием выбора по вводу признака конца.

4) Написать программу вычисления среднеарифметического последовательно вводимых целых чисел, пропуская отрицательные, с окончанием по вводу признака конца.

5) Написать программу нахождения разности номеров максимального и минимального нечетных значений в последовательности N вводимых чисел.

6) Написать программу вычисления произведения последовательно вводимых чисел для заданного количества чисел, пропуская числа меньшие по модулю чем 0.1.


7) Написать программу нахождения номера наибольшего четного положительного элемента в последовательности N произвольных чисел, вводимых с клавиатуры.

8) Написать программу нахождения максимального отрицательного нечетного значения в последовательности N вводимых произвольных (как положительных, так и отрицательных) чисел.

9) Написать программу нахождения номера минимального положительного значения в последо¬вательности вводимых вещественных чисел с окончанием по вводу признака конца.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2012, 13:30
Ответы с готовыми решениями:

Нужна помощь.
Доброе время суток. Я первый раз сижу в паскале и не могу решить задачи по...

Нужна помощь
Как можно в Паскале округлить до десятка. т.е у меня есть например, 5.58 а мне...

Нужна помощь с рисунком
Вот смотрите програмній код program prakt13_1; uses crt, graph; var...

люди нужна помощь
Пусть значения переменных х и у равны, соответственно, 0,3 и -0,2. Какие...

нужна помощь народ
Даны x, y, z. Найти: min(sqr(x)+sqr(y), sqr(y)+sqr(z))-4.

6
Gluhow
28 / 23 / 20
Регистрация: 12.11.2011
Сообщений: 170
05.01.2012, 13:44 2
Здравствуйте, kitten. Я готов Вам НАПИСАТЬ программу но за пряники. Могу ПОМОЧЬ в рамках форума бесплатно, но только в том случае если Вы выложите СВОЕ решение, которое надо как-то поправить.
0
marusy
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 3
09.01.2012, 16:49 3
Написать программу вычисления номера последнего отрицательного числа из последовательно вводимых произвольных чисел заданного количества.
program pascal
var x,n,i,res : integer;
begin
res = 0;
writeln("n=");
readln(n);
for i:=1 to n do
begin
writeln("введите число");
readln(x)
if x < 0 then res:= i
end;
if res>0 then writeln(res)
else writeln ("выход");
end.
0
Gluhow
28 / 23 / 20
Регистрация: 12.11.2011
Сообщений: 170
10.01.2012, 19:37 4
Ну если поменять res = 0; на res := 0;, то очень похоже на рабочее решение.
0
marusy
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 3
10.01.2012, 22:41 5
спасибо))
0
marusy
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 3
11.01.2012, 00:50 6
а ты не мог бы показать решение к 6 задаче у Kitten, а то все решила, а эту не могу...
если хочешь конечно))
0
Gluhow
28 / 23 / 20
Регистрация: 12.11.2011
Сообщений: 170
11.01.2012, 11:31 7
Я чего-то никак до дому не дойду. Поэтому код без проверки компилятором

6) Написать программу вычисления произведения последовательно вводимых чисел для заданного количества чисел, пропуская числа меньшие по модулю чем 0.1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var x,n,i,res : integer;
begin
 res := 0;
 writeln("n=");
 readln(n);
 for i:=1 to n do
 begin
  writeln("введите число");
  readln(x)
  if abs(x)>0.1 then
  begin
   if res=0 then res:=x else res:=res*x;
  end;
end;
writeln(res);
end.
Это в случае если числа надо просто пропустить. Если надо добиться нужного количества чисел без пропуска, то

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var x,n,i,res : integer;
begin
 res := 0;
 writeln("n=");
 readln(n);
 for i:=1 to n do
 begin
  repeat
  writeln("введите число большее по модулю чем 0.1");
  readln(x)
  until abs(x)>0.1 {ну может быть наоборот abs(x)<=0.1}
   if res=0 then res:=x else res:=res*x;
end;
writeln(res);
end.
Как-то так. Если что не работает, пишите смогу проверить вечером. Наверное...
0
11.01.2012, 11:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2012, 11:31

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

нужна помощь в решении программы
задача такова: Найти кол-во нечётных чисел и чисел кратных 13 в...

Нужна помощь с выводом матрицы...
Нужно из двух массивов по 5 элементов сформировать матрицу ( 5 столбцов и 2...


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

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

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