Сразу давайте определимся с алгоритмом. Как реализуется такой вывод? Мы с вами будем использовать как и в прошлой программе, два цикла - один будет вложен в другой. Только нужно соотнести значения циклов так, чтобы выводимый результат был в требуемом виде, то есть на пересечении строки и столбца должно быть произведение соответсвующих чисел. Как поступить? Все просто. Здесь я вам покажу крайне простой и оптимизированный алгоритм, который распечатывает таблицу умножения.
Что представляет из себя таблица умножения? Это произведение строки на столбец. Зная это, мы решаем поставленную перед нами задачу: первый цикл у нас будет считать строки, так ведь? (Вспомните предыдущую программу), а второй (вложенный цикл) считает символы в строке, или столбцы. То есть чтобы получить произведения строки на столбец, нужно просто умножать значения циклов друг на друга! Вот и все, если не понятно, дальше разберетесь.
Текст программы:
Program N2;
var
I,J: Byte;
Begin
For I := 1 to 10 do
Begin
For J := 1 to 10 do
If I*J < 10 then Write(I*J, ' ')
else Write(I*J, ' ');
Writeln;
end;
Readln;
end.
Видите, мы всего лишь умножаем индексы циклов друг на друга, вот и все! Запомните этот алгоритм, а главное, попытайтесь его "ощутить", понять до конца.
Теперь внимательно смотрите на обе процедуры Write.
В первой из них два пробела - Write(I*J,' . . ');
Во второй один - Write(I*J,' . ');
(Здесь не очень хорошо видно, поэтому я выделил их точками).
Как вы думаете, зачем я так поступаю? Всмотритесь в текст программы, на проверку if...then...else. Не догадались? А вы подумайте. Вот это первый вопрос до следующего выпуска. Постарайтесь понять! Наберите программу, здесь все очень просто.