Новые сообщения · Правила  
  • Страница 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
Поиск: