Помогите с задачами плз..., Задачи на 1-,2-мерный массивы Опции

[JuFsu]

Помогите а?


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.
 

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. 

[Client]

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

Сообщение отредактировано: Client - 18.11.2007 21:07

[Iryn4ik]

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

Сообщение отредактировано: Iryn4ik - 18.11.2007 21:15

[klem4]

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

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

[Гость]

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

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


Client, а что тогда делать?оО как решить проблему?оО

[Client]

Если хочешь вывести, то используй не WRITELN, а ORD и CASE

[Гость]

Нескромный ввопрос - а можно хоть примерно объяснить как
это делать...

[Client]

в цикле добвляешь

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.

Помогите...программа выводит не все 365 значений( как это исправить?оО

[Гость]

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

[Client]

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

a:=succ(a);

когда а=vs? Неужели понедельник?

[Гость]

эээ...неужели нет?оО тогда это разрушит все мое мировоззрение...как в целом так и в частности относительно паскаля) хм...а фто ж делать то?оО

[Гость]

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

[JuFsu]

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

[Ozzя]

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.