Содержание
- 2. Программа { Автор: Иванов И. И. } { Группа: ФФ-101 } { Тема: Простейшие программы }
- 3. program Ex2; var x:real; y:real; begin writeln('Ввод x'); readln(x); if x>=0 then y:=sqr(x) else y:=-x; writeln('F
- 4. Пример 3. Составить программу, вычисляющую значение следующей функции: program Ex3; var x,y : real; p :
- 5. Пример 4. Составить программу, печатающую значения 30, 20, 10 если точка с координатами (x,y) находится на
- 6. Вычисление суммы Вычислить сумму элементов множества {ai|i=1..N}. Для вычисления суммы n элементов следует прибавить элемент an
- 7. Вычисление бесконечной суммы Пример 7. Вычислить сумму Суммирование прекращается при Выведем рекуррентную формулу для ai. Имеем:
- 8. Вычисление элементов последовательности Пример 8. Вычислить наименьший номер элемента последовательности, заданной рекуррентной формулой: для которого выполняется
- 9. Определение максимального (минимального) элемента множества program Ex9; var i, Imax: integer; a, Amax: real; begin Amax:=exp(-0.1);
- 10. Пример 11. Составить программу, выполняющую поиск целочисленных решений уравнения в интервале значений каждой переменной от 1
- 11. Пример использования вспомогательных процедур для управления циклами program Ex11; var i: integer; begin for i:=1 to
- 12. Пример 12. Числовая последовательность определена рекуррентной формулой: Составить подпрограмму, вычисляющую значение элемента последовательности для произвольного заданного
- 13. Программа для примера 12 program Ex12; function A (n: integer): real; var A1,A2,A3: real; i: integer;
- 14. Пример 13. Составить процедуру, определяющую максимальное, минимальное и среднее арифметическое значения элементов множества G={gi |i =
- 15. Программа для примера 13 program Ex13; procedure SetG(var Gmin,Gmax,Gavg:real); var Gi:real; i:integer; begin Gmin:=0; {g0 =0}
- 16. Пример 14. Вложенные подпрограммы program Ex14; procedure Outer; procedure Inner; begin writeln('Inner'); end; begin writeln('Outer'); Inner;
- 17. Пример 15. Использование подпрограмм в качестве параметров. Составить программу, которая вычисляет и распечатывает в виде таблицы
- 18. Программа для примера 15 program Ex15; type TFunc=function (x:real):real; function F1(x:real):real; far; begin if x=0 then
- 19. Продолжение программы для примера 15 var x,y,z: real; R: real; begin writeln(' Ввод x,y,z'); readln(x,y,z); Table(F1);
- 20. Пример 16. Вычисление n!, используя соотношения n!=(n-1)!*n, 0!=1. Program Ex16; function Nf(N: integer): integer; begin if
- 21. Пример 17. Составить программу, определяющую номер максимального элемента в заданном множестве действительных чисел. Program Ex17; type
- 22. Пример 18. Составить программу, вычисляющую произведение двух квадратных матриц С=A×B, где N – порядок матрицы, а
- 23. Program Ex18; type TMatrix=array [1..10,1..10] of integer; procedure Input (N: integer; var X:TMatrix); var i,j: integer;
- 24. program Ex19; type TArN=array [1..5] of integer; procedure LSearch(A:TArN; N: integer; x: integer; var Num: integer);
- 25. Пример 19. Двоичный поиск procedure DSearch(A:TArN; N: integer; x: integer;var Num: integer); var L,R,M : integer;
- 26. Пример 19. Главная программа const ArN:TArN=(1,9,5,4,6); N=5; var Num,x:integer; begin readln(x); LSearch(ArN,N,x,Num); writeln(Num); DSearch(ArN,N,x,Num); writeln(Num); end.
- 27. Программа рассчитана на худший случай, когда минимальный элемент находится в конце последовательности и учитывает, что максимальный
- 28. Пример 21. Быстрая сортировка program Ex21; type TNumAr = array[1..10] of integer; procedure QuickSort (var A:
- 29. Пример 22. Подсчитать количество символов "А" в строке, которая вводится с клавиатуры и присваивается в качестве
- 30. Пример 23. Составить программу, проверяющую, имеется ли в заданном тексте баланс открывающих и закрывающих круглых скобок,
- 31. Пример 23. Программа program Ex23; var s: string; i,k,Len: integer; l: boolean; begin writeln('Ввод строки'); readln(s);
- 32. Пример 24. Задано множество попарно различных точек на плоскости. Найти пару точек, принадлежащих множеству, с минимальным
- 33. Program Ex24; const N=5; type TPoint=record X,Y:real end; TPointsSet=array [1..5] of TPoint; const PointsSet:TPointsSet=((X:0;Y:0),(X:0;Y:2), (X:1;Y:1), (X:4;Y:2),
- 34. Пример 24. Программа (продолжение) procedure MinDist(var P:TPointsSet; var IMin, JMin: integer; var SMin: real); var I,J:integer;
- 35. var IMin,JMin: integer; SMin: real; begin MinDist(PointsSet,IMin, JMin,SMin); writeln(IMin:3,' ',JMin:3, ' ',SMin:7:2); end. Пример 24. Программа
- 36. Пример 25 Заданы таблицы СОТРУДНИКИ и ОТДЕЛЫ. Составить программу, определяющую распечатывающую таблицу, которая содержит список сотрудников,
- 37. Program Ex25; const NE=5; ND=3; type TStr15=string[15]; TStr12=string[12]; TEmp=record ENum :integer; EName:TStr15; ESal :real; DNum :integer;
- 38. Пример 25. Программа (продолжение) const Emp:TEmpTable= ((ENum:21; EName:'Иванов'; ESal:10300.0; DNum:102), (ENum:12; EName:'Орлов'; ESal:6300.0; DNum:300), (ENum:35; EName:'Сидоров';
- 39. Пример 25. Программа (продолжение) procedure FindDeptNum(DeptName:TStr12;var D:TDeptTable; var DNum: integer); var {Поиск номера отдела по его
- 40. Пример 25. Программа (продолжение) procedure MakeList(var Emp:TEmpTable; var EmpList:TEmpTable; DNum:integer; var K:integer); var {Формирование списка сотрудников
- 41. Пример 25. Программа (продолжение) procedure PrintDept(var Dept:TDeptTable; ND:integer); var {Печать таблицы ОТДЕЛЫ} i: integer; begin writeln;
- 42. Пример 25. Программа (продолжение) procedure PrintEmp(var EmpList:TEmpTable;N:integer); var {Печать таблицы СОТРУДНИКИ} i: integer; begin writeln; writeln('*****************************************************************');
- 43. var EmpList:TEmpTable; DeptName:TStr12; DNum,LNum:integer; begin write('Название отдела- '); readln(DeptName); PrintEmp(Emp,NE); PrintDept(Dept,ND); FindDeptNum(DeptName,Dept,DNum); MakeList(Emp,EmpList,DNum,LNum); writeln(' Отдел ',DeptName);
- 44. Пример 26 Вычислить сумму 1,4,7 и 9 элементов массива. program Ex26; type TAr=array [1..10] of integer
- 45. Пример 27 Составить две программы. Первая (a) создает файл записей, компоненты которых содержат значение имени и
- 46. program Ex27b; type TMRec= record Name: string[15]; Age: integer; end; TFMRec= file of TMRec; var g:
- 47. Пример 28 В модуле размещаются процедуры и функции, вычисляющие произведение и сумму элементов целочисленного одномерного массива.
- 49. Скачать презентацию