Материалы сайта
Это интересно
Вычислительная практика I курс
Смаль Дмитрий, АС-14 Работа №7 Тема: ”Операторы организации циклов”(9,18) 1.Постановка задачи: Дано натуральное n. Вычислить: а)1/(sin(1))+1/(sin(1)+sin(2))+…+1/(sin(1)+…+sin(n)) 2.Тестовые примеры: 1) Пусть n=1, тогда сумма S=1.1883 2) Пусть n=0, тогда сумма S=0.00 3) Пусть n=2, тогда сумма S=0.57 4) Пусть n=3, тогда сумма S=0.52 3.Схема алгоритма: Да Нет Для i от 1 до n Шаг=1 ------ Находим знаменатель дроби ------ Находим сумму Конец i 4.Распечатка текста программы: Program Summa; Uses crt; Var n,i: INTEGER; x,s: REAL; Begin Clrscr; Writeln(‘Введите n>0’); Readln(n); If n<=0 then Writeln(‘Введите n>0’); Else begin s: =0; x: =0; For i:=1 to n do s: =s+sin(i); x: =1/s+x; Writeln(‘Сумма x=’,x); end; End. 5.Результаты тестирования: 1) Введите n>0 1 Сумма x=1.1883951058E+00 2) Введите n>0 0 Введите n>0 3) Введите n>0 2 Сумма x=5.7117777163E-01 4) Введите n>0 3 Сумма x=5.2857239866E-01 1.Постановка задачи: Дано натуральное n. Вычислить: б) 2 + 2+ 2+… n 2.Тестовые примеры: 1) Пусть n=1, тогда S=1.4 2) Пусть n=2, тогда S=1.8 3) Пусть n=3, тогда S=1.9 4) Пусть n=-2, тогда S=0.00 3.Схема алгоритма: Для i от 1 до n шаг=1 -------- Находим сумму корней Конец i 4.Распечатка текста программы: Program Sum; Uses crt; Var n,i: Integer; S: Real; Begin Clrscr; Writeln(‘Введите n>0’); Readln(n); S:=0; For i:=1 to n do S:=sqrt(2+S); Writeln(‘Сумма S=’,S); End. 5.Результаты тестирования: 1) Введите n>0 1 Сумма S=1.4143135624E+00 2) Введите n>0 2 Сумма S=1.8477590650E+00 3) Введите n>0 3 Сумма S=1.9615705608E+00 4) Введите n>0 -2 Сумма S=0.0000000000E+00 [18] 1.Постановка задачи: Даны натуральные n, m. Выписать все числа меньшие n, сумма кубов цифр которых равна m. 2. Тестовые примеры: 1) Пусть n=78, m=35, тогда числами меньшими 78, сумма кубов цифр которых равна 35 будут являться числа 32 и 23. 2) Пусть n=38, m=16, тогда числом меньшим 38, сумма кубов цифр которого равна 16 будет являться число 22. 3) Пусть n=67, m=250, тогда числом меньшим 67, сумма кубов цифр которого равна 250 будет являться число 55. 4) Пусть n= -2, m= -9, эти числа не являются натуральными. 5) Пусть n=10, m=27, тогда числом меньшим 10, сумма кубов цифр которого равна 27 будет являться число 3. 6) Пусть n=25, m=18, чисел меньших 25 сумма кубов цифр которых равна 18 не существует 3. Схема алгоритма (см. приложение) 4. Распечатка текста программы: Program Seven; Uses crt; Var i, n, m, p, b, w : INTEGER; Begin Clrscr; Writeln(‘Введите n (натуральное)’); Readln(n); Writeln(‘Введите m (натуральное)’); Readln(m); If (n<0) or (m<0) then Writeln(‘Введите n или m натуральное’) Else begin For i:=n downto 1 do begin b:=i div 10; p:=i mod 10; If (sqr(b)*b+sqr(p)*p=m) then begin w:=b*10+p; Writeln( ‘ ‘ , w , ’ ‘ ); end; end; end; End. 5. Результаты тестирования: 1) Введите n (натуральное) 78 Введите m (натуральное) 35 32 23 2) Введите n (натуральное) 38 Введите m (натуральное) 16 22 3) Введите n (натуральное) 67 Введите m (натуральное) 250 55 4) Введите n (натуральное) -2 Введите m (натуральное) -9 Введите n или m натуральное 5) Введите n (натуральное) 10 Введите m (натуральное) 27 3 6) Введите n (натуральное) 10 Введите m (натуральное) 22 Приложение: Да Нет Для i от n до 1 Шаг=1 Нахождение первой цифры ----------------------------------------- числа Нахождение второй цифры ------------------------------------------- числа Нет Да Формирование числа из цифр ----------------------------------- b и p Конец i ----------------------- Начало Ввод n Знаменатель s=0 Сумма x=0 Введите n>0 Сформулируем число s s=s+sin(i) Сформулируем сумму x x=1/s+x n<=0 Вывод суммы x Конец Начало Ввод n S=0 Сформируем число S, S= 2+S Конец А А Начало Ввод n и m (n<0) или (m<0) Введите n или m натуральное А b= i div 10 Конец w=b*10+p А p= i mod 10 Вывод w