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

[andry054]

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

 

[Vladimir_S]

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]

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]

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

Алгоритмы упорядочения массивов рассмотрены здесь: http://www.tehnari.ru/f41/t72821/

 

[Vladimir_S]

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]

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

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

http://www.tehnari.ru/f43/t83446/