Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 11.05.2010
Сообщений: 4
1

Использование процедур

11.06.2010, 08:48. Показов 1189. Ответов 1
Метки нет (Все метки)

Ребят помогите пожалуйста написать программу))) Подруга сидит на экзамене, а у меня не получается она.
Даны массивы:
{Fk}, k=1..k1; {Wk}, k=1..k2; {Tk},k=1..k3.
k1,k2,k3 - целые, не больше 40, 35 и 50 соответственно.
Выбрать из каждого массива элементы, удовлетворяющие условию 0,9≤|элемент|≤7,5 и записать их в порядке убывания соответственно в массивы {Ai}, {Bj}, {Dn}. Использовать PROCEDURE
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2010, 08:48
Ответы с готовыми решениями:

использование процедур
боже, помогите решить задачу! последняя лаба плииииииииииииииииииз ...

использование процедур
Даны действительные числа a, b, c. Получить (max(a,a+b)+max(a,b+c))/(1+max(a+bc, 1,15))

Использование процедур
Помогите, пожалуйста, решить две задачи с использованием процедур. Задача 1. Для элементов...

Использование стандартных процедур и функций
Составьте программу, которая по числу <1000, написанному арабскими цыфрами, формирует его...

1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
11.06.2010, 09:35 2
Лучший ответ Сообщение было отмечено Kristione как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt;
const nmax=50;
type mas=array [1..nmax] of real;
var n:byte;
procedure Vvod(var v:mas;mx:byte;var x:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,' до ',mx,' = ');
readln(x);
until x in [1..mx];
writeln('Исходный массив ',c);
for i:=1 to x do
 begin
  v[i]:=10*random;
  write(v[i]:0:2,' ');
 end;
writeln;
writeln;
end;
procedure Vyvod(v:mas;x:byte;var t:mas;var y:byte;c:char);
var i,j:byte;
    b:real;
begin
y:=0;
for i:=1 to x do
if (v[i]>=0.9)and(v[i]<=7.5) then
 begin
  y:=y+1;
  t[y]:=v[i];
 end;
if y=0 then writeln('В исходном массиве нет элементов из диапазона ;0.9;7.5]')
else
 begin
  for i:=1 to y-1 do
  for j:=i+1 to y do
  if t[i]<t[j] then
   begin
    b:=t[i];
    t[i]:=t[j];
    t[j]:=b;
   end;
  writeln('Массив ',c);
  for i:=1 to y do
  write(t[i]:0:2,' ');
  writeln;
  writeln;
 end;
end;
var f,w,t,a,b,d:mas;
    k1,k2,k3,n1,n2,n3:byte;
begin
clrscr;
Vvod(f,40,k1,'F');
Vyvod(f,k1,a,n1,'A');
Vvod(w,35,k2,'W');
Vyvod(w,k2,b,n2,'B');
Vvod(t,50,k3,'T');
Vyvod(t,k3,d,n3,'D');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2010, 09:35

Использование процедур и функций в Pascal
Может кто чего знает по этим двум задачкам подскажите пожалуйста... 1)Ввести два числа....

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

Решение задачи с использование процедур и функций
Нужно решить эту задачу через процедуры и функции: Даны натуральное число n, действительное число...

Операция над матрицей. Использование процедур
Дано матричное выражение H=5*B+(2XT*X)T*XT*Y Размерность матриц В подбирается самостоятельно Но...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru