..Вот исходный код. Программы
var
s:string;
i,k:byte;
begin
write('Введите строку: ');
readln(s);
k:=0;
for i:=1 to length(s) do
if s in ['а'..'п','р'..'я','ё'] then
inc(k);
write('количество русских букв в строке=',k);
readln;
end.
Дана строка, подсчитать количество содержащихся в ней русских прописных букв.
Умею состовлять проги, но не умею рисовать блок-схемы.. . nikiforov.10@mail.ru
Блок-схемы - это не сложно. Рисуешь огурчик (прямоугольник со скруглёнными боковыми сторонами) и пишешь в нём "Начало". Затем рисуешь от него стрелочку вниз (из середины) . Под стрелочкой рисуешь параллелограмм (боковые стороны завалены вправо) и пишешь в нём "'Введите строку'". Стрелочка вниз. Ещё один параллелограмм с надписью "s". Стрелочка вниз. Прямоугольник с надписью "k:=0". Стрелочка вниз. Дальше цикл с параметром. Рисуешь как бы прямоугольник, но боковые стороны у него будут не прямыми, а как знаки "меньше" (слева) и "больше" (справа) . Должно получиться что-то, похожее на . Внутри этой фигуры пишешь "i = 1 .. length(s)". Стрелочка вниз. Рисуем ромб, внутри которого будет написано "s[ i ] in ['a'..'п', 'р'..'я', 'ё']". Из левой вершины ромба рисуешь стрелочку, которая изогнётся на 90 градусов и повернёт вниз. К ней пририсовываешь прямоугольник с надписью "inc(k)" внутри. От него нарисуешь линию, которая пойдёт сначала вниз, потом направо, потом вверх, потом влево и придёт к правой вершине ромба с условием. От этой линии нарисуй стрелочку, начало которой пойдёт от нижней границы линии, затем повернёт на 90 градусов влево, затем вверх, затем вправо и придёт к левому углу фигуры начала цикла (которая похожа на это ). Из правого угла фигуры начала цикла нарисуй похожую стрелочку, которую надо привести под первый изгиб предыдущей стрелочки. От неё нарисуй параллелограмм с надписью "'количество русских букв в строке=',k". Стрелочка вниз. Пустой параллелограмм. Стрелочка вниз. Огурчик "конец". Ну вот, видишь, всё очень просто.
ps Когда будешь рисовать длинные гнутые стрелочки, следи, чтобы они ни с чем не пересекались. Также слева от ромбика напиши "да", а справа "нет".
⇢