Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Выполнить сортировку массива по убыванию (или по возрастанию) https://www.cyberforum.ru/ turbo-pascal/ thread2262035.html
Выполнить сортировку массива по убыванию (или по возрастанию). Была просьба сделать образец сортировки при заданном исходном массиве. В ответе был дан фрагмент блока сортировки: 1. for i:= 1 to n-1 do 2. for j:= i+1 to n do 3. if a > a then 4. begin 5. x:= a; 6. a:= a; 7. a:= x; 		Turbo Pascal Удаление слов в строке
Здравствуйте,нужна ваша помощь. У меня не получается выполнить заданое условие,потому что я не могу додуматься как его сделать. Условие такое: "Удалить в строке заданное слово(пользователь задает числом какое слово удалить),а если число,которое ввел пользователь больше количества слов в сроке,удалить 3 и 5 слово. Заранее огромное спасибо:) p.s. По возможности,если не затруднит,комментариями...
Turbo Pascal Проверка графика многочлена на корректность Здравствуйте, я написал программу которая рисует график многочлена не выше 5-ой степени, но никак не могу проверить корректно ли программа рисует график, поможете ? uses graphABC; //Подключаем графический модуль const W = 800; H = 500;//Размеры графического окна var x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer; a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real; https://www.cyberforum.ru/ turbo-pascal/ thread2261360.html Turbo Pascal Нарисовать рисунок в паскале Извиняюсь за не самые качественные фотографии. Вариант нужного рисунка- 4 https://www.cyberforum.ru/ turbo-pascal/ thread2260568.html
Вывести на экран такие трехзначные числа, у которых произведение 1 и 3 цифры равно квадрату 3 цифры Turbo Pascal
Вывести на экран такие трехзначные числа, у которых произведение 1 и 3 цифры равно квадрату 3 цифры-Turbo Pascal 		Turbo Pascal Найти в файле строку, числа в которой упорядочены по возрастанию https://www.cyberforum.ru/ turbo-pascal/ thread2260251.html
Задан текстовый файл,состоящий из строк с числами. Найдите в файле строку,числа в которой упорядочены по возрастанию, и вывидите её на экран. Если таикх строк несколько, то вывидите все.
Turbo Pascal Вычислить уравнение y:=(min(a,b)+max(a,b)/2 c циклом: а) for; б) while; в) repeat; Пожалуйста, помогите))) Заранее спасибо! a,b- любое число. решить уравнение y:=(min(a,b)+max(a,b))/2 c циклом: а) for; б) while; в) repeat; https://www.cyberforum.ru/ turbo-pascal/ thread2260052.html Составьте программу, которая строит таблицу значений функции x3+5*x2+x-10*sin(5*x)-1 Turbo Pascal
Составьте программу, которая строит таблицу значений функции x3+5*x2+x-10*sin(5*x)-1. Количество строк в таблице n, начальное значение аргумента и шаг изменения аргумента step вводятся программистом. В каждой строке должно выво*диться значение аргумента и соответствующее ему значение функции с 4 знаками после запятой. А так же среднее арифметическое значений функции, принадлежащих отрезку...
Turbo Pascal Дана строка, состоящая из символов букв и цифр. Между словами вставить запятую и пробел Дана строка, состоящая из символов букв и цифр. Между словами вставить запятую и пробел. https://www.cyberforum.ru/ turbo-pascal/ thread2259546.html Turbo Pascal В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей. https://www.cyberforum.ru/ turbo-pascal/ thread2259544.html
Turbo Pascal Нужно добавить пояснения к программе (как и что работает)
Program Eyler; Uses CRT; Const n = 7; {Skoka vershin} START = 1; {S kakoy vershinyi na4inat' poisk} Type point = record link: Byte; mark: Boolean; end; 		Turbo Pascal Удаление слов в строке с дополнительным условием Удалить слово с указанным номером,если слов в строке меньше ,чем указанный номер удалить два слова:1 и 3 https://www.cyberforum.ru/ turbo-pascal/ thread2258892.html
198 / 10 / 3
Регистрация: 30.04.2016
Сообщений: 733
30.06.2018, 21:57  [ТС] 0

В матрице обнулить чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными номерами - Turbo Pascal - Ответ 12513395

30.06.2018, 21:57. Показов 844. Ответов 3
Метки (Все метки)

Ответ

Заполнить случайным образом двумерный массив n x n.
Обнулить чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными номерами.
Вывести оба массива на экран.

Получил ответ от модератора Puporev в виде длинной строки. Вставил её в блок обнуления нечётных чисел.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

uses Crt;
const N = 5;  M = 4;
Var a: array [1..N, 1..M] of Integer;
            i, j: Integer;
   for i:= 1 to N do begin
   for j:= 1 to M do begin
     a[i, j]:=  Random(50) – 5;
       Write(a[i, j]:4);
   end;  WriteLn;  end;
{Обнуление чётных и нечётных эл-в}
WriteLn(' Чётные эл-ты в строках: ');
   for i:= 1 to N do begin
     for j:= 1 to M do begin
   if ((a[i, j] mod 2 = 0) and (i mod 2 = 0)) or ((a[i,j] mod 2 <> 0))
and(i mod 2 <> 0))  then  a[i, j]:= 0;
      Write('   ' , a[i, j]:3);
        end;  WriteLn;  end;;
WriteLn(' Нечётные эл-ты в строках:');
  ReadLn
end.
И на выходе получили что-то непонятное:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12

-5   -4   38    5
 8   28   10    3
13   16   -1   18
-2   37   -3    9
40   13   33   11
       Чётные эл-ты в строках:
 -5   -4   38    5
  0    0     0    3
13   16   -1   18
 0    37   -3    9
40   13   33   11
        Нечётные эл-ты в строках:
И второго блока не стало. Короче, не получилось!

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

Обнулить чётные элементы в строках с чётными номерами
Обнулить чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными ...

Вывести на экран элементы массива в два столбика: в первый - элементы с нечетными номерами, во второй - элементы с четными номерами.
Заполнить массив различными действительными числами, случайно выбираются из указанного промежутка....

В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.
В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а...

Вывести сначала элементы с нечетными номерами по возрастанию номеров, а потом элементы с четными номерами по убыванию
Даний масcив A розмером N. Вивести сначала его элементы с непарными номерами в порядке...

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

Вывести сначала элементы массива с четными номерами, а затем - элементы с нечетными номерами
Дан массив A размера N. Вывести вначале его элементы с четными номерами (в порядке возрастания...

Вывести вначале его элементы с четными номерами, а затем — элементы с нечетными номерами
Всем добрый вечер!!!Если есть минутка, помогите сделать эти задания!буду очень благодарен!! 1....

Вывести вначале элементы с нечетными номерами, а затем - элементы с четными номерами
Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке...

Вывести элементы матрицы, расположенные в строках с четными номерами
Здравствуйте! Помогите написать 3 программмы на C++ на задачи с двумерными массивами 1. Дана...

Вывести элементы матрицы, расположенные в строках с четными номерами
Помогите плиз зделать задачку Дана матрица размера M x N Вывести её элементы расположенные в...

Вывести элементы матрицы, расположенные в строках с четными номерами (2, 4, ...)
С++ Дана матрица размера M х N. Вывести ее элементы, расположенные в строках с четными номерами...

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