Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Упорядочить элементы файла так, чтобы сначала следовали все положительные компоненты, а затем все остальные https://www.cyberforum.ru/ turbo-pascal/ thread1401085.html
составить программы с помощью которых: -сформировать файл из целых чисел, которые должны быть введены с клавиатуры; -упорядочить элементы файла так,чтобы сначала следовали все положительные компоненты, а затем все остальные. Помогите пожайлуста!!! 		Turbo Pascal Reverse и ошибка Unkwnonw identifier
unit modulis; Interface const LensStrMod=255; type StrData = string; StrData1 = string;
Turbo Pascal Провести сечение, проходящее через высоту основания, опущенную из тупого угла ромба Основание четырехугольной пирамиды — ромб. Вершина пирамиды проектируется в центр симметрии ромба. Провести се*чение, проходящее через высоту основания, опущенную из тупо*го угла ромба, и боковое ребро, которое проходит через эту же вершину. https://www.cyberforum.ru/ turbo-pascal/ thread1400956.html Turbo Pascal Написать функцию, определяющую сумму полей idn для заданного имени (name) Дан файл структуры name:string; idn:integer; (имя, идентификационный номер). Может быть несколько элементов с одинаковыми именами. Написать функцию, определяющую сумму полей idn для заданного имени (name), и вывести на экран имена элементов, имеющих наибольшую сумму по полю idn в файле. Вывести первые 7 имен. :help: https://www.cyberforum.ru/ turbo-pascal/ thread1400890.html
Вычислить значение функции x, на заданном пользователем интервале, и с указанным шагом Turbo Pascal
Ребят,помогите!Ломаю голову,не могу никак решить задачу.Нужно вычислить значение функции x,на заданном пользователем интервале,и с указанным шагом(у меня это константа,ну роли никакой это не играет).Это действие нужно осуществить ЦИКЛОМ FOR,это условие задачи такое.Как я не крутил,у меня не получается!Вот последняя попытка это ввести еще 2 переменные для округления.Вобщем вот код.Заранее спасибо!... 		Turbo Pascal Определите по количеству кубиков N максимально возможную высоту пирамиды в кубиках Условие: Плоской пирамидой называют набор кубиков, в котором каждый более верхний слой содержит на один кубик меньше, чем предыдущий. Определите по количеству кубиков N максимально возможную высоту пирамиды в кубиках. Входные данные: Во входном потоке задано единственное натуральное число N (1 < N <= 1000). Выходные данные: В выходной поток вывести единственное целое число. Пример... https://www.cyberforum.ru/ turbo-pascal/ thread1400564.html
Turbo Pascal Удалить все гласные, у которых справа и слева стоят согласные Условие: Дана строка. Удалить все гласные, у которых справа и слева стоят согласные. Входные данные: В единственной строке входного потока дана строка, состоящая из маленьких английских букв и цифр, длинна которой не превышает 255 символов. Выходные данные: В выходной поток вывести строку символов. Пример входного файла (input.txt): https://www.cyberforum.ru/ turbo-pascal/ thread1400494.html Turbo Pascal Разработать программу реализующую заданную списочную структуру данных
Задание: Разработать программу реализующую заданную списочную структуру данных. Заданные действия (инициализация, создание структуры данных, и т. п.) должны быть оформлены в виде отдельных процедур или функций. Память под очередной элемент списка должна выделяться динамически. Выполнение действий по обслуживанию списочной структуры должно осуществляться в режиме диалога с пользователем. ...
Turbo Pascal Даны четыре двумерных массива A, B, C, D, преобразовать каждый из них в одномерный массив https://www.cyberforum.ru/ turbo-pascal/ thread1400325.html
Даны четыре двумерных массива A, B, C, D, преобразовать каждый из них в одномерный массив. Массивы должны заполняться автоматически случайными числами. При выполнении задания необходимо использовать подпрограммы. 		Turbo Pascal Есть ли одинаковые элементы в матрице (на парных позициях)? Дана матрица MxN. Как проверить есть ли на четных позициях i-х строк матрицы одинаковые элементы?(Если есть то вывести слово "Yes",если нету то "No"). Например есть матрица 4х4,на парных позициях строк должны быть одинаковые элементы: 1 2 3 2 4 5 6 5 7 8 9 8 0 1 4 1 В таком случае вывести "Yes",иначе "No". https://www.cyberforum.ru/ turbo-pascal/ thread1400324.html
Turbo Pascal Сформировать новый массив из четырех имеющихся
Даны четыре одномерных массива A, B, C, D, сформировать новый массив из сумм элементов каждого массива. Массивы должны заполняться пользователем вручную. При выполнении задания необходимо использовать подпрограммы! 		Turbo Pascal Модуль демонстрации сравнения работы четырехлучевого эвристического и маршрутного эвристического алгоритмов Разработать программный модуль демонстрации сравнения работы четырехлучевого эвристического и маршрутного эвристического алгоритмов TurboPascal https://www.cyberforum.ru/ turbo-pascal/ thread1400240.html
0 / 0 / 0
Регистрация: 22.03.2015
Сообщений: 41
0

