Практические задачи на языке Pascal

andry054 · 14.01.2014, 12:23

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

Задачи:

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. В заданном типизированном файле целых чисел удалить элементы, расположенные между минимальным и максимальным числами.

Vladimir_S · 14.01.2014, 16:41

Цитата:

Сообщение от andry054

1. Найти сумму цифр введенного с клавиатуры натурального числа N.

Код:

Var
 S:String;
 Sum,Code:Word;
 i,Q:Byte;
Begin
 Writeln('Enter the number N:');
 Readln(S);
 Sum:=0;
 For i:=1 to length(S) do
  begin
   Val(S[i],Q,Code);
   Inc(Sum,Q);
  end;
 Writeln('Sum = ',Sum);
 Readln
End.

Vladimir_S · 14.01.2014, 17:04

Цитата:

Сообщение от andry054

3. Массив Anm заполнен построчно слева направо и сверху вниз натуральными числами от 1 до n*m. По заданному значению элемента массива определить его индексы – номер строки и столбца.

Код:

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.

Vladimir_S · 14.01.2014, 17:10

Цитата:

Сообщение от andry054

13. Произвести сортировку по возрастанию элементов заданного целочисленного вектора An.

Алгоритмы упорядочения массивов рассмотрены здесь: Об алгоритмах упорядочения одномерных массивов

Vladimir_S · 14.01.2014, 19:26

Цитата:

Сообщение от andry054

28. По заданной точности eps и значению аргумента x определить значение ряда Фурье для переключательной функции: F(x)=4(sin( x) + sin(3x)/3 + sin(5x)/5 + …)/π (для x=1,57 значение f(x)=1,0)

Код:

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.

Vladimir_S · 14.01.2014, 19:35

Цитата:

Сообщение от andry054

12. В заданном целочисленном массиве Ann поменять местами максимальные элементы главной и побочной диагоналей.

Цитата:

Сообщение от andry054

15. Определить, является ли введенное слово палиндромом – одинаково читающимся как слева направо, так и справа налево: шалаш.

Помогите в Паскаль

14.01.2014, 12:23	#1 (permalink)
andry054 Новичок Регистрация: 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. В заданном типизированном файле целых чисел удалить элементы, расположенные между минимальным и максимальным числами.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070