Goodstudents.ru

 

 

 

 

 

Контрольные по английскому (сочинения, ответы, деловая корреспонденция) Исходник на паскале теста по английскому языку по вводным словам
Исходник на паскале теста по английскому языку по вводным словам



Исходник на паскале теста по английскому языку по вводным словам

Представляю Вашему вниманию исходник на паскале теста по вводным словам.

program english;
uses crt;
var hh16,hh17,hh12,hh88,hh18,hh19,hh20,hh21,hh22,hh23,hh24,hh25,hh26,hh27:string;
hh15,hh13,hh14:string;
begin
textbackground(1); clrscr; textcolor(13);
writeln('в дополнение');
readln(hh12);
if hh12='in addition' then
writeln('наконец, в конце концов (2 words)')
else exit; readln(hh13);
if hh13='in the end, finally' then
writeln('дальше') else exit;
readln(hh14);
if hh14='futher' then
writeln('напротив') else exit;
readln(hh15);
if hh15='on the contrary' then
writeln('хуже всего') else exit; readln(hh27); if hh27='worst of all' then
writeln('короче говоря') else exit;readln(hh16);if hh16='in short' then
writeln('следовательно') else exit;readln(hh17);if hh17='consequently'
{['k)nsikw$e$ntli]} then
writeln('с другой стороны') else exit;readln(hh18);if hh18='on the other hand' then
writeln('к счастью') else exit;readln(hh19);if hh19='luckily' then
readln(hh20) else exit;;if hh20='fortunately' then {['f):t|nitli]}
writeln('Однако могут быть исключения.') else exit; readln(hh21);
if hh21='However, there may be a few exceptions.' then
writeln('Таким образом, это еще не вся история.')else exit;readln(hh22);
if hh22='Thus, that is not the whole story.' then
writeln('Другими словами, ты отказываешься мне помочь.') else exit;readln(hh23);
if hh23='In the other words, you refuse to help me.' then
writeln('Мой лучший друг, например, никогда, нигде не ездил на велосипеде.')
else exit;readln(hh24);
if hh24='My best friend, for instance, has never ridden a bike.' then
writeln('Искренне Ваш') else exit;readln(hh25);if hh25='Sincerely yours' then
writeln('Преданный Вам') else exit;readln(hh26);if hh26='Yours faithfully' then
writeln('С приветом') else exit;readln(hh27);if hh27='Love' then
writeln('      ') else exit;
writeln('GOOD SPIRITS TO WEAR!');
writeln('I AM PLEASED WITH YOUR ANSWER.');
readln;
end.






 






Рейтинг@Mail.ru

Goodstudents Goodstudents



Все права на материалы сайта принадлежат авторам. Копирование (полное или частичное) любых материалов сайта возможно только при указании ссылки на источник (администратор сайта).