Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Дан целочисленный массив https://www.cyberforum.ru/ pascal/ thread2334621.html
Дан целочисленный массив B(40). Получить наименьший элемент последователь-ности {b1+b2; b3+b4; ...; b39+b40}. Вывести на экран исходный массив, наименьший эле-мент и номера элементов, из которых он...
Pascal Найти сумму первых k чисел последовательности Фибоначчи
Рассмотреть решение предложенной задачи с использованием всех трех видов циклов. Отладить программу с наиболее рациональным вариантом цикла. Обосновать выбор. Текст задачи: Найти сумму первых k...
Составить программу, которая будет генерировать случайные целые числа в интервале [a;b] и заполнять ими двумерный массив Pascal
Составить программу, которая будет генерировать случайные целые числа в интервале и заполнять ими двумерный массив n*n, размер массива и границы интервала вводит пользователь. Вывести на экран...
Pascal Решить уравнение методом касательных (Ньютона) с заданной точностью Решить уравнение 3\left|x \right|-3ln(x+2)-4=0 методом касательных(Ньютона) с точностью 0,0001 на интервале Program Lab4; uses crt; Const Eps=0.0001; h=0.25; Function F(xf:real):real; ... https://www.cyberforum.ru/ pascal/ thread2334438.html
Pascal Вычислить координаты точек пересечения прямой y  =  kx с окружностью x2 + y2 = r2 https://www.cyberforum.ru/ pascal/ thread2334413.html
Заданы: r – радиус окружности с центром в точке (0, 0), k – тангенс угла наклона прямой y = kx к оси Ox. Вычислить координаты точек пересечения прямой y  =  kx с окружностью x2 + y2 = r2
Вычислить координаты точки (x, y), которая делит отрезок в отношении N1/N2 Pascal
Заданы координаты концов отрезка (x1, y2) и (x2, y2) и два целых числа N1, N2. Вычислить координаты точки (x, y), которая делит отрезок в отношении N1/N2: если L = N1/N2, то...
Написать программу, вычисляющую расстояние S от точки с координатами (p, q) до прямой Pascal
Написать программу, вычисляющую расстояние S от точки с координатами (p, q) до прямой, описываемой уравнением Ах + Ву + С = 0, по формуле: S=|Ap+Bq+C|/√A^2+B^2
Pascal Дан список группы в 10 человек. Определить число встречающихся имен HELP:wall: Задание Дан список группы в 10 человек в виде ФАМИЛИЯ ИМЯ ОТЧЕСТВО 20 символов 10 симв. 15 симв. Данные в одной строке отделяются друг от друга пробелами. Определить число... https://www.cyberforum.ru/ pascal/ thread2334385.html
Pascal Найти решение системы уравнений https://www.cyberforum.ru/ pascal/ thread2334265.html
Найти решение системы уравнений: ax+by=c dx+ey=f
Pascal Найти все треугольники которые стороны не превышающие 30, и есть целые числа. Площадь тоже целое число Найти все треугольники которые стороны не превышающие 30, и есть целые числа. Площадь тоже целое число. В конце программы показывают количество треугольников. Ничего не вводит, появляется на... https://www.cyberforum.ru/ pascal/ thread2334065.html
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
15.10.2018, 13:01 0

Выполнить поставленную задачу, используя средства управления вводом/выводом

15.10.2018, 13:01. Показов 599. Ответов 1
Метки (Все метки)

Ответ

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
uses crt;
const mx=6;
var a:array[1..mx,1..mx] of integer;
    n,i,j,x:integer;
begin
repeat
write('Введите размер массива от 2 до ',mx,' n=');
readln(n);
until n in [2..mx];
clrscr;
writeln('Исходный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*j+i;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to n div 2 do
for i:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,n-j+1];
  a[i,n-j+1]:=x;
 end;
gotoXY(20,1);
write('Измененный массив');
for i:=1 to n do
 begin
  gotoXY(18,i+1);
  for j:=1 to n do
  write(a[i,j]:4);
 end;
end.


Вернуться к обсуждению:
Выполнить поставленную задачу, используя средства управления вводом/выводом
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.10.2018, 13:01

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Необходимо выполнить задачу с массивами с вводом из внешнего файла
Я ее решил в принципе теперь нужно сделать ввод из внешнего файла. Program ABCCC; var A,B ...

Файловая система и система управления вводом-выводом в ОС Linux
Дали задание написать вот что: "Разработать программу, которая выводит на экран содержимое...

[CRON] Не выполняет поставленную задачу
Файл upjob который идет в crontab SHELL=/bin/sh MAILTO=root 5 * * * * /home/user/data/parse.sh ...

Как выполнить задачу, используя таблицу?
Вот у меня есть программа которая решает функцию и выводит полученные данные в таблицу. #include...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.