Tin học Mình mới học lập trình được 2 tuần nên có gì sai sót mong mọi người bỏ qua!

[HauBright]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

program NO_NAME;
uses Crt;
var diem1,diem2,diem3,diem4,diem5,diem6,diem7: integer;
cau1,cau2,cau3,cau4,cau5,cau6,cau7: string;
a,b,c,d,e,f,g : boolean;
{=================================================}
procedure QUESTION1;
begin
textcolor(lightblue);
writeln('(1)Nam cleans the room':3); textcolor(yellow);
write('=> '); readln(cau1);
if (cau1='The room is cleaned by Nam') then a:=true else a:=false;
if (a) then
begin
textcolor(lightgreen);
writeln('PERFECT!':20);
diem1:=1;
end
else
begin
textcolor(lightred);
writeln('THAT IS WRONG!':20);
diem1:=0;
end;
end;
{==================THE QUESTION 1===================}
{===================================================}
procedure QUESTION2;
begin
textcolor(lightred);
writeln('BELOW THIS IS THE EXERCISE FOR YOU TO TURN THE ACTIVE INTO THE PASSIVE');
writeln;
textcolor(lightblue);
writeln('(2)The students are doing the test now':3); textcolor(yellow);
write('=> '); readln(cau2);
if (cau2='The test is being done by the students now') then b:=true else b:=false;
if (b) then
begin
textcolor(lightgreen);
writeln('AWESOME!':20);
diem2:=1;
end
else
begin
textcolor(lightred);
writeln('NICE TRY!':20);
diem2:=0;
end;
end;
{==================THE QUESTION 2====================}
{====================================================}
procedure QUESTION3;
begin
textcolor(lightred);
writeln('BELOW THIS IS THE EXERCISE FOR YOU TO TURN THE ACTIVE INTO THE PASSIVE');
writeln;
textcolor(lightblue);
writeln('(3)Veres has written this letters for 2 hours':3); textcolor(yellow);
write('=> '); readln(cau3);
if (cau3='This letters have been written by Veres for 2 hours') then c:=true else c:=false;
if (c) then
begin
textcolor(lightgreen);
writeln('GOOD JOB!':20);
diem3:=1;
end
else
begin
textcolor(lightred);
writeln('TOO BAD!':20);
diem3:=0;
end;
end;
{==================THE QUESTION 3=====================}
{=====================================================}
procedure QUESTION4;
begin
textcolor(lightred);
writeln('BELOW THIS IS THE EXERCISE FOR YOU TO TURN THE ACTIVE INTO THE PASSIVE');
writeln;
textcolor(lightblue);
writeln('(4)Binh will play video games':3); textcolor(yellow);
write('=> '); readln(cau4);
if (cau4='Video games will be played by Binh') then d:=true else d:=false;
if (d) then
begin
textcolor(lightgreen);
writeln('PERFECT!':20);
diem4:=1;
end
else
begin
textcolor(lightred);
writeln('INCORRECT':20);
diem4:=0;
end;
end;
{================THE QUESTION 4=======================}
{=====================================================}
procedure QUESTION5;
begin
textcolor(lightred);
writeln('BELOW THIS IS THE EXERCISE FOR YOU TO TURN THE ACTIVE INTO THE PASSIVE');
writeln;
textcolor(lightblue);
writeln('(5)Jessica was painting the house at 7 yesterday':3); textcolor(yellow);
write('=> '); readln(cau5);
if (cau5='The house was being painted by Jessica at 7 yesterday') then e:=true else e:=false;
if (e) then
begin
textcolor(lightgreen);
writeln('CORRECT!':20);
diem5:=1;
end
else
begin
textcolor(lightred);
writeln('THAT IS WRONG!':20);
diem5:=0;
end;
end;
{=================THE QUESTION 5======================}
{=====================================================}
procedure QUESTION6;
begin
textcolor(lightred);
writeln('BELOW THIS IS THE EXERCISE FOR YOU TO TURN THE ACTIVE INTO THE PASSIVE');
writeln;
textcolor(lightblue);
writeln('(6)Peter bought this souvenir last week':3); textcolor(yellow);
write('=> '); readln(cau6);
if (cau6='This souvenir was bought by Peter last week') then f:=true else f:=false;
if (f) then
begin
textcolor(lightgreen);
writeln('AWESOME!':20);
diem6:=1;
end
else
begin
textcolor(lightred);
writeln('INCORRECT!':20);
diem6:=0;
end;
end;
{=================THE QUESTION 6=====================}
{====================================================}
procedure QUESTION7;
begin
textcolor(lightred);
writeln('BELOW THIS IS THE EXERCISE FOR YOU TO TURN THE ACTIVE INTO THE PASSIVE');
writeln;
textcolor(lightblue);
writeln('(7)Joe must complete the exercise before tomorrow':3); textcolor(yellow);
write('=> '); readln(cau7);
if (cau7='The exercise must be completed by Joe before tomorrow') then g:=true else g:=false;
if (g) then
begin
textcolor(lightgreen);
writeln('PERFECT!':20);
diem7:=1;
end
else
begin
textcolor(lightred);
writeln('THAT IS WRONG!':20);
diem7:=0;
end;
end;
{==================THE QUESTION 7======================}
begin
clrscr;
textbackground(black);
{===================================================}
textcolor(lightblue);
write(#6:27,'WELCOME TO "'); textcolor(yellow);
write('EPS PROGRAM'); textcolor(lightblue);
writeln('"',#6); readln;
{====================GREETING=======================}
{===================================================}
clrscr; textcolor(lightgreen);
writeln(#30:32,'INTRODUCTION',#30); delay(1500);
writeln; textcolor(lightred);
writeln('IN THIS PROGRAM, YOU WILL KNOW: '); delay(1000);
writeln; textcolor(yellow);
writeln(#4:5,'THE WAY TO TURN INTO PASSIVE.'); delay(500);
writeln;
writeln(#4:5,'THE PASSIVE SENTENCE STRUCTURE.'); delay(500);
writeln; textcolor(lightblue);
writeln('EPS WILL HELP YOU MORE CONFIDENT WHEN USING THE PASSIVE STRUCTURE.');
writeln('FIRST, EPS WILL GIVE YOU PASSIVE STRUCTURE. THEN, EPS WILL GIVE THE EXERCISE FORYOU TO DO!'); delay(1500);
textcolor(white);
writeln;
writeln('PRESS "ENTER" TO CONTINUE!'); readln;
{==================INTRODUCTION=====================}
{===================================================}
clrscr; textcolor(lightgreen);
writeln(#30:32,'INSTRUCTION',#30); delay(1500);
writeln; textcolor(lightred);
writeln('EACH QUESTION, YOU WILL WRITE THE ANSWER CORRECT SENTENCE:'); delay(1000);
writeln; textcolor(yellow);
writeln(#4:5,'PROPER NOUNS MUST ME CAPITALIZED AT THE FIRST LETTER SUCH AS: THE NAME, THE SITE,...'); delay(500);
writeln;
writeln(#4:5,'THE WORDS STANDING ON THE TOP OF THE SENTENCE MUST BE CAPITALIZED AT THE FIRST LETTER OF THAT WORDS.'); delay(1500);
textcolor(white);
writeln;
writeln('PRESS "ENTER" TO CONTINUE!'); readln;
{===================INSTRUCTION======================}
{====================================================}
clrscr; textcolor(lightgreen);
writeln('IN FIRST, YOU WILL KNOW THE PASSIVE STRUCTURE!');
writeln('BELOW THIS ARE 7 FORMS OF THE PASSIVE STRUTURES!'); textcolor(white);
writeln('PRESS "ENTER" TO SEE THE NEXT FORM!'); readln;
writeln; textcolor(yellow);
writeln('[THE PRESENT SIMPLE TENSE]':2); textcolor(lightblue);
writeln('ACTIVE: S1 + V1 + O1 + (ADV).');
writeln('PASSIVE: ');
writeln('(+) S2 + IS/AM/ARE + V3 + BY O2 + (ADV).':5);
writeln('(-) S2 + IS/AM/ARE NOT + V3 BY O2 + (ADV).':5);
writeln('(?) (Wh) + IS/AM/ARE + S2 + V3 + BY O2 + (ADV)?':5); readln;
writeln; textcolor(yellow);
writeln('[THE PAST SIMPLE TENSE]':2); textcolor(lightblue);
writeln('ACTIVE: S1 + V2 + O1 + (ADV).');
writeln('PASSIVE: ');
writeln('(+) S2 + WAS/WERE + V3 + BY O2 + (ADV).':5);
writeln('(-) S2 + WAS/WERE NOT + V3 BY O2 + (ADV).':5);
writeln('(?) (Wh) + WAS/WERE + S2 + V3 + BY O2 + (ADV)?':5); readln;
writeln; textcolor(yellow);
writeln('[THE PRESENT CONTINUOUS TENSE]':2); textcolor(lightblue);
writeln('ACTIVE: S1 + IS/AM/ARE + V4 + O1 + (ADV).');
writeln('PASSIVE: ');
writeln('(+) S2 + IS/AM/ARE + BEING + V3 + BY O2 + (ADV).':5);
writeln('(-) S2 + IS/AM/ARE NOT + BEING + V3 BY O2 + (ADV).':5);
writeln('(?) (Wh) + IS/AM/ARE + S2 + BEING + V3 + BY O2 + (ADV)?':5); readln;
writeln; textcolor(yellow);
writeln('[THE FUTURE SIMPLE TENSE]':2); textcolor(lightblue);
writeln('ACTIVE: S1 + WILL + V1 + O1 + (ADV).');
writeln('PASSIVE: ');
writeln('(+) S2 + WILL BE + V3 + BY O2 + (ADV).':5);
writeln('(-) S2 + WILL NOT BE + V3 BY O2 + (ADV).':5);
writeln('(?) (Wh) + WILL + S2 + BE + V3 + BY O2 + (ADV)?':5); readln;
writeln; textcolor(yellow);
writeln('[THE PAST CONTINUOUS TENSE]':2); textcolor(lightblue);
writeln('ACTIVE: S1 + WAS/WERE + V4 + O1 + (ADV).');
writeln('PASSIVE: ');
writeln('(+) S2 + WAS/WERE + BEING + V3 + BY O2 + (ADV).':5);
writeln('(-) S2 + WAS/WERE NOT + BEING + V3 BY O2 + (ADV).':5);
writeln('(?) (Wh) + WAS/WERE + S2 + BEING + V3 + BY O2 + (ADV)?':5); readln;
writeln; textcolor(yellow);
writeln('[THE PAST PERFECT TENSE]':2); textcolor(lightblue);
writeln('ACTIVE: S1 + HAVE/HAS + V3 + O1 + (ADV).');
writeln('PASSIVE: ');
writeln('(+) S2 + HAVE/HAS + BEEN + V3 + BY O2 + (ADV).':5);
writeln('(-) S2 + HAVE/HAS NOT + BEEN + V3 BY O2 + (ADV).':5);
writeln('(?) (Wh) + HAVE/HAS + S2 + BEEN + V3 + BY O2 + (ADV)?':5); readln;
writeln; textcolor(yellow);
writeln('[THE MODAL]':2); textcolor(lightblue);
writeln('ACTIVE: S1 + MODAL + V1 + O1 + (ADV).');
writeln('PASSIVE: ');
writeln('(+) S2 + MODAL + BE + V3 + BY O2 + (ADV).':5);
writeln('(-) S2 + MODAL + NOT BE + V3 BY O2 + (ADV).':5);
writeln('(?) (Wh) + MODAL + S2 + BE + V3 + BY O2 + (ADV)?':5);
writeln('*MODAL: SHOULD, MUST, HAVE TO, WILL, IS/AM/ARE GOING TO,...'); delay(300);
textcolor(white);
writeln('PRESS "ENTER" TO CONTINUE!'); readln;
{==========================STRUCTURES===========================}
{===============================================================}
clrscr; textcolor(lightred);
writeln('BELOW THIS IS THE EXERCISE FOR YOU TO TURN THE ACTIVE INTO THE PASSIVE'); readln;
QUESTION1; delay(600); clrscr;
QUESTION2; delay(600); clrscr;
QUESTION3; delay(600); clrscr;
QUESTION4; delay(600); clrscr;
QUESTION5; delay(600); clrscr;
QUESTION6; delay(600); clrscr;
QUESTION7; delay(1500); clrscr;
textcolor(lightgreen);
writeln('RESULT: ',diem1+diem2+diem4+diem4+diem5+diem6+diem7,'/7 RIGHT SENTENCE'); readln;
{========================THE EXERCISE==========================}
{==============================================================}
clrscr;
textcolor(lightblue);
write(#30:26,'THANKS FOR USING "');
textcolor(yellow);
write('EPS PROGRAM');
textcolor(lightblue);
writeln('"',#30); readln;
textcolor(lightgreen); clrscr;
writeln(#4:20,'WE HOPE YOU WILL BE GOOD AT THE PASSIVE!',#4); readln;
clrscr;
textcolor(yellow);
writeln(#30:30,'MADE BY "VO MINH HAU"',#30); delay(1000);
writeln;
writeln(#4:24,'DATE OF MANUFACTURE: 12/4/2023',#4); delay(1000);
writeln;
writeln(#4:25,'DATE OF COMPLETION: 14/4/2023',#4); delay(2000);
writeln; textcolor(lightgreen);
writeln(#30:35,'THE END',#30);
writeln;
{=======================THE END===============================}
readln;
end.