14.01.2014, 12:23 | #1 (permalink) |
Новичок
Регистрация: 14.01.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Практические задачи на языке Pascal
Задачи: 1. Найти сумму цифр введенного с клавиатуры натурального числа N. 2. Найти вторые минимальный и максимальный элементы заданного с клавиатуры целочисленного вектора V длиной n элементов. 3. Массив Anm заполнен построчно слева направо и сверху вниз натуральными числами от 1 до n*m. По заданному значению элемента массива определить его индексы – номер строки и столбца. 4. Сдвинуть на k шагов вправо элементы заданного вектора An 5. В заданном целочисленном векторе An определить самую длинную последовательность идущих подряд одинаковых элементов. 6. В заданном целочисленном массиве Anm поменять местами вторые минимальный и максимальный элементы массива. 7. В заданном целочисленном массиве Anm поменять местами первый отрицательный и последний положительный элементы. 8. В заданном целочисленном векторе An поменять местами первый отрицательный и последний положительный элементы. 9. В заданном целочисленном векторе An поменять местами вторые максимальный и минимальный элементы вектора. 10. В заданном целочисленном векторе An найти максимальное число слева, не входящее в вектор. 11. В заданном целочисленном векторе An найти минимальное число справа, не входящее в вектор. 12. В заданном целочисленном массиве Ann поменять местами максимальные элементы главной и побочной диагоналей. 13. Произвести сортировку по возрастанию элементов заданного целочисленного вектора An. 14. В заданном целочисленном массиве Ann поменять местами строку с наименьшей суммой элементов и столбец с наибольшей. 15. Определить, является ли введенное слово палиндромом – одинаково читающимся как слева направо, так и справа налево: шалаш. 16. В заданной строке, содержащей все символы клавиатуры кроме кириллицы, определить сумму всех цифр, отдельно количество гласных и согласных букв. 17. В заданной строке, содержащей все символы клавиатуры кроме кириллицы, удалить все повторения символов. 18. В заданном целочисленном массиве Ann определить суммы четных элементов главной и нечетных элементов побочной диагоналей. 19. Сформировать вектор Bn из элементов заданной целочисленной матрицы Ann по следующему алгоритму: очередной элемент вектора bi – это максимальный элемент i-ой строки исходной матрицы. 20. Сформировать вектор Bn из элементов заданной целочисленной матрицы Ann по следующему алгоритму: очередной элемент вектора bi – это минимальный элемент i-ого столбца исходной матрицы. 21. В заданном целочисленном массиве Ann определить максимальный элемент из элементов, расположенных выше главной диагонали, и минимальный – ниже главной диагонали. 22. В заданном целочисленном массиве Ann определить максимальный элемент из элементов, расположенных выше главной и побочной диагоналей. 23. В заданном целом положительном числе N определить наибольшую и наименьшую цифры. 24. В заданном целом положительном числе N определить наибольшую цифру слева, не входящую в число. 25. В заданном целом положительном числе N определить наименьшую цифру справа, не входящую в число. 26. В заданном целочисленном массиве Ann определить максимальный элемент, находящийся во внешнем слое элементов. 27. В заданном целочисленном массиве Ann определить минимальный элемент, находящийся во внешнем слое элементов. 28. По заданной точности eps и значению аргумента x определить значение ряда Фурье для переключательной функции: F(x)=4(sin( x) + sin(3x)/3 + sin(5x)/5 + …)/π (для x=1,57 значение f(x)=1,0) 29. Транспонировать заданный квадратный массив Ann 30. В заданном типизированном файле целых чисел поменять местами минимальное и максимальное число. 31. В заданном типизированном файле целых чисел удалить элементы, расположенные между минимальным и максимальным числами. |
14.01.2014, 12:23 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую вам внимательно пролистать эти топики, они очень похожи на вашу тему Помогите написать программы на языке Pascal Нужно написать программы на языке Pascal Решение задачи на Pascal Обработка символов и строк на языке Pascal Pascal задачи |
14.01.2014, 17:04 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const N=10; {Number of lines} M=18; {Number of columns} Var i,j:Byte; A:Array[1..N,1..M] of Byte; C:Byte; Begin for i:=1 to N do begin for j:=1 to M do begin A[i,j]:=(i-1)*M+j; write(A[i,j]:4); end; writeln; end; writeln; Write('Enter the number >0 and <',N*M+1,' '); Readln(C); If (C mod M)=0 then begin i:=C div M; j:=M; end else begin i:=(C div M)+1; j:=C mod M; end; Writeln('i = ',i); Writeln('j = ',j); Readln End. |
|
14.01.2014, 17:10 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
14.01.2014, 19:26 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const eps=0.000001; Var Sum,x,a:Real; k:Word; Begin Sum:=0; k:=0; Write('x= '); Readln(x); Repeat Inc(k); a:=Sin(x*(2*k-1))/(2*k-1); Sum:=Sum+a; Until Abs(a)*4/Pi<eps; Writeln('F= ',Sum*4/Pi:0:5); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
14.01.2014, 19:35 | #6 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
|
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|