Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Вычислить значения функций Составить программу для вычисления функций: b = f(x,y,z), где z = w(x,y) при постоянных значениях х и у. https://www.cyberforum.ru/ pascal/ thread2873860.html Посчитать количество букв и верхнего, и нижнего регистров Pascal
Подскажите, как посчитать количество букв и верхнего, и нижнего регистров в паскале. К примеру, k:=0;For i:= 1 To Length(s) Do if s= 'О' then k:=k+1; writeln ('кол-во букв о = ',k); Считает только большие О, а как сделать, чтоб считало и большие, и маленькие одновременно? Надеюсь, понятно сформулирован вопрос.
Pascal Заданы два положительных числа. Определите верно ли что одно из них делиться на другое без остатка https://www.cyberforum.ru/ pascal/ thread2872651.html
Заданы два положительных числа х и у .Определите верно ли что одно из них делиться на другое без остатка или нет 		Pascal Используя любой из видов циклов, вычислить значения выражения Y=e^(ax)+|x| x изменяется от 1 до 16 a изменяется от 20 с шагом 1.5 Добавлено через 20 секунд ЯП Pascal https://www.cyberforum.ru/ pascal/ thread2871982.html
Вычислить значение функции F в зависимости от значения аргумента Х, описав a и b константами Pascal
x2 - 2x + ab, если x=2,2 F= (a - b)(x + cosx), x=5,18 5ab - sin2x, в остальных случаях a=7,88 b=4,32 x=2a/sinb Добавлено через 52 минуты ЯП: Pascal 		Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread2871831.html
Вычислить значение выражения Y. Значения аргумента Х задать с клавиатуры. это Паскаль
Pascal Вычислить значение выражения. https://www.cyberforum.ru/ pascal/ thread2871633.html
Кому не лень) program example1; var x, y, z, c: real; begin x:=3.251; y:=0.325; z:=0.000466; 		Проблемы с кодом вычисления формулы Pascal
var a,x,y: Double; begin x:=-0.62; y:=3.325; a:=Power(sqrt(abs(x-1))-(exp(Ln(y))),1/3)/(1+(sqr(x)/2)+(sqr(y)/4)); ShowMessage(FloatToStr(a)); end; ошибок нет но выдает Invalid floathing point operation
Pascal Создать таблицу F[1..25], элемент F[i] которой равен модулю элемента S[i] https://www.cyberforum.ru/ pascal/ thread2871477.html
Не могу понять, что делать. Всё с массивами сейчас гоняюсь. Изучаю так скажем. Нашёл задания, теперь пытаюсь всё это изучить. Хотелось бы полное решение, только с объяснением, или же просто объяснение. Заранее спасибо! Дана таблица S из 25 действительных чисел. Создать таблицу F, элемент F которой равен модулю элемента S. 		Pascal Координаты двух точек на плоскости задают прямую https://www.cyberforum.ru/ pascal/ thread2871327.html
Координаты двух точек на плоскости задают прямую, которая делит плоскость на две полуплоскости. Вводятся координаты еще двух точек. Определить, принадлежат ли эти точки разным полуплоскостям, или они лежат на той же самой прямой? Код на паскале надо Помоги те плиииз срочно надо
Pascal Как правильно написать define в DELFI
нужно написать на DELFI аналог #define vr 2 ... int kv=vr*vr; пишу {$define vr 2} kv:=vr*vr; ругается 		Pascal Входит ли цифра 6 в запись числа n в квадрате Дано натуральное число n. Составьте программу, которая определяет входит ли цифра 6 в запись числа n в квалрате, можно пожалуйста по простому Добавлено через 37 секунд Составьте программу Добавлено через 3 минуты n целое число составьте программу которая определяет входит 6 в n 2 https://www.cyberforum.ru/ pascal/ thread2870580.html
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
21.09.2021, 02:43 0

Массив: Переписать все четные значения в обратном порядке - Pascal - Ответ 15721951

21.09.2021, 02:43. Показов 1406. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено l2020 как решение

Решение

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

program Project1;
 
const
  maxn = 10;
var
  n,i,j,k: integer;
  tmp: integer;
  a: array [1..maxn] of integer;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента массива (целые числа):');
      readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    write(a[i]:5);
  writeln;
 
  k:= n;
  for i:= 1 to n do
    if k < i then
      break
    else
      begin
        if (a[i] mod 2 = 0) then
          begin
            for j:= k downto 1 do
              if a[j] mod 2 = 0 then
                begin
                  tmp:= a[i];
                  a[i]:= a[j];
                  a[j]:= tmp;
                  break;
                end;
            k:= j-1;
          end;
      end;
 
  writeln('Новый массив: ');
  for i:= 1 to n do
    write(a[i]:5);
  readln;
end.


Вернуться к обсуждению:
Массив: Переписать все четные значения в обратном порядке Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 21.09.2021, 02:43
Готовые ответы и решения:

Переписать все элементы массива А в массив А1 в обратном порядке
Ввести массив А(n). Переписать все элементы массива А в массив А1 в обратном порядке. Массивы А и...

Переписать в новый массив все числа, в обратном порядке
Дан одномерный массив из целых чисел М(20). Переписать в новый массив все числа, в обратном порядке.

Массив: Переписать все нечетные значения в начало, а все четные в конец
дан одномерный массив, содержащий n значений. переписать все нечетные значения в начало, а все...

Переписать в файл G сначала все нечѐтные его символы, а затем все чѐтные в обратном порядке
Всем привет! Просьба помочь с решением задачи. Я в паскале не сильна ну совсем, поэтому не...

Переписать в файл G сначала все нечётные его символы, а затем все чётные в обратном порядке
Добрый день. Нужна ваша помощь. Дан символьный файл F. Переписать в файл G сначала все нечётные...

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

Переписать в новый файл из исходного сначала все нечѐтные символы, а затем все чѐтные в обратном порядке
Здравствуйте. Дано задание. Дан символьный файл F. Переписать в файл G сначала все нечѐтные его...

Переписать массив (четные в обратном порядке, нечетные -в прямом)
Дан целочисленный массив A. Переписать в новый целочисленный массив B того же размера вначале все...

Массив: Переписать все числа в обратном порядке и вывести в новом массиве
1) Создать двумерный массив 5x5 , с элементами типа байт . Заполнить массив раномными числами ....

Функция: переписать значения элементов массива целых чисел в другой массив в обратном порядке
Вот задание: Написать функцию, которая переписывает значения элементов массива целых чисел в...

Заполнить одномерный массив целыми числами. Переставить в обратном порядке все четные по значениям элементы
Заполнить одномерный массив из N элементов целыми числами. Переставить в обратном порядке все...

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