1 / 37

РЕШЕНИЕ ЗАДАЧ НА СОСТАВЛЕНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

РЕШЕНИЕ ЗАДАЧ НА СОСТАВЛЕНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ. PROGRAM. Abs(3-5)=. Frac (6.4)=. BEGIN. Writeln. 11 mod 3 =. Abs ( х ). VAR. Sqr ( x ). END. Integer. Real. Sqr (7 )=. Readln. DIV. Frac ( x ). MOD. 11 div 3 =. ЗАДАНИЕ 1: Определите значение переменной ЗАДАНИЕ 2:

rosa
Download Presentation

РЕШЕНИЕ ЗАДАЧ НА СОСТАВЛЕНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. РЕШЕНИЕ ЗАДАЧ НА СОСТАВЛЕНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

  2. PROGRAM

  3. Abs(3-5)=

  4. Frac(6.4)=

  5. BEGIN

  6. Writeln

  7. 11 mod 3=

  8. Abs(х)

  9. VAR

  10. Sqr(x)

  11. END

  12. Integer

  13. Real

  14. Sqr(7)=

  15. Readln

  16. DIV

  17. Frac(x)

  18. MOD

  19. 11 div 3=

  20. ЗАДАНИЕ 1: Определите значение переменной ЗАДАНИЕ 2: Найдите ошибки в программе

  21. c:=8;а:=2.4;у:=sqr(c+trunc(a));y:=y+3; Определите значение переменной

  22. d:=30;n:=7;k:=d div n;k:=sqr(k)-n; Определите значение переменной

  23. c:=-3;b:=17;c:=abs(c);a:=b mod c;a:=5*a; Определите значение переменной

  24. Program 1; var a, c, d:integer; readln(a) readln(c) d=a-c; writeln(а:4); end. Program z1; var a, c, d:integer; Найти ошибки в программе нахождения суммы двух чисел: begin readln(a); readln(c); d:=a+c; writeln(d:4); end.

  25. Programa Pr2; var n, p, k:integer; readln(a); readln(i); k:=sqra+i; writeln(k:4:1); еnd Program Pr2; var Найти ошибки в программе: a, i, k:integer; begin readln(a); readln(i); k:=sqr(a+i); writeln(k:4); еnd.

  26. Program Primer; var y; x; t:real; y:=7x+t+5,6; wrаteln(y:4:1); еnd. Program Primer; var Найти ошибки в программе: y, x, t:real; begin readln(x); readln(t); y:=7*x+t+5.6; writeln(y:4:1); еnd.

  27. ЗАДАНИЕ 3 ЗАДАНИЕ 4 Напишите программу решения задачи

  28. a=y2+|x-1| program p1;varx,y,a:real;beginreadln(x);readln(y);a:=sqr(y)+abs(x-1);writeln(a:5:3);end.

  29. Ответы: группа 1: 26.000; 155.009; 251.360;группа 2: 26.000; 480.537; 15.060;группа 3:26.000; 736.480; 245.500.

  30. Составьте программу вычисления суммы цифр двузначного числа а. С помощью готовой программы найдите решение задачи, если а равны соответственно 75, 98 и 51. Program Summa; var a,b,c,s:integer; begin readln(a); b:=a div 10; c:=a mod 10; s:=b+c; writeln(s); end. Ответ: 12; 17; 6.

  31. Составьте программу вычисления площади кольца с внутренним радиусом R1 и внешним радиусом R2. С помощью готовой программы найдите решение задачи, если радиусы R1 и R2 равны 7, 10; 13, 25; 10, 11 соответственно. Program Plosh; var r1,r2,p,s:real; begin readln(r1); readln(r2); p:=3.14; s:=p*(sqr(r2)-sqr(r1)); writeln(s:5:2); end. Ответ: 160.14; 1431.84; 65.94

  32. Известна длина ребра куба а. Составьте программу вычисления объема куба и площади его поверхности. С помощью готовой программы найти решение задачи, если длина ребра куба равна 5, 7, 9.5 соответственно. Program Kub; var a, s, v: real; begin readln(a); v:=a*a*a; s:=6*sqr(a); writeln(v:5:2); writeln(s:5:2); end. Ответ: 125.00, 150.00; 343.00, 294.00; 857.38, 541.50.

  33. Домашнее задание: § 13, упр. 6, стр. 85

  34. СПАСИБО ЗА ВНИМАНИЕ!

More Related