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

массивы

03.07.2010, 00:15. Просмотров 945. Ответов 1
Метки нет (Все метки)


помогите пожалуйста)
в одномерном массиве упорядочить только четные элементы в порядке убывания любым методом, оставив нечетные на своих местах.
и
определить класс, описывающий комплексное число. написать программу в которой используются методы определенного класса.
заранее спасибо)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2010, 00:15
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Массивы
Помогите пожалуйста справится с это задачей . не получается . задача: даны два массива А и B...

массивы
ребят послезавтра зачет я уже 2 дня ломаю голову над след. задачами а вам наверно делов на 5...

Массивы
Подскажите как в программе записать следующие строки? Определить с помощью FUNCTION для каждого...

1
Модератор
62827 / 46887 / 32314
Регистрация: 18.05.2008
Сообщений: 113,612
03.07.2010, 09:33 2
Лучший ответ Сообщение было отмечено valhalla.inc как решение

Решение

1.
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
uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)+1;
  write(a[i]:4);
 end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i] mod 2=0)and(a[j] mod 2=0)and(a[i]<a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Сортировка четных:');
for i:=1 to n do
write(a[i]:4);
readln
end.
Добавлено через 1 час 3 минуты
В Паскале вообще-то не было классов, только объекты, но если у Вас есть то просто слово object поменять на class.
Программа для арифметических действий с комплексными числами - сложение, вычитание, умножение, деление.
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
62
63
64
65
66
67
68
69
uses crt;
type chislo=record
            re,im:real;
            end;
complex=object
        f,g,z:chislo;
        procedure Vvod;
        procedure Vyvod(var t:chislo);
        procedure Summa;
        procedure Razn;
        procedure Proiz;
        procedure Chast;
        end;
procedure complex.Vyvod;
begin
if t.im<0 then write(t.re:7:1,' -',-t.im:5:1,'i')
else write(t.re:7:1,' +',t.im:5:1,'i');
writeln;
end;
procedure complex.Vvod;
begin
writeln('Введите действительную и мнимую части первого числа:');
readln(f.re,f.im);
writeln('Введите действительную и мнимую части второго числа:');
readln(g.re,g.im);
clrscr;
writeln('Исходные числа:');
Vyvod(f);
Vyvod(g);
end;
 
procedure complex.Summa;
begin
z.re:=f.re+g.re;
z.im:=f.im+g.im;
writeln('Сумма:');
Vyvod(z);
end;
procedure complex.Razn;
begin
z.re:=f.re-g.re;
z.im:=f.im-g.im;
writeln('Разность:');
Vyvod(z);
end;
procedure  complex.Proiz;
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
writeln('Произведение:');
Vyvod(z);
end;
procedure  complex.Chast;
begin
z.re:=(f.re*g.re+f.im*g.im)/(sqr(g.re)+sqr(g.im));
z.im:=(f.im*g.re-f.re*g.im)/(sqr(g.re)+sqr(g.im));
writeln('Частное:');
Vyvod(z);
end;
var x:complex;
begin
clrscr;
x.Vvod;
x.Summa;
x.Razn;
x.Proiz;
x.Chast;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2010, 09:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Массивы?
program lab8; uses crt; type mas=array of integer; procedure Massiv(var...

массивы
Доброго времени суток всем! Прошу помощи с массивами. Задание ниже

Массивы 5з
Вот еще одна задачка с моего варианта... Дана последовательность х1,х2,…,хn. Найти номер...

массивы
В двумерном массиве произвольных чисел найти четные элементы и вывести их как одномерный массив ...


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

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

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