Помогите а?
8.9. type ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);
var год: array [1..365] of ДеньНедели;
Присвоить каждому элементу год[i] название того дня недели, на который
приходится i-й по счету день невисокосного года, если известно, что 1
января - среда (год[1] := ср; год[2] := чт; и т.д.).
9.30.
Программа. Определить, является ли заданная
целая квадратная матрица 10-го порядка ортоно-
рмированной, т.е. такой, в которой скалярное
произведение каждой пары различных строк равно
0, а скалярное произведение каждой строки на
себя равно 1.
Есть код к первой проге...но не могу понять в чем ошибка, ко второй проге тока тупо создан массив, на то фто делать дальше слегка не хватает серого вещества...
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.
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.
Помогите решить задачу!!!!Пожалуйста!!!Оч срочно!!!
Для натуральных чисел a и n вычислить a в степени n.Ограничение 1<=a<=9;1<=n<=7000.
гость , он же JuFsu, это теперь так модно чтоли, задавать вопрос, самому на него отвечать и выкладывать при этом не компилирующийся код ?
Iryn4ik Зачем задавать свои вопросы в чужих темах ? Тебе явно разбираться с этим: http://forum.pascal.net.ru/index.php?showtopic=2428&hl=%E4%EB%E8%ED%ED%E0%FF+%E0%F0%E8%F4%EC%E5%F2%E8%EA%E0
[quote name='klem4' date='18.11.2007 22:18' post='112944']
гость , он же JuFsu, это теперь так модно чтоли, задавать вопрос, самому на него отвечать и выкладывать при этом не компилирующийся код ?
я просто выложил то, что у мя есть...
Client, а что тогда делать?оО как решить проблему?оО
Если хочешь вывести, то используй не WRITELN, а ORD и CASE
Нескромный ввопрос - а можно хоть примерно объяснить как
это делать...
в цикле добвляешь
Case ord(a) of
0:writeln('pn');
1:writeln('vt');
. . . . . . .
6:writeln('vs');
end;
Case ord(a) of
0:writeln('pn');
1:writeln('vt');
. . . . . . .
6:writeln('vs');
end;
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.
Так стоп...но при использовании case мы теряем условие задачи( Нужно что бы значения были в массиве...Аа! Народ, оч прошу...хелп!!!
Совсем думать не хотят(
Наводящий вопрос - что тебе даст
a:=succ(a);
эээ...неужели нет?оО тогда это разрушит все мое мировоззрение...как в целом так и в частности относительно паскаля) хм...а фто ж делать то?оО
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.
<cut out>...а ведь я снова не учел тот факт, что элементы должны принадлежать массиву god[i]
Щорт просто((( нужен хелп...сам не справлюсь....
М | Watch your language. -- Lapp |
Все!!Всем спасипо за помошь!Справился...сдал))
Осталась только вторая задача...хелп...вот условие:
Программа. Определить, является ли заданная
целая квадратная матрица 10-го порядка ортоно-
рмированной, т.е. такой, в которой скалярное
произведение каждой пары различных строк равно
0, а скалярное произведение каждой строки на
себя равно 1.
http://forum.sources.ru/index.php?showtopic=9420&st=0
Можно просто объяснить или лучше показать на примере, какое-нибудь скалярное произведение в паскале...плз возьмем к примеру матрицу:
5 6 8 4
8 1 3 4
5 2 7 6
3 2 7 1
Заранее...спс)
Мда...помощи бы хотелось...а нет никого...(
Вообщем поработал чуток...но так ничво и не вышло....последний вопрос - знаем,что скалярное произведение двух строк будет высчитываться таг: имея массив а, скалярка= 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.