Заполните матрицу n×n числами от 1 до n2 по спирали из файла

@darkglaz · Регистрация: 16.11.2009

Author24 — интернет-сервис помощи студентам

Ребят,помогите пожалуйста. Хотел бы на паскале...

1.Заполните матрицу n×n числами от 1 до n2 по спирали, по часовой стрелке, начиная от единицы в левом верхнем углу. Полученную матрицу выведите построчно, разделяя числа пробелами. Программа должна считать число n из файла input.txt и вывести результат в файл output.txt

Формат входного файла.

Входной файл содержит одно целое число n (1 ≤ n ≤ 10).
Формат выходного файла.

Выведите в выходной файл n строк по n чисел — полученную матрицу.

2.
На вход программе подается текст, состоящий не более чем из 200 символов. Текст был зашифрован следующим образом. Сначала определили количество букв в самом коротком слове, обозначив полученное число n (словом называется непрерывная последовательность английских букв, слова друг от друга отделяются любыми другими символами). Затем заменили каждую английскую букву в тексте на следующую за ней n-й по счету в алфавите (алфавит считается циклическим, за буквой Z следует буква А), оставив другие символы неизменными. Строчные буквы при этом остались строчными, а прописные — прописными. Напишите программу, которая будет выводить расшифрованный текст. Программа должна считать выходые данные из файла input.txt и вывести результат в файл output.txt
Формат входного файла.

Входной файл содержит одну строку с текстом. Длина строки не превышает 200 символов.
Формат выходного файла.

Выведите в выходной файл ответ расшифрованный текст.

@Puporev · 27.02.2010, 08:13

1.
Создайте в папке с программой файл input с одним числом от 1 до 10.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses crt;
var f1,f2:text;
    a:array[1..10,1..10]of integer;
    n,i,j:integer;
    x,y,num,add,dir:integer;
begin
clrscr;
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
read(f1,n);
close(f1);
x:=0;{координата по горизонтали=номер столбца}
y:=1;{координата по вертикали=номер строки}
num:=1;{порядковый номер}
Add:=n;{длина пути до поворота}
dir:=1;{направление 1-вправо, вниз, -1-влево, вверх}
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    x:=x+dir;
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
  i:=0;
  add:=add-1;
  while (i<>add) do
    begin
    y:=y+dir;
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
  dir:=dir*(-1);
end;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:4);
    write(f2,a[i,j]:4);
   end;
  writeln;
  writeln(f2,'');
 end;
close(f2);
readln
end.

@darkglaz · 28.02.2010, 13:54 **[ТС]**

а вторую никто не знает как делать?

@Puporev · 28.02.2010, 14:09

darkglaz, Так как-бы создавать файл с зашифрованным текстом совсем не с руки.

Новые блоги и статьи Все статьи Все блоги /
Шаблоны и протоколы для создания устойчивых микросервисов ArchitectMsa 19.04.2025 Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .	Изменяемые и неизменяемые типы в Python py-thonny 19.04.2025 Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .	Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .	Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .

@darkglaz 0 / 0 / 0 Регистрация: 16.11.2009 Сообщений: 14

	Заполните матрицу n×n числами от 1 до n2 по спирали из файла 27.02.2010, 01:20. Показов 4517. Ответов 3 Метки нет (Все метки) Ребят,помогите пожалуйста. Хотел бы на паскале... 1.Заполните матрицу n×n числами от 1 до n2 по спирали, по часовой стрелке, начиная от единицы в левом верхнем углу. Полученную матрицу выведите построчно, разделяя числа пробелами. Программа должна считать число n из файла input.txt и вывести результат в файл output.txt Формат входного файла. Входной файл содержит одно целое число n (1 ≤ n ≤ 10). Формат выходного файла. Выведите в выходной файл n строк по n чисел — полученную матрицу. 2. На вход программе подается текст, состоящий не более чем из 200 символов. Текст был зашифрован следующим образом. Сначала определили количество букв в самом коротком слове, обозначив полученное число n (словом называется непрерывная последовательность английских букв, слова друг от друга отделяются любыми другими символами). Затем заменили каждую английскую букву в тексте на следующую за ней n-й по счету в алфавите (алфавит считается циклическим, за буквой Z следует буква А), оставив другие символы неизменными. Строчные буквы при этом остались строчными, а прописные — прописными. Напишите программу, которая будет выводить расшифрованный текст. Программа должна считать выходые данные из файла input.txt и вывести результат в файл output.txt Формат входного файла. Входной файл содержит одну строку с текстом. Длина строки не превышает 200 символов. Формат выходного файла. Выведите в выходной файл ответ расшифрованный текст. 0

@darkglaz 0 / 0 / 0 Регистрация: 16.11.2009 Сообщений: 14
	28.02.2010, 13:54 [ТС]
	а вторую никто не знает как делать? 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	28.02.2010, 14:09
	darkglaz, Так как-бы создавать файл с зашифрованным текстом совсем не с руки. 0

Опции темы