В программе Pascal можно создать антоним слова с помощью словаря, где ключом будет исходное слово, а значением - его антоним. Например:
program Antonyms; var words: array [1..5] of string = ('good', 'bad', 'hot', 'cold', 'happy'); antonyms: array [1..5] of string = ('bad', 'good', 'cold', 'hot', 'sad'); userInput: string; i: integer; begin write('Enter a word: '); readln(userInput); for i := 1 to 5 do begin if userInput = words[i] then begin writeln('Antonym: ', antonyms[i]); exit; end; end; writeln('Antonym not found'); end.
В этой программе заданы массивы слов words и их антонимов antonyms. Пользователю предлагается ввести слово, и программа ищет его в массиве words, затем выводит соответствующий антоним из массива antonyms. Если антоним не найден, программа выводит сообщение "Antonym not found".
В программе Pascal можно создать антоним слова с помощью словаря, где ключом будет исходное слово, а значением - его антоним.
program Antonyms;Например:
var
words: array [1..5] of string = ('good', 'bad', 'hot', 'cold', 'happy');
antonyms: array [1..5] of string = ('bad', 'good', 'cold', 'hot', 'sad');
userInput: string;
i: integer;
begin
write('Enter a word: ');
readln(userInput);
for i := 1 to 5 do
begin
if userInput = words[i] then
begin
writeln('Antonym: ', antonyms[i]);
exit;
end;
end;
writeln('Antonym not found');
end.
В этой программе заданы массивы слов words и их антонимов antonyms. Пользователю предлагается ввести слово, и программа ищет его в массиве words, затем выводит соответствующий антоним из массива antonyms. Если антоним не найден, программа выводит сообщение "Antonym not found".