AKez
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проверьте правильность программы:
Дана строка, определить сколько раз в неё входит группа букв "a,b,c".
----
Program pr3;
Uses crt;
Var s,s1:string;
A,b,c,a1,b1,c1:integer;
Begin
Writeln(‘vvedite stroku’); read(s);
A:=length(s);
A1:=0;
B1:=0;
C1:=0;
For b:=1 to a do
Begin
S1:=copy(s,b,1);
Case s1 of
‘a’=inc(a1);
‘b’=inc(b1);
‘c’=inc(c1);
end;
end;
writeln(‘a’,a1);
writeln(‘b’,b1);
writeln(‘c’,c1);
end.
----
Что то не работает  В чем ошибка?
------------------------
И программа - светофор. Не могу разобраться - как сделать так чтобы, нажимая клавишу (1 или 2 или 0) загорался цвет, опуская её гас. А то нажимая клавиши - они горят и всё
---
Program lab6;
Uses graph,crt;
Var a,b,c:integer;
X:char;
Begin
A:=0;
Initgraph (a,b,’..\BGI’);
Cleardevice;
Setlinestyle(0,1,3);
Setfillstyle(1,0);
Floodfill(60,125,15);
Floodfill(60,85,15);
Floodfill(60,45,15);
Repeat
If c=49 then
Begin
Setfillstyle(1,2);
Floodfill(60,125,15);
End;
If c=48 then
Begin
Setfillstyle(1,4);
Floodfill(60,85,15);
End;
If c=50 then
Begin
Setfillstyle(1,14);
Floodfill(60,45,15);
End;
Line(20,20,100,20);
Line(100,20,100,150);
Line(100,150,20,150);
Line(20,150,20,20);
Line(50,150,50,200);
Line(50,200,70,200);
Line(70,200,70,150);
Circle(60,45,18);
Circle(60,85,18);
Circle(60,125,18);
X:=readkey;
C:=ord(x);
Until c=27;
Closegraph;
End.
|
