Контрольная работа по программированию. Контрольная работа по Программированию
 Скачать 306.87 Kb.
|
                                                Министерство науки и высшего образования РФФедеральное государственное бюджетное образовательное учреждение высшего образования ИРКУТСКИЙ НАЦИОНАЛЬНЫЙ ИССЛЕДОВАТЕЛЬСКИЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ Заочно-вечерний факультет Кафедра вычислительной техники Контрольная работа по «Программированию» Вариант №4 Выполнил студент группы заочной формы обучения Иркутск, 2018 Задание 7 Нарисовать блок-схемы и определить значение переменной s после выполнения следующих операторов. Расписать изменение переменных s и i по шагам выполнения цикла. 7.а. s = 0; i:= 0; while i < 5 do i:= i + 1; s: = s + 1/i; I:=i+1 I<5 Начало S:=0 i:=0 s: = s + 1/i Конец Шаг is
7.б. s: =0; i: = 10; while i >1 do begin s:= s +1/i; i:= i -1 end; s:=s+1/i i:=i-1 I>1 Конец Начало S:=0 i:=10
7.в. s: = 0; i: = 1; repeat s: = s + 1/i; i: = i - 1 until i< = 1; Начало S:=0 i:=1 s:=s+1/i i:=i-1 I<=1 Конец Шаг is
7.г. s:=1; i:=10; repeat s:=s*(10+i); i:=i-2 until i<1; Начало S:=1 i:=10 s:=s*(10+i); i:=i-2 i<1 Конец Шаг is
Задание 4. 1. Условие задачи Дано действительное число а, натуральное число n; Вычислить 1/a+1/a(a+1)+...+1/(a(a+1)../(a+n)) 2. Математическая модель t:=t*(a+i); s:=s+1/(t); 3. Таблица внешних спецификаций. Таблица внешних спецификаций
Сообщения: c1: 'Введите число не равное 0 '; t, s: 't:=t*(a+i); s:=s+1/(t);' 4. Проектирование тестов Таблица тестов
5. Алгоритмизация Начало C1 a<>0? Введите n: t:=1 I:=0 to n-1 t, s S = Начало 6. Кодирование алгоритма или запись алгоритма на языке Паскаль Var s,a,t:real; n,i:byte; Begin Repeat write('Введите число не равное 0: '); readln(a); Until a<>0; write('Введите n: '); readln(n); t:=1; For i:=0 to n-1 do Begin t:=t*(a+i); s:=s+1/(t); End; writeln('S = ',s:0:2); End. Задание 10 1. Условие задачи Перевести целое N в P-ичную систему счисления, 2<= P<9. 2. Математическая модель t:=t*(a+i); s:=s+1/(t); 3. Таблица внешних спецификаций. Таблица внешних спецификаций
Сообщения: c1: 'Введите значение N '; t, s: 't:=t*(a+i); s:=s+1/(t);' 4. Проектирование тестов Таблица тестов
5. Алгоритмизация Начало C1 N<0 z := '-' z := '' n := abs(n) C1 p in [2..9] r := '' r, n n = 0 R = Начало 6. Кодирование алгоритма или запись алгоритма на языке Паскаль uses crt; var n, p: integer; z, r: string; begin write('Введите целое число N = '); readln(n); if n < 0 then z := '-' else z := ''; n := abs(n); repeat write('P в диапазоне [2..9]; P = '); readln(p) until p in [2..9]; r := ''; repeat r := char(n mod p + ord('0')) + r; n := n div p until n = 0; write('R = ', z + r) end. Задание 15 1. Условие задачи Дано целое N, найти s=1/a +1/a2+1/a3 +....+1/an 2. Математическая модель t:=t/a; s:=s+t; 3. Таблица внешних спецификаций. Таблица внешних спецификаций
Сообщения: c1: 'Введите значение N '; t, s: 't:=t*(a+i); s:=s+1/(t);' 4. Проектирование тестов Таблица тестов
5. Алгоритмизация Начало C1 s:=0; t:=1; i:=0 to n t, s S = Начало 6. Кодирование алгоритма или запись алгоритма на языке Паскаль uses crt; var n,i:integer; a,t,s:real; begin clrscr; write('Введите натуральное n='); readln(n); write('Введите действительное a='); readln(a); s:=0; t:=1; for i:=1 to n do begin t:=t/a; s:=s+t; end; write('s=',s:0:3); readln end. Задание 18. 1. Условие задачи Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. 2. Математическая модель while k <> 0 do, будет выполняться пока не будет введено значение 0 kl:=kl+1 – считает порядковый номер 3. Таблица внешних спецификаций. Таблица внешних спецификаций содержит описание входных выходных переменных. Таблица внешних спецификаций
Сообщения: c1: 'Введите первое число последовательности'; с2: 'Минимальное значение `min` порядковый номер `minn`'; 4. Проектирование тестов Таблица тестов
5. Алгоритмизация Начало C1 min:=1 k1:=1 K<>0 C1 I:=s*(10+i) s:=i-2 K I:=s*(10+i) s:=i-2 C2 Конец 6. Кодирование алгоритма или запись алгоритма на языке Паскаль var k,min,minn,kl:integer; begin writeln('введите первое число последовательности'); readln(k); min:=k; min:=1; kl:=1; while k <> 0 do begin writeln('Введите число'); readln(k); kl:=kl+1; if k < min then begin min:=k; minn:=kl; end; end; writeln('Минимальный ',min,' порядковый номер ',minn); end. Задание 24 г 1. Условие задачи Продолжить последовательность и составить программу, печатающую N чисел данной последовательности: 100, 97, 88, 61, ___, ___ 2. Математическая модель P:=P-power(3,i) – P-  3. Таблица внешних спецификаций. Таблица внешних спецификаций
Сообщения: c1: 'Введите целое число N '; 4. Проектирование тестов Таблица тестов
5. Алгоритмизация Начало P=101 C1 I=0 to N P=P-power(3,1i) Конец P, ` ` 6. Кодирование алгоритма или запись алгоритма на языке Паскаль Program Name; Var i,N:integer; P:real; Begin P:=101; WriteLn('Введи целое число N'); Read(N); For i:= 0 to N do Begin P:=P-power(3,i); Write(P,' ') End; End. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||