var
FileName, Ext: string;
i, p: Integer;
begin
Write ('Введите имя файла: ');
Read (FileName);
p := 0;
for i := Length (FileName) downto 1 do begin
if FileName [i] = '.' then begin
p := i;
Break;
end;
if p = 0 then begin
WriteLn ('Не найдено расширение имени файла!');
Exit;
Ext := LowerCase (Copy (FileName, p + 1, Length (FileName) - p));
if (Ext = 'htm') or (Ext = 'html') or (Ext = 'php') then
WriteLn ('Это веб - страница!')
else if (Ext = 'doc') or (Ext = 'docx') then
WriteLn ('Это документ Microsoft Word!')
else if (Ext = 'xls') or (Ext = 'xlsx') then
WriteLn ('Это документ Microsoft Excel!')
else if (Ext = 'zip') or (Ext = 'rar') or (Ext = '7z') then
WriteLn ('Это архив!')
else if Ext = 'exe' then
WriteLn ('Это программа!')
else
WriteLn ('Что - то другое.');
end.
правильный с синтаксической точки зрения код:
ConsoleColor text = ConsoleColor.Red;
string myProgrammName = "Крутая прога от меня!";
string s = "Чтобы она заработала, нужно дорого заплатить.";
int cost1 = 15000;
char currency = '$';
Console.Title = myProgrammName;
Console.WriteLine(s);
Console.ForegroundColor = text;
Console.Write(cost1);
Console.ResetColor();
Console.WriteLine(currency);
double cost = 15.5;
Console.WriteLine("...");
Console.ReadLine();
Console.Write("Ну или хотя бы ");
text = ConsoleColor.Green;
Console.WriteLine(cost);
объяснение ошибок по строкам:
1) неверное объявление переменной text
2) объявлена переменная целого типа, а значение присвоено как переменной строкового типа
3) не выбрано имя переменной и пропущена точка с запятой
4) объявлена переменная целого типа, а значение присвоено как переменной строкового типа
5) не определен тип переменной
6) будет выводить строку myProgrammName вместо значения переменной myProgrammName
7) будет выводить строку string вместо значения переменной.
8) нет ошибки
9) неверное имя переменной
10) нет ошибки
11) нет ошибки
12) неверный тип переменной
13)нет ошибки
14)нет ошибки
15)нет ошибки
16) пропущено ConsoleColor
17) нет ошибки
18) нет ошибки
var
FileName, Ext: string;
i, p: Integer;
begin
Write ('Введите имя файла: ');
Read (FileName);
p := 0;
for i := Length (FileName) downto 1 do begin
if FileName [i] = '.' then begin
p := i;
Break;
end;
end;
if p = 0 then begin
WriteLn ('Не найдено расширение имени файла!');
Exit;
end;
Ext := LowerCase (Copy (FileName, p + 1, Length (FileName) - p));
if (Ext = 'htm') or (Ext = 'html') or (Ext = 'php') then
WriteLn ('Это веб - страница!')
else if (Ext = 'doc') or (Ext = 'docx') then
WriteLn ('Это документ Microsoft Word!')
else if (Ext = 'xls') or (Ext = 'xlsx') then
WriteLn ('Это документ Microsoft Excel!')
else if (Ext = 'zip') or (Ext = 'rar') or (Ext = '7z') then
WriteLn ('Это архив!')
else if Ext = 'exe' then
WriteLn ('Это программа!')
else
WriteLn ('Что - то другое.');
end.
правильный с синтаксической точки зрения код:
ConsoleColor text = ConsoleColor.Red;
string myProgrammName = "Крутая прога от меня!";
string s = "Чтобы она заработала, нужно дорого заплатить.";
int cost1 = 15000;
char currency = '$';
Console.Title = myProgrammName;
Console.WriteLine(s);
Console.ForegroundColor = text;
Console.Write(cost1);
Console.ResetColor();
Console.WriteLine(currency);
double cost = 15.5;
Console.WriteLine("...");
Console.ReadLine();
Console.Write("Ну или хотя бы ");
text = ConsoleColor.Green;
Console.ForegroundColor = text;
Console.WriteLine(cost);
объяснение ошибок по строкам:
1) неверное объявление переменной text
2) объявлена переменная целого типа, а значение присвоено как переменной строкового типа
3) не выбрано имя переменной и пропущена точка с запятой
4) объявлена переменная целого типа, а значение присвоено как переменной строкового типа
5) не определен тип переменной
6) будет выводить строку myProgrammName вместо значения переменной myProgrammName
7) будет выводить строку string вместо значения переменной.
8) нет ошибки
9) неверное имя переменной
10) нет ошибки
11) нет ошибки
12) неверный тип переменной
13)нет ошибки
14)нет ошибки
15)нет ошибки
16) пропущено ConsoleColor
17) нет ошибки
18) нет ошибки