Код на Pascal
----------
Program Japanprogram;
const number = 257;
var
russia:array[1..number] of string;
japan:array[1..number] of string;
name,old:string;
t:text;
i,yes,mass:integer;
Procedure write_array;//Заполнение масивов
begin
var i:integer;
//Считываем из файла слова
assign(t,'Japan.txt');
reset(t);
for i:=1 to number do
begin
readln(t,japan[i]);
write(japan[i], ' - ');
readln(t,russia[i]);
writeln(russia[i]);
end;
close(t);
//Заканчиваем считывать
end;
Procedure search;//Процедура поиска
begin
var i:integer;
//Поиск русских и японских слов в массиве и вывод их
while(name<>'e')do
begin
write('Введите начало слова, чтобы выйти "e":');
readln(name);
if(name<>'e')then
begin
for i:=1 to number do
begin
if (length(name)>1) then
begin
if(name[1]=japan[i][1])and (name[2]=japan[i][2]) then writeln(japan[i],' - ',russia[i]);
if(name[1]=russia[i][1])and (name[2]=russia[i][2]) then writeln(russia[i],' - ',japan[i]);
end;
if (length(name)=1) then
begin
if(name[1]=japan[i][1]) then writeln(japan[i],' - ',russia[i]);
if(name[1]=russia[i][1]) then writeln(russia[i],' - ',japan[i]);
end;
end;
end;
end;
//Конец этого поиска
end;
Procedure game;//Процедура игры
begin
var i:integer;
//Здесь идет игра, загадываеться рандомное слово, которое жертва должна отгодать, оно может быть японским, русским, иил по рандому
while(name<>'e') do
begin
write('Чтобы программа задала вам японские слова напишите "j", чтобы русские "r",для выхода "e":');
readln(name);
if(name<>'e')then
begin
write('Колличество слов:');
readln(mass);
if(name[1]='j')then for i:=1 to mass do begin yes:=random(number);write(japan[yes+1], ' - ');readln;writeln('Правильный ответ: ',russia[yes+1]); end;
if(name[1]='r')then for i:=1 to mass do begin yes:=random(number);write(russia[yes+1], ' - ');readln;writeln('Правильный ответ: ',japan[yes+1]); end;
end;
end;
//КОНЕЦ ИГРЫ!!!1111
end;
Procedure sortirovka;
var i,j:integer;
begin
write('Японско-Русский"1", или Руско-Японский"2" словарь?:');
readln(name);
if(name='1')then
begin
for i:=1 to number-1 do
begin
for j:=1 to number-1 do
begin
if(japan[j]>japan[j+1])then begin old:=japan[j];japan[j]:=japan[j+1];japan[j+1]:=old;old:=russia[j];russia[j]:=russia[j+1];russia[j+1]:=old; end;
end;
end;
for i:=1 to number do writeln(japan[i],' - ',russia[i]);
end;
if(name='2')then
begin
for i:=1 to number-1 do
begin
for j:=1 to number-1 do
begin
if(russia[j]>russia[j+1])then begin old:=japan[j];japan[j]:=japan[j+1];japan[j+1]:=old;old:=russia[j];russia[j]:=russia[j+1];russia[j+1]:=old; end;
end;
end;
for i:=1 to number do writeln(russia[i],' - ',russia[i]);
end;
end;
begin
Randomize;
write_array;
while(name<>'q') do
begin
write('Вы в главном меню, что-бы совершить поиск наберите "s", что-бы поиграть со мной в игру наберите "g", чтобы просто посмотреть все слова "a", что-бы выйти "q":');
readln(name);
if(name='s')then search;
if(name='g')then game;
if(name='a') or (name='а')then sortirovka;
end;
end.
-------
Скачать на паскале
Скачать в текстовом документе
Слова
------
Кохи
Кофе
Биру
Пиво
Кудамоно
Фрукты
Ринго
Яблоко
Микан
Апельсин
Банана
Банан
Джусу
Сок
Осаке
Саке
Ясаи
Овощи
Гохан
Рис
Пан
Хлеб
Тишатсу
Футболка
Нико
Мясо
Сакана
Рыба
Кутсу
Туфли
Кабан
Сумка
Токей
Часы
Еига
Кино
Тереби
Телевизор
Хаджимемаште
Приятно познакомиться
Дозо Ёросику О негасимас
Прошу любить и жаловать
Ваташи Ва
Я
Джин
Национальность
Рошиа
Россия
Нихон
Япония
Фурансу
Франция
Итариа
Италия
Мо
Тоже
Ка
Вопросительный знак
Ка
Или
Аната
Вы
Хай
Да
Иие
Нет
Дева аримесен
Не являеться
Коре
Это(Близко к нам)
Соре
Это(Близко к собеседнику)
Аре
Это(Далеко от обоих)
Нан
Что
Хана
Цветок
Боши
Шапка
Охаё гозаимас
Доброе утро
Конничива
Добрый день
Конбанва
Добрый вечер
Аригато
Спасибо
Аригато гозаимас
Большое спасибо
Домо аригато гозаимас
Очень большое спасибо
Суси
Суши
Хаси
Палочки для суши
Фоку
Вилка
Спун
Ложка
Дозо
Пожалуйста, когда даешь, что-либо
Оча
Зеленый чай
Коча
Черный чай
Айсукуриму
Мороженое
Ниндзин
Морковь
Пиман
Перец
Насу
Баклажан
Дзягаимо
Картошка
Кюри
Огурцы
Кябэцу
Капуста
Тамаго
Яйцо
Чото
Немного, вежливое нет
Денва
Телефон
Пен
Ручка
Суки(Ски)
Нравиться
Ва
Иминительный падеж
Га
Иминительный падеж
Боку
Я для маленьких мальчиков
Сумимасен
Извините/Спасибо
Дэс
Окончание предложения в н-б.в.
Дэшта
Окончание предложения в п.в.
Чокорето
Шоколад
Тори
Птица
Уши
Корова
Э
Покозатель направления
Э
Картина
Джи
Час
Икура
Цена
Сэн
1.000
Ман
10.000
Ното
Тетрадь
Хон
Книга
То
И/Вместе с чем либо
Ин
Человек/Рабочий
Казоку
Семья
Сюдзин
Муж
Канаи
Жена
Цума
Жена
РёСин
Родители
Мама
Хаха
Папа
Тити
Дедушка
Софу
Бабушка
Собо
Саи
Возраст, частица вораста
Сигото
Работа
Сёкугё
Проффесия
Гиси
Инженер
Ися
Врач
Кайсяин
Служащий фирмы
БиёСи
Парикмахер, косметолог
Сюфу
Домохозяйка
Кангофу
Медсестра
Сейто
Школьник
Гакусей
Студент
Пурагурамисто
Программист
Сенсей
Учитель
Гаймудайдин
Министр иностранных дел
Кейсацу
Полицейский
ДойтОрё
Президент
Тенин
Продавец
Гака
Художник
Онгакука
Музыкант
Унтенсю
Водитель
Ума
Лошадь
Уми
Море
Ме
Глаза
Нан но
Что за? Какой?
Ки
Дерево
Сэнака
Спина
Сэгоне
Позвоночник
Куни
Страна
Утю
Космос
Цуки
Луна
Хи
Солнце
ЧуГоку
Китай
Эиго
Английский язык
Игирису
Англия
Оранда
Голландия
Еки
Станция
Учи
Дом
Го
Язык
Го
5
Го
Настольная японская игра
Тигаймас
Ошибаться
Доицу
Германия
Найдзериа
Нигерия
Суэдэн
Швеция
Канкоку
Корея
Тай
Тайланд
Осуторария
Австралия
Брадзиру
Бразилия
Супеин
Испания
Усаги
Заяц
Ину
Собака
Генки
Дела\Здоровье
Хисашибури Дэс Не
Давно не виделись
Икимас
Ехать
Симас
Делать
Тобемас
Есть
Номимас
Пить
Мимас
Смотреть
Бенкё
Учеба
Томодачи
Друг
КёКай
Церковь
Гакко
Школа
Ойши
Вкусно!!!111
Отера
Японский храм
Мура
Деревня
Докуцу
Пещера
Емимас(В начале не "е", а "ё")
Читать
Коко
Здесь
Соко
Там
Асоко
Вон там
Доко
Где
Дотира
От куда, из какой
Гэнкан
Прихожая
Дойдокоро
Кухня
Сёкудо
Столовая
Синсицу
Спальня
Барукони
Балкон
Осэцума
Гостинная
Екусицу (в начале не Е, а Ё)
Ванная
Сэммэндзё
Умывальник
Тоире
Туалет
Тансу
Шкаф
Софа
Диван
Тэбуру
Стол
Хондана
Полка для книг
Сёккидана
Полка для посуды
Сэнтакки
Стиральная машина
Содзики
Пылесос
Рейдзоко
Холодильник
Бидео
Видео
Набе
Кастрюля
Якан
Чайник
Фрайпан
Сковородка
Сара
Тарелка
Коппу
Сткан
Симбун
Газета
Каса
Зонтик
Дегути
Выход
Бата
Масло
Косё
Перец
Сио
Соль
Сосу
Соус
Гюню
Молоко
Уэ
На
Нака
В
Шита
Под
Кечап
Кетчуп
Тотемо
Очень
Широй
Белый
Курой
Черный
Мидори, может быть мидорино
Зеленый
Акай
Красный
Аой
Синий
Кирой
Желтый
Щкудай
Домашнее задание
Гему
Игра
Сампо
Прогулка
Сарада
Салат
Ичиго
Клубника
Соджи
Уборка
Кикимас
Слушать/спрашивать
Икура
Икра
Комбу
Морская капуста
Эби
Креветки
Хару
Весна
Доресу
Платье
Сёкки
Посуда
Тен
Магазин
Кайся
Компания/фирма
Геидзё
Театр
Даке
Только
Майничи
Каждый день
Споцу
Спорт
Тенису
Тенис
Донна
Какой
Метору
Метр
Кюдзицу
Выходные
Сакка
Футбол
Горофу
Гольф
Сэнтаку
Стирка
Соджи
Уборка
Каимоно
Покупки
Сюттё
Командировка
Рёко
Путешествие
Гаикокуго????
Иностранный язык
Осёгацу
Новый год
Ей отосио
Поздровление до нового года
Акемаште омедето гозаимас
Поздравление после нового года
Маме
Бобы
Шампан
Шампанское
Но
Родительный падеж
Э
Показатель направления
Дэ
Место активного действия, или на чем приехал
О
Винительный падеж
Ни
Дательный падеж
Даре
С кем
Каи
Раз
Суйей
Плавание
Пати
Вечеринка
Курисумас
Рождество
Токидоки
Иногда
Агемас
Дарить
Мураймас
Получать
Сэнрей
Крещение
----
Скачать в текстовом файле
----------
Program Japanprogram;
const number = 257;
var
russia:array[1..number] of string;
japan:array[1..number] of string;
name,old:string;
t:text;
i,yes,mass:integer;
Procedure write_array;//Заполнение масивов
begin
var i:integer;
//Считываем из файла слова
assign(t,'Japan.txt');
reset(t);
for i:=1 to number do
begin
readln(t,japan[i]);
write(japan[i], ' - ');
readln(t,russia[i]);
writeln(russia[i]);
end;
close(t);
//Заканчиваем считывать
end;
Procedure search;//Процедура поиска
begin
var i:integer;
//Поиск русских и японских слов в массиве и вывод их
while(name<>'e')do
begin
write('Введите начало слова, чтобы выйти "e":');
readln(name);
if(name<>'e')then
begin
for i:=1 to number do
begin
if (length(name)>1) then
begin
if(name[1]=japan[i][1])and (name[2]=japan[i][2]) then writeln(japan[i],' - ',russia[i]);
if(name[1]=russia[i][1])and (name[2]=russia[i][2]) then writeln(russia[i],' - ',japan[i]);
end;
if (length(name)=1) then
begin
if(name[1]=japan[i][1]) then writeln(japan[i],' - ',russia[i]);
if(name[1]=russia[i][1]) then writeln(russia[i],' - ',japan[i]);
end;
end;
end;
end;
//Конец этого поиска
end;
Procedure game;//Процедура игры
begin
var i:integer;
//Здесь идет игра, загадываеться рандомное слово, которое жертва должна отгодать, оно может быть японским, русским, иил по рандому
while(name<>'e') do
begin
write('Чтобы программа задала вам японские слова напишите "j", чтобы русские "r",для выхода "e":');
readln(name);
if(name<>'e')then
begin
write('Колличество слов:');
readln(mass);
if(name[1]='j')then for i:=1 to mass do begin yes:=random(number);write(japan[yes+1], ' - ');readln;writeln('Правильный ответ: ',russia[yes+1]); end;
if(name[1]='r')then for i:=1 to mass do begin yes:=random(number);write(russia[yes+1], ' - ');readln;writeln('Правильный ответ: ',japan[yes+1]); end;
end;
end;
//КОНЕЦ ИГРЫ!!!1111
end;
Procedure sortirovka;
var i,j:integer;
begin
write('Японско-Русский"1", или Руско-Японский"2" словарь?:');
readln(name);
if(name='1')then
begin
for i:=1 to number-1 do
begin
for j:=1 to number-1 do
begin
if(japan[j]>japan[j+1])then begin old:=japan[j];japan[j]:=japan[j+1];japan[j+1]:=old;old:=russia[j];russia[j]:=russia[j+1];russia[j+1]:=old; end;
end;
end;
for i:=1 to number do writeln(japan[i],' - ',russia[i]);
end;
if(name='2')then
begin
for i:=1 to number-1 do
begin
for j:=1 to number-1 do
begin
if(russia[j]>russia[j+1])then begin old:=japan[j];japan[j]:=japan[j+1];japan[j+1]:=old;old:=russia[j];russia[j]:=russia[j+1];russia[j+1]:=old; end;
end;
end;
for i:=1 to number do writeln(russia[i],' - ',russia[i]);
end;
end;
begin
Randomize;
write_array;
while(name<>'q') do
begin
write('Вы в главном меню, что-бы совершить поиск наберите "s", что-бы поиграть со мной в игру наберите "g", чтобы просто посмотреть все слова "a", что-бы выйти "q":');
readln(name);
if(name='s')then search;
if(name='g')then game;
if(name='a') or (name='а')then sortirovka;
end;
end.
-------
Скачать на паскале
Скачать в текстовом документе
Слова
------
Кохи
Кофе
Биру
Пиво
Кудамоно
Фрукты
Ринго
Яблоко
Микан
Апельсин
Банана
Банан
Джусу
Сок
Осаке
Саке
Ясаи
Овощи
Гохан
Рис
Пан
Хлеб
Тишатсу
Футболка
Нико
Мясо
Сакана
Рыба
Кутсу
Туфли
Кабан
Сумка
Токей
Часы
Еига
Кино
Тереби
Телевизор
Хаджимемаште
Приятно познакомиться
Дозо Ёросику О негасимас
Прошу любить и жаловать
Ваташи Ва
Я
Джин
Национальность
Рошиа
Россия
Нихон
Япония
Фурансу
Франция
Итариа
Италия
Мо
Тоже
Ка
Вопросительный знак
Ка
Или
Аната
Вы
Хай
Да
Иие
Нет
Дева аримесен
Не являеться
Коре
Это(Близко к нам)
Соре
Это(Близко к собеседнику)
Аре
Это(Далеко от обоих)
Нан
Что
Хана
Цветок
Боши
Шапка
Охаё гозаимас
Доброе утро
Конничива
Добрый день
Конбанва
Добрый вечер
Аригато
Спасибо
Аригато гозаимас
Большое спасибо
Домо аригато гозаимас
Очень большое спасибо
Суси
Суши
Хаси
Палочки для суши
Фоку
Вилка
Спун
Ложка
Дозо
Пожалуйста, когда даешь, что-либо
Оча
Зеленый чай
Коча
Черный чай
Айсукуриму
Мороженое
Ниндзин
Морковь
Пиман
Перец
Насу
Баклажан
Дзягаимо
Картошка
Кюри
Огурцы
Кябэцу
Капуста
Тамаго
Яйцо
Чото
Немного, вежливое нет
Денва
Телефон
Пен
Ручка
Суки(Ски)
Нравиться
Ва
Иминительный падеж
Га
Иминительный падеж
Боку
Я для маленьких мальчиков
Сумимасен
Извините/Спасибо
Дэс
Окончание предложения в н-б.в.
Дэшта
Окончание предложения в п.в.
Чокорето
Шоколад
Тори
Птица
Уши
Корова
Э
Покозатель направления
Э
Картина
Джи
Час
Икура
Цена
Сэн
1.000
Ман
10.000
Ното
Тетрадь
Хон
Книга
То
И/Вместе с чем либо
Ин
Человек/Рабочий
Казоку
Семья
Сюдзин
Муж
Канаи
Жена
Цума
Жена
РёСин
Родители
Мама
Хаха
Папа
Тити
Дедушка
Софу
Бабушка
Собо
Саи
Возраст, частица вораста
Сигото
Работа
Сёкугё
Проффесия
Гиси
Инженер
Ися
Врач
Кайсяин
Служащий фирмы
БиёСи
Парикмахер, косметолог
Сюфу
Домохозяйка
Кангофу
Медсестра
Сейто
Школьник
Гакусей
Студент
Пурагурамисто
Программист
Сенсей
Учитель
Гаймудайдин
Министр иностранных дел
Кейсацу
Полицейский
ДойтОрё
Президент
Тенин
Продавец
Гака
Художник
Онгакука
Музыкант
Унтенсю
Водитель
Ума
Лошадь
Уми
Море
Ме
Глаза
Нан но
Что за? Какой?
Ки
Дерево
Сэнака
Спина
Сэгоне
Позвоночник
Куни
Страна
Утю
Космос
Цуки
Луна
Хи
Солнце
ЧуГоку
Китай
Эиго
Английский язык
Игирису
Англия
Оранда
Голландия
Еки
Станция
Учи
Дом
Го
Язык
Го
5
Го
Настольная японская игра
Тигаймас
Ошибаться
Доицу
Германия
Найдзериа
Нигерия
Суэдэн
Швеция
Канкоку
Корея
Тай
Тайланд
Осуторария
Австралия
Брадзиру
Бразилия
Супеин
Испания
Усаги
Заяц
Ину
Собака
Генки
Дела\Здоровье
Хисашибури Дэс Не
Давно не виделись
Икимас
Ехать
Симас
Делать
Тобемас
Есть
Номимас
Пить
Мимас
Смотреть
Бенкё
Учеба
Томодачи
Друг
КёКай
Церковь
Гакко
Школа
Ойши
Вкусно!!!111
Отера
Японский храм
Мура
Деревня
Докуцу
Пещера
Емимас(В начале не "е", а "ё")
Читать
Коко
Здесь
Соко
Там
Асоко
Вон там
Доко
Где
Дотира
От куда, из какой
Гэнкан
Прихожая
Дойдокоро
Кухня
Сёкудо
Столовая
Синсицу
Спальня
Барукони
Балкон
Осэцума
Гостинная
Екусицу (в начале не Е, а Ё)
Ванная
Сэммэндзё
Умывальник
Тоире
Туалет
Тансу
Шкаф
Софа
Диван
Тэбуру
Стол
Хондана
Полка для книг
Сёккидана
Полка для посуды
Сэнтакки
Стиральная машина
Содзики
Пылесос
Рейдзоко
Холодильник
Бидео
Видео
Набе
Кастрюля
Якан
Чайник
Фрайпан
Сковородка
Сара
Тарелка
Коппу
Сткан
Симбун
Газета
Каса
Зонтик
Дегути
Выход
Бата
Масло
Косё
Перец
Сио
Соль
Сосу
Соус
Гюню
Молоко
Уэ
На
Нака
В
Шита
Под
Кечап
Кетчуп
Тотемо
Очень
Широй
Белый
Курой
Черный
Мидори, может быть мидорино
Зеленый
Акай
Красный
Аой
Синий
Кирой
Желтый
Щкудай
Домашнее задание
Гему
Игра
Сампо
Прогулка
Сарада
Салат
Ичиго
Клубника
Соджи
Уборка
Кикимас
Слушать/спрашивать
Икура
Икра
Комбу
Морская капуста
Эби
Креветки
Хару
Весна
Доресу
Платье
Сёкки
Посуда
Тен
Магазин
Кайся
Компания/фирма
Геидзё
Театр
Даке
Только
Майничи
Каждый день
Споцу
Спорт
Тенису
Тенис
Донна
Какой
Метору
Метр
Кюдзицу
Выходные
Сакка
Футбол
Горофу
Гольф
Сэнтаку
Стирка
Соджи
Уборка
Каимоно
Покупки
Сюттё
Командировка
Рёко
Путешествие
Гаикокуго????
Иностранный язык
Осёгацу
Новый год
Ей отосио
Поздровление до нового года
Акемаште омедето гозаимас
Поздравление после нового года
Маме
Бобы
Шампан
Шампанское
Но
Родительный падеж
Э
Показатель направления
Дэ
Место активного действия, или на чем приехал
О
Винительный падеж
Ни
Дательный падеж
Даре
С кем
Каи
Раз
Суйей
Плавание
Пати
Вечеринка
Курисумас
Рождество
Токидоки
Иногда
Агемас
Дарить
Мураймас
Получать
Сэнрей
Крещение
----
Скачать в текстовом файле
Комментариев нет:
Отправить комментарий