Поменять местами два столбца матрицы с заданными номерами - Turbo Pascal - Ответ 7373861

22.03.2015, 15:09. Показов 1913. Ответов 1
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
Я написал программу ,но сомневаюсь . КАк понял нужно сделать ввод с клавы какие столбцы поменять .но как то не получилось записать их чтобы водить с клавиатуры написал поменять 4 и 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

Program zadacha1;
USES
 CRT;
CONST
 a=4;
 b=4;
VAR
 C:array[1..a,1..b] of integer;
 m,n:integer;
 t:byte;
BEGIN
 Writeln('введите элементы матрицы C:');
 for m:=1 to a do
  for n:=1 to b do
   Read(C[m,n]);
   ClrScr;
 Writeln('матрица C:');
 for m:=1 to a do
   for n:=1 to b do
    Write(C[m,n]:8,' ');
   Writeln;
 Readln;
 begin
 randomize;
 writeln('исходный массив:');
 for m:=1 to a do
begin
for n:=1 to b do
begin
c[m,n]:=1+random(99);
write (c[m,n]:4);
end;
writeln;
end;
for n:=1 to b div 2 do
for m:=1 to a do
begin
t:=c[m,n];
c[m,n]:=c[m,4-n+1];
c[m,4-n+1]:=t;
end;
writeln('преобразованный массив :');
for m:=1 to a do
begin
for n:=1 to b do
write(c[m,n]:4);
writeln;
end;
readln;
end;
end.


Вернуться к обсуждению:
Поменять местами два столбца матрицы с заданными номерами Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 22.03.2015, 15:09
Готовые ответы и решения:

В квадратной матрице A поменять местами два столбца с заданными номерами
Здравствуйте уважаемые программисты ! Помогите мне пожалуйста с задачей . В квадратной матрице...

Двумерный массив. Поменять местами строки матрицы с заданными номерами
Дана матрица размера MхN и целые числа К1 и К2 (1&lt;=K1&lt;K2&lt;=M). Поменять местами строки матрицы с...

Поменять местами два средних столбца матрицы
Поменять местами два средних столбца, если кол-во столбцов четное, и первый со средним стобцом,...

В матрице поменять местами две строки с заданными номерами
Доброго времени суток. Прошу о помощи)) Выполнить над квадратной матрицей А порядка n...

1
22.03.2015, 15:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 22.03.2015, 15:09
Помогаю со студенческими работами здесь

В матрице поменять местами два столбца с заданными номерами
учусь на заочке а задали задачу по Поскалю немогу решить помогите пожалуйста вот задача а) В...

Даны два числа k1 и k2 и матрица размера 4 x 10. Поменять местами строки матрицы с номерами k1 и k2
Даны два числа k1 и k2 и матрица размера 4 x 10. Поменять местами строки матрицы с номерами k1 и k2.

В матрице А поменять местами две строки с заданными номерами
Выполнить над квадратной матрицей А порядка n последовательность действий, указанную в задании. а)...

Поменять местами строки матрицы с заданными номерами
Доброго времени суток, помогите с програмой Даны два числа k1 и k2 и матрица размера 4 x 10....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru