Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Ввод и вывод элементов двумерного массива.



Читайте также:
  1. I. Гашение дуги с помощью полупроводниковых элементов
  2. II этап Развитие грудобрюшного типа дыхания с включением элементов дыхательной гимнастики А.Н. Стрельниковой
  3. II. Мышление и логика, логические законы, последовательность, долженствование, умозаключения и вывод
  4. II.3.2. Эффекты взаимного влияния элементов
  5. III. Выводы
  6. III. Выводы
  7. ORDER BY позволяет упорядочивать выводимые записи в соответствии со значениями одного или нескольких выбранных столбцов.

(Фрагменты программ)

Ввод в столбец с комментариями:

WRITELN(‘Введите кол-во строк: ’);

Readln(N);

WRITELN(‘Введите кол-во столбцов: ’);

Readln(М);

For I:=1 to N do

For J:=1 to M do

Begin

WRITE(‘A[‘, I, ‘ ‘, J, ’]=’); Readln(A[I,J]);

end;

Ввод в виде таблицы:

WRITELN(‘Введите кол-во строк: ’);

Readln(N);

WRITELN(‘Введите кол-во столбцов: ’);

Readln(М);

For I:=1 to N do

For J:=1 to M do

Begin

Readln(A[I,J]);

end;

 

Генерация элементов массива с помощью функции случайных чисел:

WRITELN(‘Введите кол-во строк: ’);

Readln(N);

WRITELN(‘Введите кол-во столбцов: ’);

Readln(М);

Randomize;

For I:=1 to N do

begin

For J:=1 to M do

Begin

A[I,J]:=Random(100)-50;

WRITE(A[I,J]:4);

end;

WRITELN;

end;

 

Вывод матрицы по строкам:

For I:=1 to N do

begin

For J:=1 to M do

Begin

WRITE(A[I,J]:4);

end;

WRITELN;

end;

 

 

Пример: Построить календарь на следующий год, то есть при вводе номера месяца и числа выдавать день недели.

program Calendar;

type tWeekDay = (Mon,Tue,Wed,Thu,Fri,Sat,Sun,NoDay);

{NoDay - нет дня (например, 30.02)}

tCalendar = array [1..12,1..31] of tWeekDay;

var CL: tCalendar;

m,d: byte; {месяц и число}

wd: tWeekDay; {день недели}

 

begin

{Строим массив:}

{1. Заполним весь календарь значениями "нет дня":}

for m:=1 to 12 do

for d:=1 to 31 do CL[m,d]:=NoDay;

{2. Строим массив-календарь:}

m:=1; d:=1;

wd:=Mon;

repeat

CL[m,d]:=wd;

case m of

4,6,9,11: if d=30 then begin m:=m+1; d:=1; end else d:=d+1;

1,3,5,7,8,10,12: if d=31 then begin m:=m+1; d:=1; end else d:=d+1;

2: if d=28 then begin m:=m+1; d:=1; end else d:=d+1;

end;

wd:=tWeekDay((ord(wd)+1) mod 7);

until m=13;

{Выводим на экран:}

repeat

write('Номер месяца > '); readln(m);

write('Число > '); readln(d);

case CL[m,d] of

Mon: writeln('Понедельник');

Tue: writeln('Вторник');

Wed: writeln('Среда');

Thu: writeln('Четверг');

Fri: writeln('Пятница');

Sat: writeln('Суббота');

Sun: writeln('Воскресенье');

NoDay: writeln('Такого дня нет в календаре');

end;

until false;

end.

 



Дата добавления: 2015-07-11; просмотров: 156 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.005 сек.)