Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
epique
0 / 0 / 0
Регистрация: 09.06.2011
Сообщений: 3
#1

Алгоритмы и массив!!!

09.06.2011, 13:46. Просмотров 963. Ответов 1
Метки нет (Все метки)

1.Даны числа X и Y. Вычислить Z=f(T,P). (Линейный алгоритм)
T= ln x / (x+sin(x-y)) ; P=квадратный корень из x+y / 2xy ; Z= P-T .
2.Даны два числа А и В. Если А>В, то возвести А в квадрат и вывести полученное значение, в противном случае вывести значение В. .(Ветвящийся алгоритм)
3.Получить значения функции Y=F(x) с использованием цикла(do ..).
F(x)=х+1 для х=1.5;1.6;….;2.5(Циклический алгоритм)
4.Дан массив А(10). Найти сумму положительных элементов. (Обработка массива)


Помогите решить, пожалуйста! Нужно помочь девушке, сама лет так 5 назад в этом хорошо разбиралась, но практики давно не было( Пытаюсь сама что-то сделать, но не получается((((
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2011, 13:46
Ответы с готовыми решениями:

Дан одномерный массив натуральных чисел.Определить сумму элементов массива,сумма цифр которых кратна 3.Все вспомогательные алгоритмы оформить в отдель
Дан одномерный массив натуральных чисел.Определить сумму элементов...

разветвляющиеся алгоритмы
3) Задача по разветвляющимся алгоритмам Определить значение...

Разветвляющиеся алгоритмы
На оси ОХ расположены три точки: a,b,c.Определить,какая из точек,b или...

Рекурсивные алгоритмы
Вычислить:

Циклические алгоритмы
Написать программу, которая вычисляет, сколько лет сможет полноценно...

1
MaiLoJ
28 / 28 / 26
Регистрация: 04.05.2011
Сообщений: 86
09.06.2011, 14:11 #2
Лучший ответ Сообщение было отмечено epique как решение

Решение

4)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var A:array [1..10] of integer;
    i,SumP:integer;
 
Begin
 For i:=1 to 10 do begin
  write('A[',i,'] = ');
  readln(A[i]);
 End;
 SumP:=0;
 
 
 For i:=1 to 10 do if A[i] > 0 then SumP:=SumP + A[i];
 
 write('Summa = ',SumP);
End.
Добавлено через 4 минуты
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var A,B:integer;
 
Begin
 write('A = ');readln(A); write('B = ');readln(B);
 
 if A > B then begin
  A:=A*A;
  write('A = ',A);
 end
          else
           write('B = ',B);
End.
Добавлено через 38 секунд
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var A,B:integer;
 
Begin
 write('A = ');readln(A); write('B = ');readln(B);
 
 if A > B then begin
  A:=A*A;
  write('A = ',A);
 end
          else
           write('B = ',B);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2011, 14:11

Линейные алгоритмы
1).Дано четырёхзначное натуральное число:выяснить является ли это число...

Линейные алгоритмы
Puporev, можешь теперь помочь? :-*

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


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

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

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