Практическое занятие

1. Практическое занятие Pascal ABC. Структура программы. Типы. Операторы ввода и вывода

2. Задание 1 Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору — v2 км/ч и под гору — v3 км/ч. Время движения соответственно t1, t2 и t3 ч. Какой путь прошел пешеход?

3. Алгоритм решения задания 1 • 1. Ввести v1, v2, v3, t1, t2, t3. • 2. S1 := v1 * t1. • 3. S2 := v2 * t2. • 4. S3 := v3 * t3. • 5. S := S1 + S2 + S3. • 6. Вывести значение S. • 7. Конец.

4. Решение задания 1 program z1; var v1,v2,v3,t1,t2,t3:integer; s1,s2,s3,s:real; begin writeln('Введите v1,v2,v3,t1,t2,t3'); read(v1,v2,v3,t1,t2,t3); s1:=v1*t1; s2:=v2*t2; s3:=v3*t3; s:=s1+s2+s3; writeln('s=',s:5:5); end.

5. Задание 2 Найти значение S:

6. Решение задания 2 Program z2; vara,b,s:real; begin write (Введите а'); read (a); write (Введите b'); read (b); s:= a*sqrt(sqr(b)-sqr(a)); write ('S= ',s:4:2); end.

7. Задание 3 Величинам А и В соответствуют значения а и b; необходимо величине А присвоить значение b и величине В значение а.

8. Решение задания 3 program z3; var a,b,c:integer; begin writeln('Введитеa,b'); read(a,b); c:=a; a:=b; b:=c; writeln('a=',a,' b=',b); end.

9. Задание 4 Найти произведение цифр заданного трехзначного числа.

10. Решение задания 4 program z4;varp,n,a,b,c:integer;beginwrite('введите трехзначное число ');readln(n);a:=n mod 10;c:=n div 100;b:= (n div 10)mod 10;p:=a*b*c;writeln('произведение цифр данного числа равно ',p);end.

11. Домашнее задание Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.