Всем Привет!1. В текстовом файле хранятся квадратные целочисленные матрицы
10-11 класс
|
порядка n. Преобразовать
файл, удалив из каждой матрицы элементы побочной диагонали.
const
n = 3;
type
M = array[1..3, 1..3] of integer;
var
i, j: integer;
f: Text;
a, b: M;
s:string;
begin
Assign(f, 'input.dat');
Reset(f);
writeln('Считываемые данные');
for i := 1 to n do
begin
for j := 1 to n do
begin
read(f, a[i, j]);
write(a[i, j]:4)
end;
writeln
end;
writeln;
for i := 1 to n do
begin
for j := 1 to n do
begin
read(f, b[i, j]);
write(b[i, j]:4)
end;
writeln
end;
Close(f);
Rewrite(f);
for i := 1 to n do
for j := 1 to n do
if j <> n + 1 - i then
write(f, a[i, j], ' ');
writeln(f);
for i := 1 to n do
for j := 1 to n do
if j <> n + 1 - i then
write(f, b[i, j], ' ');
writeln(f);
Close(f);
Reset(f);
writeln('Данные, перезаписанные в файл');
while not eof(f) do
begin
readln(f,s);
writeln(s)
end;
Close(f);
writeln
end.
Тестовое решение:
Считываемые данные
2 3 7
4 3 1
8 9 6
14 3 12
5 -2 8
6 0 13
Данные, перезаписанные в файл
2 3 4 1 9 6
14 3 5 8 0 13
Решить нужно на языке Паскаль
Комментарий удален
Комментарий удален
может быть обнулить элементы диагонали и сместить их в конец каждой строки и вывести без них матрицу. А просто удалить, если массив не строковый не получится
Комментарий удален
Другие вопросы из категории
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
Распределение жилого фонда городского района по типу квартир
№ п./п. Группы квартир по числу комнат Число квартир, (тыс. ед.)
1. Одно 10
2. Двух 35
3. Трех 30
4. Четырех 15
5. Пяти 5
Всего 95
начало
ввод A,B,C
A>B
да нет
A>C B>C
да нет да нет
D:=A D:=C D:=B D:=C
вывод D
конец
в память
б) решает у доски задачу -
в) слушает музыку;
г) пишет письмо;
д) переводит текст с английского языка на русский;
е) пишет диктант.
Напиши цифровой фильтр. На вход программе подаётся строка символов. На выходе должны быть только её цифры. Например, если на входе была строка
He110, k177en!
то на выходе должно быть
110177
2. В строке, состоящей из слов, разделённых одним или несколькими пробелами, вывести второе слово. Например, если на вход программе подавалась строка
Меня истина манит сияньем
то на выходе будет
истина
На вход подаётся строка. Вывести часть входной часть строки. Часть строки задаётся номером первого символа и количеством символов.
var
s: string;
n, k, i: integer;
Begin
readLn(s, n, k);
for i := n to n+k-1 do write(s[i]);
End.
2. На вход подаётся предложение на английском языке. Вывести все гласные строки в том порядке, в котором они встречались в строке.
(ключевой фрагмент)
for i := 1 to length(s) do
if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y']
then write(s[i]);
Варианты программы определения, является ли строка полиндромом
--------------------------------------------------------------
var
s, s1: string;
i: integer;
Begin
readLn(s);
s1 := '';
for i := 1 to length(s) do s1 := s[i] + s1;
write('строка ');
if s1 <> s then write('не ');
writeLn('является полиндромом');
End.
var
s: string;
i, j: integer;
Begin
readLn(s);
i := 1;
j := length(s);
while (i < j) and (s[i] = s[j]) do begin
inc(i);
dec(j);
end;
write('строка ');
if s[i] <> s[j] then write('не ');
writeLn('является полиндромом');
End.
Читайте также
четных столбцов. Если эта сумма положительна, то все элементы нечетных строк возвести в квадрат. В противном случае ко всем элементам побочной диагонали прибавить число 2.
матрица NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты. Подсчитать общее количество чисел, меньших заданного А, и чисел, больших заданного В среди элементов, находящихся ниже побочной диагонали.
наперед и результат записать в файл
о главное, книга должна быть очень интересной, желательно малоизвестной и не большой.
Так же можете кинуть идею сами. Жанр, стиль и т.д. не ограничен. Спасибо всем. P. S. : Я конечно придумала сюжет сама, но хочется послушать еще варианты, вдруг будет что-то интереснее.
в килобайтах.
2) Скорость передачи данных через ADSL-соединение равна 256000 бит/c. Передача файла через это соединение заняла 2 минуты. Определите размер файла в килобайтах.
3) Сколько секунд потребуется обычному модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480 пикселей, при условии, что цвет каждого пикселя кодируется тремя байтами?
4) Скорость передачи данных через модемное соединение равна 51 200 бит/с. Передача текстового файла через это соединение заняла 10 с. Определите, сколько символов содержал переданный текст, если известно, что он был представлен в 16-битной кодировке Unicode.
5) Скорость передачи данных через ADSL-соединение равна 128000 бит/с. Передача текстового файла через это соединение заняла 1 минуту. Определите, сколько символов содержал переданный текст, если известно, что он был представлен в 16-битной кодировке Unicode.
6) Информационное сообщение объемом 2.5 Кбайт передается со скоростью 2560 бит/мин. За сколько минут будет передано данное сообщение?