IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите с задачами плз..., Задачи на 1-,2-мерный массивы
сообщение
Сообщение #1


Гость






Помогите а?


8.9. type ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);
var год: array [1..365] of ДеньНедели;

Присвоить каждому элементу год[i] название того дня недели, на который
приходится i-й по счету день невисокосного года, если известно, что 1
января - среда (год[1] := ср; год[2] := чт; и т.д.).

9.30.
Программа. Определить, является ли заданная
целая квадратная матрица 10-го порядка ортоно-
рмированной, т.е. такой, в которой скалярное
произведение каждой пары различных строк равно
0, а скалярное произведение каждой строки на
себя равно 1.

Есть код к первой проге...но не могу понять в чем ошибка, ко второй проге тока тупо создан массив, на то фто делать дальше слегка не хватает серого вещества...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






8_9
Program Vremena_menajutca;
uses crt;
type DenNedeli = (pn,vt,sr,cht,pt,sb,vs);
var i:integer; god:array [1..365] of DenNedeli; a:DenNedeli;
begin
clrscr;
a:=pn;
for i:=1 to 365 do
begin
god[i]:=succ(succ(a));
a:=succ(a);
writeln(god[i]);
end;
readkey;
end.


9_30
Program OpToHopMupoBaHHocTb;
uses crt;
const n=10;m=10;
var massiv: array [1..n,1..m] of integer;i,j:integer;
begin
clrscr;
writeln('BoT 3aqaHHblu MaccuB:');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
massiv[i,j]:=random(10);
write(massiv[i,j]:2);
end;
writeln;
end;
writeln;
readkey;
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Цитата
8_9
Program Vremena_menajutca;
uses crt;
type DenNedeli = (pn,vt,sr,cht,pt,sb,vs);
var i:integer; god:array [1..365] of DenNedeli; a:DenNedeli;
begin
clrscr;
a:=pn;
for i:=1 to 365 do
begin
god[i]:=succ(succ(a));
a:=succ(a);
writeln(god[i]);
end;
readkey;
end.

Гость, к перечислимым типам нельзя применять Writeln /Readln mad.gif

Сообщение отредактировано: Client -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 1
Пол: Женский

Репутация: -  0  +


Помогите решить задачу!!!!Пожалуйста!!!Оч срочно!!!
Для натуральных чисел a и n вычислить a в степени n.Ограничение 1<=a<=9;1<=n<=7000.

Сообщение отредактировано: Iryn4ik -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


гость , он же JuFsu, это теперь так модно чтоли, задавать вопрос, самому на него отвечать и выкладывать при этом не компилирующийся код ? dry.gif

Iryn4ik Зачем задавать свои вопросы в чужих темах ? Тебе явно разбираться с этим: Длинная арифметика


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






[quote name='klem4' date='18.11.2007 22:18' post='112944']
гость , он же JuFsu, это теперь так модно чтоли, задавать вопрос, самому на него отвечать и выкладывать при этом не компилирующийся код ? dry.gif

я просто выложил то, что у мя есть...


Client, а что тогда делать?оО как решить проблему?оО
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Если хочешь вывести, то используй не WRITELN, а ORD и CASE
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Нескромный ввопрос - а можно хоть примерно объяснить как
это делать... blink.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


в цикле добвляешь
Case ord(a) of 
0:writeln('pn');
1:writeln('vt');
. . . . . . .
6:writeln('vs');
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Цитата(Client @ 20.11.2007 19:57) *

в цикле добвляешь
Case ord(a) of 
0:writeln('pn');
1:writeln('vt');
. . . . . . .
6:writeln('vs');
end;




и ничего больше?оО Ладно попробую...

А вот вопрос на счет второй задачи все еще в силе...помогите кто чем может, плз...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






Program Vremena_menajutca;
uses crt;
type DenNedeli = (pn,vt,sr,cht,pt,sb,vs);
var i:integer; god:array [1..365] of DenNedeli; a,b:DenNedeli;
begin
clrscr;
a:=pn;
for i:=1 to 365 do
begin
b:=succ(succ(a));
Case ord(b) of
0:write('pn':4);
1:write('vt':4);
2:write('sr':4);
3:write('cht':4);
4:write('pt':4);
5:write('sb':4);
6:write('vs':4);
end;
a:=succ(a);
end;
readkey;
end.



Помогите...программа выводит не все 365 значений( как это исправить?оО
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Гость






Так стоп...но при использовании case мы теряем условие задачи( Нужно что бы значения были в массиве...Аа! wacko.gif Народ, оч прошу...хелп!!!

 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Совсем думать не хотят(
Наводящий вопрос - что тебе даст
a:=succ(a);

когда а=vs? Неужели понедельник?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Гость






эээ...неужели нет?оО тогда это разрушит все мое мировоззрение...как в целом так и в частности относительно паскаля) хм...а фто ж делать то?оО
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Гость






Program Vremena_menajutca;
uses crt;
type DenNedeli = (pn,vt,sr,cht,pt,sb,vs);
var i,l:integer; god:array [1..365] of DenNedeli; a,b:DenNedeli;
begin
clrscr;
a:=pn;
repeat
for i:=1 to 365 do
begin
b:=succ(succ(a));
Case ord(b) of
1:write('pn':4);
2:write('vt':4);
3:write('sr':4);
4:write('cht':4);
5:write('pt':4);
6:write('sb':4);
7:write('vs':4);
end;
a:=succ(a);
end;
l:=l+1;
until l>364;
readkey;
end.

Почему она работает? blink.gif ы...нет в смысле, можно ее по другому сделать? ато кагто масло масленое получилось.... wacko.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Гость






<cut out>...а ведь я снова не учел тот факт, что элементы должны принадлежать массиву god[i] wacko.gif
Щорт просто((( dry.gif нужен хелп...сам не справлюсь....

М
Watch your language.
-- Lapp

 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Гость






Все!!Всем спасипо за помошь!Справился...сдал))
Осталась только вторая задача...хелп...вот условие:
Программа. Определить, является ли заданная
целая квадратная матрица 10-го порядка ортоно-
рмированной, т.е. такой, в которой скалярное
произведение каждой пары различных строк равно
0, а скалярное произведение каждой строки на
себя равно 1.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


http://forum.sources.ru/index.php?showtopic=9420&st=0
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


Гость






Можно просто объяснить или лучше показать на примере, какое-нибудь скалярное произведение в паскале...плз возьмем к примеру матрицу:

5 6 8 4
8 1 3 4
5 2 7 6
3 2 7 1

Заранее...спс)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


Гость






Мда...помощи бы хотелось...а нет никого...(

Вообщем поработал чуток...но так ничво и не вышло....последний вопрос - знаем,что скалярное произведение двух строк будет высчитываться таг: имея массив а, скалярка= a[1,1]*a[2,1]+a[2.1]*a[2,2]+...и тд)
или математически = х1*х2+у1*у2+z1*z2+...и тд)

Вопрос, каг записать в паскале нахождение скалярного для двух строг...причем нужно, чтоб проверялись все возможные пары строк....для скалярного строки само на себя, я построил...а дальше...хелп, кто чем может)

Program OpToHopMupoBaHHocTb;
uses crt;
const n=10;m=10;
var massiv: array [1..n,1..m] of integer;i,j,summa:integer;
begin
clrscr;
writeln('BoT 3aqaHHblu MaccuB:');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
massiv[i,j]:=random(7)-3;
write(massiv[i,j]:3);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
summa:=0;
for j:=1 to m do
begin
summa:=sqr(massiv[i,j])+summa;
end;
write(' 1: ',summa:6);
end;
writeln;
readkey;
end.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.09.2020 20:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name