Помогите с задачами плз..., Задачи на 1-,2-мерный массивы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Помогите с задачами плз..., Задачи на 1-,2-мерный массивы |
JuFsu |
Сообщение
#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; 9_30 Program OpToHopMupoBaHHocTb; |
Client |
Сообщение
#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 Сообщение отредактировано: Client - |
Iryn4ik |
Сообщение
#4
|
Группа: Пользователи Сообщений: 1 Пол: Женский Репутация: 0 |
Помогите решить задачу!!!!Пожалуйста!!!Оч срочно!!!
Для натуральных чисел a и n вычислить a в степени n.Ограничение 1<=a<=9;1<=n<=7000. Сообщение отредактировано: Iryn4ik - |
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
гость , он же JuFsu, это теперь так модно чтоли, задавать вопрос, самому на него отвечать и выкладывать при этом не компилирующийся код ?
Iryn4ik Зачем задавать свои вопросы в чужих темах ? Тебе явно разбираться с этим: Длинная арифметика -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Гость |
Сообщение
#6
|
Гость |
[quote name='klem4' date='18.11.2007 22:18' post='112944']
гость , он же JuFsu, это теперь так модно чтоли, задавать вопрос, самому на него отвечать и выкладывать при этом не компилирующийся код ? я просто выложил то, что у мя есть... Client, а что тогда делать?оО как решить проблему?оО |
Client |
Сообщение
#7
|
Профи Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: 20 |
Если хочешь вывести, то используй не WRITELN, а ORD и CASE
|
Гость |
Сообщение
#8
|
Гость |
Нескромный ввопрос - а можно хоть примерно объяснить как
это делать... |
Client |
Сообщение
#9
|
Профи Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: 20 |
в цикле добвляешь
Case ord(a) of |
Гость |
Сообщение
#10
|
Гость |
|
Гость |
Сообщение
#11
|
Гость |
Program Vremena_menajutca; Помогите...программа выводит не все 365 значений( как это исправить?оО |
Гость |
Сообщение
#12
|
Гость |
Так стоп...но при использовании case мы теряем условие задачи( Нужно что бы значения были в массиве...Аа! Народ, оч прошу...хелп!!!
|
Client |
Сообщение
#13
|
Профи Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: 20 |
Совсем думать не хотят(
Наводящий вопрос - что тебе даст a:=succ(a); когда а=vs? Неужели понедельник? |
Гость |
Сообщение
#14
|
Гость |
эээ...неужели нет?оО тогда это разрушит все мое мировоззрение...как в целом так и в частности относительно паскаля) хм...а фто ж делать то?оО
|
Гость |
Сообщение
#15
|
Гость |
Program Vremena_menajutca; Почему она работает? ы...нет в смысле, можно ее по другому сделать? ато кагто масло масленое получилось.... |
Гость |
Сообщение
#16
|
|||
Гость |
<cut out>...а ведь я снова не учел тот факт, что элементы должны принадлежать массиву god[i]
Щорт просто((( нужен хелп...сам не справлюсь....
|
|||
JuFsu |
Сообщение
#17
|
Гость |
Все!!Всем спасипо за помошь!Справился...сдал))
Осталась только вторая задача...хелп...вот условие: Программа. Определить, является ли заданная целая квадратная матрица 10-го порядка ортоно- рмированной, т.е. такой, в которой скалярное произведение каждой пары различных строк равно 0, а скалярное произведение каждой строки на себя равно 1. |
Ozzя |
Сообщение
#18
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
|
Гость |
Сообщение
#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; |
Текстовая версия | 19.03.2024 9:18 |