То Використанням величин»
кості та санітарно-гігієнічних норм.
увага! Під час роботи з комп'ютером дотримуйтеся вимог безпеки життєдіяль-
4. Складіть у зошиті блок-схему алгоритму для наведеного фрагмента проекту
(мал. 4.42) і запишіть хід його виконання.
надан
значення 40
надати
Значення 5
повторли поки не
10
S =
надати S
значення
митин ат на 10
5
while S = 10:
S = s – а
а += 10
print(a) )
показати змінну
Мал, 4.42
2. Відкрийте середовище розробки та виконання проектів.
3. Складіть проєкт для малювання квадратів, розміщених поруч, поки периметр
квадрата не перевищує 50 кроків. Довжина сторони першого з них дорівнює а
кроків, а довжина сторони кожного наступного — на 5 кроків більша за довжину
сторони попереднього.
апці у файлі з іменем практична 9.
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R
var
r1,r2,u : integer;
R,I : real;
begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);
R := r2*r1 / (r2 + r1);
I := U/R;
//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );
writeln ('Сила тока на участке = ',I);
end.
program z2;
var s,s1:string;
a:integer;
begin
write('Введите слово: ');read(s1);
write('Введите строку: ');read(s);
s:=s+' ';
a:=length(s);
writeln(a);
insert(s1,s,a+1);
writeln('Преобразованная строка: ',s);
end.
2)
program z1;
var s:string;
i,kol:integer;
begin
writeln('Введите строку');
read(s);
kol:=0;
for i:=1 to length(s) do
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.