ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Модификация двумерных массивов
| Начало |
| i:=1, N |
| j:=1, M |
| Ввод A[I,j] |
| i:=1, N |
| i:=1, M |
| Вывод A[I,j] |
| Перевод строки |
| j mod 2 = 0 |
| A[i,j]:=A[i,j] mod 10 |
| i:=1, N |
| j:=1, M |
| i:=1, N |
| i:=1, M |
| Вывод A[I,j] |
| Перевод строки |
| Конец |
program Z13;
const Nmass=10;
var A:array[1..Nmass,1..Nmass] of integer;
N,M,i,j: byte;
begin
cls;
writeLn('Введите число элементов в массиве A');
readLn(N,M);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
writeLn('Исходный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to N do
for j:=1 to M do
if j mod 2 = 0 then A[i,j]:=A[i,j] mod 10;
writeLn;
writeLn('массив A после изменения:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
end.
Расчеты в файлах
| Начало |
| i:=1, 15 |
| Not EOF(F) |
| assign(f,'f.dat') |
| rewrite(f) |
| F←b |
| Ввод b |
| reset(f) |
| P:=1 |
| b←F |
| abs(b) > 7 or abs(b) < 2 |
| p:=p*b |
| K > 0 |
| Вывод P |
| В файле нет подходящих элементов |
| K:=k+1 |
| K:=0 |
| close(f) |
| Конец |
program Z14;
var b,p,k,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 9 компонент файла f:');
for i:=1 to 15 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;
reset(f);
p:=1;
k:=0;
while not EOF(f) do
begin
read(f,b);
if (abs(b) > 7) or (abs(b) < 2) then
begin
p:=p*b;
K:=k+1;
end;
end;
if k>0 then writeLn('произведение =',p) else
writeLn('в файле нет подходящих элементов');
close(f);
end.
Модификация файлов
| Начало |
| assign(f,'f.dat') |
| rewrite(f) |
| b←F |
| reset(f) |
| i:=1 |
| K:=0 |
| Ввод b |
| b≠777 |
| F←b |
| i:=i+1 |
| Ввод b |
| Not EOF(F) |
| Вывод b |
| Not EOF(F) |
| b←F |
| (b<5) and (b>-3) |
| k:=k+1 |
| K mod 2 = 0 |
| seek(f,filepos(f)-1) |
| b:=1 |
| F←b |
| Конец |
| b←F |
| reset(f) |
| Not EOF(F) |
| Вывод b |
program Z15;
var b,i,k:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f или признак конца ввода: "777")');
rewrite(f);
readLn(b);
i:=1;
k:=0;
while b<>777 do
begin
write(f,b);
i:=i+1;
writeLn('введите ',i,'-ю компоненту файла f');
readLn(b);
end;
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
reset(f);
while not EOF(f) do
begin
read(f,b);
if (b<5) and (b>-3) then
begin k:=k+1;
if k mod 2 = 0 then
begin
seek(f,filepos(f)-1);
b:=1;
write(f,b);
end;
end;
end;
reset(f);
writeLn('файл f после изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
close(f);
end.
Не нашли, что искали? Воспользуйтесь поиском: