Составить в pascal abc программу , анализирующую нажатую кнопку на ее принадлежность к определенной группе клавиш. соответствующие сообщения для цифровых клавиш, больших латинских букв, малых латинских букв, больших букв, малых букв.
program c1; var A: char; begin write('Введите символ: '); readln(A); case A of 'А'..'Я': writeln('Это большая русская буква'); 'а'..'я': writeln('Это маленькая русская буква'); 'a'..'z': writeln('Это маленькая английская буква'); 'A'..'Z': writeln('Это большая английская буква'); '0'..'9': writeln('Это цифра'); else writeln('Неизвестный знак'); end; end.
Это знаки для обозначения логических операций: a) отрицание (инверсия, логическое НЕ) обозначается ¬ (например, ¬А);
b) конъюкция логическое умножение, логическое И) обозначается /\ (например, А /\ В) либо & (например, А & В);
c) дизъюнкция (логическое сложение, логическое ИЛИ) обозначается \/ (например, А \/ В);
вдруг пригодится, есть еще такие знаки:
d) следование (импликация) обозначается → (например, А → В);
e) тождество обозначается ≡ (например, A ≡ B). Выражение A ≡ B истинно тогда и только тогда, когда значения A и B совпадают (либо они оба истинны, либо они оба ложны);
f) символ 1 используется для обозначения истины (истинного высказывания); символ 0 – для обозначения лжи (ложного высказывания).
1. #include #include using namespace std; int main (){ int a; cout << "Введите число: " << endl; cin >> a; cout << pow(a,2) - 2*a << endl; }
2. #include #include using namespace std; int main (){ int a, b; cout << "Введите два числа: " << endl; cin >> a >> b; cout << pow(a,2) + pow(b,2)-(a*b); }
3. #include #include using namespace std; int main (){ int a, b; cout << "Введите два числа: " << endl; cin >> a >> b; cout << "Молуль первого числа: " << abs(a) << endl << "Модуль второго числа: " << abs(b) << endl; }
Pascal ABC.net (на этом прогу делал)
program c1;
var
A: char;
begin
write('Введите символ: ');
readln(A);
case A of
'А'..'Я': writeln('Это большая русская буква');
'а'..'я': writeln('Это маленькая русская буква');
'a'..'z': writeln('Это маленькая английская буква');
'A'..'Z': writeln('Это большая английская буква');
'0'..'9': writeln('Это цифра');
else writeln('Неизвестный знак');
end;
end.