Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Книга по Паскалю, которая поможет в решении очень многих задач https://www.cyberforum.ru/ turbo-pascal/ thread1175017.html
Я вот скажу что половина тем тут по Паскалю элементарна и сводится к чтению книги в 100 страниц Абрамов Зима Начала программирования на языке Паскаль При этом больше по Паскалю знать не надо ничего вовсе современному программисту http://phys.bspu.unibel.by/static/um...f/pascal1s.pdf Очень много алгоритмов пишется на Паскале и знать его надо:) Добавлено через 1 минуту еще есть такой исходник... 		Turbo Pascal Построить таблицу значений функции
Построить таблицу значений функции z=(ch(x-y)-ch((x^2)-y))/((ch^2)(x)+ch(x+y)) , где x меняется от 3 до 4 с шагом 0,1; y меняется от 2 до 3 с шагом 0,2. Вычисление гиперболического косинуса ch k=((e^k)-(e^-k))/2 оформить в виде подпрограммы.
Turbo Pascal Даны натуральные числа a, b, c. Определить функцию bin(x), переводящую число х из десятичной системы счисления https://www.cyberforum.ru/ turbo-pascal/ thread1174935.html
Даны натуральные числа a, b, c. Определить функцию bin(x), переводящую число х из десятичной системы счисления в двоичную. Найти bin(a + b), bin(ab + c). 		Turbo Pascal Определить, есть ли в дробной части 0 или нет Привет, погогите. нужно написать программу, что бы я мог ввести число (дробовое), и она определяла если в нем 0 или нету. Примерно 2/3 - нету нуля; 4/10 - есть ноль помогите) https://www.cyberforum.ru/ turbo-pascal/ thread1174906.html
В массиве A(a1, a2...,a3) найти отрицательный элемент и указать его номер Turbo Pascal
Сам паскалем владею на уровне прочесть, что то простенькое написать. Идей как это решать нет совсем. заранее благодарен. В массиве A(a1, a2...,a3) найти отрицательный элемент и указать его номер. Если отрицательных элементов несколько, определить их количество (элементы массива ввести с клавиатуры). 		Turbo Pascal Программа которая считывает текстовый файл и подсчитывает число появлений в нем каждого символа Напишите пожалуйста программу которая считывает текстовый файл и подсчитывает число появлений в нем каждого символа и знаков препинания и создает строковый файл, элементы которого имеют вид "буква" " число появлений" например ("а-25")строки упорядочить по возрастную кодов букв https://www.cyberforum.ru/ turbo-pascal/ thread1174832.html
Turbo Pascal Даны действительные числа x и y, вычислить значение функции z https://www.cyberforum.ru/ turbo-pascal/ thread1174829.html
Даны действительные числа x и y. Вычислить функцию : z= max(x,y),при x<0 и z=min(x,y), при x>=0 Пожалуйста помогите 		Turbo Pascal Процедуры и функции (замена)
На изображениях представлены задание, блок-схема и сама программа. В программе (где выделено красной ручкой) нужно заменить функцию на процедури и чуть ниже процедуру на функцию.
Turbo Pascal Определить, сколько чисел лежит на заданном отрезке Дан массив из 30 целых чисел с отрицательными элементами, определить: 24. Сколько чисел лежит на отрезке . https://www.cyberforum.ru/ turbo-pascal/ thread1174550.html Turbo Pascal Описать процедуру, вычисляющую площадь S прямоугольника со сторонами a и b Описать процедуру RectPS(a,b,S), вычисляющую площадь S прямоугольника со сторонами a и b (a и b — входные, S — выходной параметры вещественного типа). С по-мощью этой процедуры найти площади трех прямоугольников с данными сторонами. https://www.cyberforum.ru/ turbo-pascal/ thread1174548.html
Turbo Pascal Решение СЛАУ с n количеством элементов методом Зейделя
Помогите написать программу в turbo pascale по решению СЛАУ с n количеством элементов методом Зейделя и пожалуйста как можно проще с (for,repead, if и т.п.) спасибо заранее 		Turbo Pascal Заполнить массив из текстового файла, и переписать в другие файлы такие результаты анализа массива https://www.cyberforum.ru/ turbo-pascal/ thread1174537.html
Дан массив целых чисел (до 1000 элементов). Заполнить массив из текстового файла, и переписать в другие файлы такие результаты анализа массива: а) слово «yes», если все элементы массива парные и «no» в инном случае; б) числа где сумма цифр первой половины = сумме цифр второй половины числа; в) числа, все цифры которых нечетные.
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
14.05.2014, 09:30 0

Осуществить циклический сдвиг элементов массива вправо на K позиций - Turbo Pascal - Ответ 6169408

14.05.2014, 09:30. Показов 2019. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Krishechka как решение

Решение

Все решается без вспомогательного массива.
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

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 5 до ',nmax,' n=');
readln(n);
until n in [5..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4)
 end;
writeln;
repeat
write('Введите шаг сдвига 1<=k<=4 k=');
readln(k);
until k in [1..4];
for i:=1 to k do
 begin
  x:=a[n];
  for j:=n downto 2 do
  a[j]:=a[j-1];
  a[1]:=x;
 end;
writeln('Сдвиг на ',k,' вправо');
for i:=1 to n do
write(a[i]:4);
readln
end.


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

Осуществить циклический сдвиг элементов массива вправо на k позиций
дан массив размера N и число k(0&lt;k&lt;5,k&lt;4). осуществить циклический сдвиг элементов массива вправо...

Осуществить циклический сдвиг элементов массива вправо на К позиций
Дан массив размером N И исло К (0&lt;k&lt;5,k&lt;n) осуществить циклический сдвиг элементов массива вправо...

Осуществить циклический сдвиг элементов массива влево, вправо на k позиций
Дан массив размера N и число k (0 &lt; k &lt; 5, k &lt; N). Осуществить циклический сдвиг элементов массива...

Осуществить циклический сдвиг элементов массива влево1/вправо2 на k позиций.
Дан массив размера N и число k (0&lt;k&lt;5, k&lt;N). Осуществить циклический сдвиг элементов массива...

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

Осуществить циклический сдвиг элементов массива вправо на одну позицию
ПОМОГИТЕ ПОЖАЛУЙСТА! Дан целочисленный массив. Осуществить циклический сдвиг элементов массива...

Осуществить циклический сдвиг элементов массива влево \ вправо на одну позицию
Дан массив размера N. Осуществить циклический сдвиг элементов массива влево1|вправо2 на одну...

Если сумма элементов массива положительна, то осуществить циклический сдвиг элементов массива вправо
Прощу помочь с решением задачи. Дан массив А(N). Если сумма элементов массива положительна, то...

Дан массив размера N, осуществить циклический сдвиг элементов массива вправо на одну позицию
2) Дан массив размера N, осуществить циклический сдвиг элементов массива вправо на одну позицию.

Осуществить циклический сдвиг элементов в право на к позиций
осуществить циклический сдвиг элементов в право на к позиций. program p1; uses crt; type...

Осуществить циклический сдвиг элементов квадратной матрицы вправо на k элементов
Осуществить циклический сдвиг элементов квадратной матрицы размером М х N вправо на k элементов...

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