Primat.Org ^{15 лет}

прикладная математика

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите составить программы на Паскаль

Помогите составить программы на Паскаль

1)Составить программу на Pascal.Нельзя использовать массивы и вводить в начале работы программы количество исходных данных. Использовать линейные списки.

Построить линейный список из нескольких динамических переменных,содержащих вводимые символы-строчные буквы английского алфавита. После каждого элемента списка вставить ещё по одному элементу, значением которого будет ещё одна такая же буква английского алфавита, как и у предыдущего элемента, только прописная. Вывести полученный список.

2)
Составить программу проверки ортогональности квадратной матрицы заданного порядка (скалярное произведение любой пары различных строк равно 0, а скалярное произведение каждой строки на себя равно одному и тому же числу не равному 0).

Заранее огромное спасибо)

№1 | Автор: kateee | 2011-04-03, 08:20 | Репутация: [ + 0 ]

1) Немного не понял условие....
как я понял при вводе - qwerty, должно вывести qqwweerrttyy?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2011-04-03, 08:42 | Репутация: [ + 211 ]

qQwWeErRtTyY

№3 | Автор: kateee | 2011-04-03, 10:50 | Репутация: [ + 0 ]

держи:)

var
a:string;i:byte;
begin
read(a);
for i:=1 to length(a) do
write(a[i],upcase(a[i]));
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№4 | Автор: Berestovskiy | 2011-04-03, 11:18 | Репутация: [ + 211 ]

Насчёт второй задачи:
пример ввода можно?
и как узнать что она ортогональная, википедию и конспекты лень юзать:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№5 | Автор: Berestovskiy | 2011-04-03, 18:36 | Репутация: [ + 211 ]

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№5 | Автор: Berestovskiy | 2011-04-03, 18:36 | Репутация: [ + 211 ]

Спасибо огромное за помощь)))
Ортогональная матрица - произведение которой на транспонированную матрицу даёт единичную матрицу(также её обратная матрица равна транспонированной матрице). Транспонированная матрица - матрица , полученная из исходной матрицы заменой строк на столбцы.

№6 | Автор: kateee | 2011-04-05, 20:28 | Репутация: [ + 0 ]

const
N=4;
var
a,b,c:array[1..N,1..N]of byte;i,j,k,s:byte;
begin
for i:=1 to N do
for j:=1 to N do begin
read(a[i,j]);b[j,i]:=a[i,j];end;
for i:=1 to N do
for j:=1 to N do begin
c[i,j]:=0;
for k:=1 to N do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];end;
for i:=1 to N do
for j:=1 to N do
if c[i,i]=1 then s:=s+1;
if s=n then writeln('Yes') else writeln('No');
end.

Вроде-бы так...
Проверяй:)
А спасибо, на нашем сайте, выражают повышением репутации (Зелёный плюсик) :)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№7 | Автор: Berestovskiy | 2011-04-06, 09:55 | Репутация: [ + 211 ]

Помогите составить программу
Знайти суму всіх перших чисел від 1 до 10 використавши всі цикли

№8 | Автор: niura65 | 2011-04-06, 18:50 | Репутация: [ + 0 ]

Я Личным сообщением уже отправил!)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№9 | Автор: Berestovskiy | 2011-04-07, 11:21 | Репутация: [ + 211 ]

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите составить программы на Паскаль

Страница 1 из 1
1