|
Задача на матрицу №2
|
|
| ViRuS | Дата: Вторник, 25.11.2008, 04:28 | Сообщение # 1 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Помогите решить!!!
Вот условие:  качества скрина фиговое, короч там aij= 1 / (i+j)
Сообщение отредактировал ViRuS - Вторник, 25.11.2008, 04:30 |
| |
| |
| Alexander | Дата: Вторник, 25.11.2008, 04:47 | Сообщение # 2 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| ну и в чём проблема?
Скажем дружно- нафиг нужно!
|
| |
| |
| Seqular | Дата: Вторник, 25.11.2008, 06:42 | Сообщение # 3 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Code Uses CRT;
Var a: Array[1..23, 1..17] of Real;
i,j: Byte;
Begin
ClrScr;
For i := 1 to 23 do
Begin
For j := 1 to 17 do
Begin
a[i,j] := 1/(i+j);
Write(a[i,j]:0:1, ' ');
End;
Writeln;
End;
ReadKey;
End.
Вот так она заполняется и выводится. Если нужно более точная, измени формат вывода с 1 знака после запятой на 4. Тогда увидишь, что работает, но в экран не влезет 
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| ViRuS | Дата: Вторник, 25.11.2008, 06:46 | Сообщение # 4 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Seqular, респект вам!!! Не хотите я вам за бесплатно для вашего замечательного сайта домен в зоне net.ru сделаю?
|
| |
| |
| Seqular | Дата: Вторник, 25.11.2008, 06:58 | Сообщение # 5 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| ViRuS, Наверное хотим Тока вот что делать, зеркало?
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| ViRuS | Дата: Вторник, 25.11.2008, 07:00 | Сообщение # 6 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Seqular, давай в аське перетрём, мой номер 6474868
|
| |
| |
| Alexander | Дата: Вторник, 25.11.2008, 07:58 | Сообщение # 7 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| а какая разница? что .net.ru, что .ucoz.ru всё домены третьего уровня.
Скажем дружно- нафиг нужно!
|
| |
| |
| ViRuS | Дата: Среда, 26.11.2008, 06:23 | Сообщение # 8 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Alexander, как минимум короче на 1 букву Добавлено (25.11.2008, 23:23)
---------------------------------------------
Вот вопрос
Code
Program Zadanie7;
Uses CRT;
Var a: Array[1..23, 1..17] of Real;
i,j: Byte;
Begin
ClrScr;
For i := 1 to 23 do
Begin
For j := 1 to 17 do
Begin
a[i,j] := 1/(i+j);
Write(a[i,j]:0:1, ' ');
End;
Writeln;
End;
ReadKey;
End. Write(a[i,j]:0:1, ' '); --а зачем тут пустые ковычки нужны???
|
| |
| |
| Alexander | Дата: Среда, 26.11.2008, 09:02 | Сообщение # 9 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Quote (ViRuS) Write(a[i,j]:0:1, ' '); --а зачем тут пустые ковычки нужны???
не нужны, надо формат вывода подогнать, а не пробелы доставлять.
Скажем дружно- нафиг нужно!
|
| |
| |
| ViRuS | Дата: Среда, 26.11.2008, 19:15 | Сообщение # 10 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Alexander, короче Write(a[i,j]:0:1); -вот так лучше оставить
|
| |
| |
| Seqular | Дата: Среда, 26.11.2008, 19:25 | Сообщение # 11 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| ViRuS, пустые кавычки (а точнее кавычки с пробелом) нужны, чтобы отделять элементы друг от друга при выводе. Можешь сделать форматов вывода, можешь пробелами. Кому как нравится.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| ViRuS | Дата: Среда, 26.11.2008, 20:44 | Сообщение # 12 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Seqular, а ясно
|
| |
| |
