Предмет: Информатика,
автор: zhuraalya
Составить программу на языке Паскаль. Просто помогите! Умоляю! 1)Составить программу ввода букв или цифры,или спецзнака. Выводить сообщение типа"Это цифра..."," Это буква..",или "Это спецзнак..". К сообщению добавлять саму цифру,букву,спецзнак.
2)У белых на доске остался король,а у черных король и ферзь. Охарактеризовать положение белых с помощью одного из слов шах,мат,пат,обыкновенная позиция
Ответы
Автор ответа:
0
Задача 1, Pascal.ABC.Net
const
sAlpha='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
sDigit='0123456789';
var
c,c1:char;
begin
Write('Введите символ: '); Readln(c);
c1:=LowerCase(c);
if Pos(c1,sAlpha)>0 then Writeln('Введена буква ',c)
else
if Pos(c1,sDigit)>0 then Writeln('Введена цифра ',c)
else Writeln('Введен спецсимвол ',c)
end.
Программирование задачи №2 - большая работа, требующая многих часов, если не имеется готовых наработок для программирования шахматной игры. Давать подобные задачи для решения на данном Сервисе - бесполезное занятие, такое не задают даже на олимпиадах.
const
sAlpha='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
sDigit='0123456789';
var
c,c1:char;
begin
Write('Введите символ: '); Readln(c);
c1:=LowerCase(c);
if Pos(c1,sAlpha)>0 then Writeln('Введена буква ',c)
else
if Pos(c1,sDigit)>0 then Writeln('Введена цифра ',c)
else Writeln('Введен спецсимвол ',c)
end.
Программирование задачи №2 - большая работа, требующая многих часов, если не имеется готовых наработок для программирования шахматной игры. Давать подобные задачи для решения на данном Сервисе - бесполезное занятие, такое не задают даже на олимпиадах.
Похожие вопросы
Предмет: Алгебра,
автор: golovinsemen99
Предмет: Українська література,
автор: alyonkankos
Предмет: Русский язык,
автор: dhjdudujdjdnnenehd
Предмет: Математика,
автор: thevadik03