Программа-Переводчик

@TigrisBD · Регистрация: 15.01.2010

Студворк — интернет-сервис помощи студентам

Прошу откликнуться тех, кто знает, как написать след программу:
Вообщем нужен небольшой переводчик слов с агл-рус и рус-англ (25 слов примерно - слова любые), те допустим я пишу слово "Стол" а мне программа выдает "Table" или я пишу слово "Game" и программа мне выдает "Игра"и тд. Заранее большое спасибо!

@Puporev · 15.01.2010, 20:01

TigrisBD, Если такой небольшой словарь, то просто создай 2 строковых массива. Вводишь слово, ищешь в массиве его номер, по номеру выводишь слово из другого массива.

@TigrisBD · 15.01.2010, 20:07 **[ТС]**

Puporev,

А можно по подробнее, хотя бы пример на парочку слов.... Просто реально я в этом практически не шарю, только основы знаю.

@New_Neznayka · 15.01.2010, 20:19

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var   rus:array[1..25] of string;
      eng:array[1..25] of string;
      word:string;
      i:integer;
begin
  //Заполняем два массива 1-состоит из русских слов, 2-переводы к ним
  for i:=1 to 25 do begin
     write('Введите слово на русском:');
     readln(rus[i]);
     write('Введите перевод к слову:');
     readln(eng[i]);
  end;
  
  //Перевод
  write('Введите слово:');
  readln(word);
  for i:=1 to 25 do 
    if rus[i]=word then writeln('Перевод: ',eng[i])
end.

@Puporev · 15.01.2010, 20:23

Вот программа, не тестировал, но должно работать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
const n=25;
var a,r:array[1..n] of string;
    i,k:byte;
    slovo:string;
    w:char;
begin
clrscr;
writeln('Введите фнглийские слова и их перевод:');
for i:=1 to n do
readln(a[i],r[i]);
clrscr;
repeat
clrscr;
writeln('Направление перевода:');
writeln('1-английский-русский');
writeln('2-русский-английский');
writeln('другое-выход');
readln(w);
case w of
'1':begin
    write('Введите слово на англиском языке  ');
    readln(slovo);
    k:=0;
    for i:=1 to n do
    if a[i]=slovo then
     begin
      k:=1;
      write(' - ',r[i]);
     end;
    if k=0 then write('Такого слова в словаре нет.');
    readln;
    end;
'2':begin
    write('Введите слово на русском языке  ');
    readln(slovo);
    k:=0;
    for i:=1 to n do
    if r[i]=slovo then
     begin
      k:=1;
      write(' - ',a[i]);
     end;
    if k=0 then write('Такого слова в словаре нет.');
    readln;
    end;
else exit;
end;
until not (w in ['1','2']);
end.

@vad2211 · 15.01.2010, 21:00

Можно еще сделать так что если слова в словаре нету, то предложить вариант перевода для этого слова, и эти данные будут записываться в файл (или массив добавляться)

@TigrisBD · 15.01.2010, 21:33 **[ТС]**

Puporev, реалный респект и большое спасибо! Но у меня вот такой вопрос по программе:
в поле 9 Writeln ('Введите Английские слова и их перевод:');
каким образом надо вводить русские и английские слова, через пробел, или точку, или Enter. Потому что я ввожу русские и английские, затем делаю направления перевода, пишу слово, а он выдает, что такого слова в словаре нету. В чем мб дело?

@Puporev · 15.01.2010, 21:35

Вводишь через пробел английское слово и перевод, нажимаешь Enter, вводишь следующую пару.

@TigrisBD · 15.01.2010, 21:41 **[ТС]**

Puporev, да я так и вводил, прога постоянно пишет, что такого слова в словаре нету. :-(

@Puporev · 15.01.2010, 22:17

Извини, вот раз не потестишь программу, так обязательно ошибка. Это же строки, их же нет смысла через пробел вводить, получается одна строка, нужно так.

Pascal
1
2
3
4
5
6
7
8
writeln('Введите английские слова и их перевод:');
for i:=1 to n do
 begin
  write('английское - ');
  readln(a[i]);
  write('русское - ');
  readln(r[i]);
 end;

@TigrisBD · 15.01.2010, 22:36 **[ТС]**

Да ничего, со всеми бывает. Все заработало, все как часы! Огромное тебе спасибо! Респект и уважуха!

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@TigrisBD 1 / 1 / 0 Регистрация: 15.01.2010 Сообщений: 14

	Программа-Переводчик 15.01.2010, 19:57. Показов 29440. Ответов 10 Метки нет (Все метки) Прошу откликнуться тех, кто знает, как написать след программу: Вообщем нужен небольшой переводчик слов с агл-рус и рус-англ (25 слов примерно - слова любые), те допустим я пишу слово "Стол" а мне программа выдает "Table" или я пишу слово "Game" и программа мне выдает "Игра"и тд. Заранее большое спасибо! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.01.2010, 20:01
	TigrisBD, Если такой небольшой словарь, то просто создай 2 строковых массива. Вводишь слово, ищешь в массиве его номер, по номеру выводишь слово из другого массива. 2

@TigrisBD 1 / 1 / 0 Регистрация: 15.01.2010 Сообщений: 14
	15.01.2010, 20:07 [ТС]
	Puporev, А можно по подробнее, хотя бы пример на парочку слов.... Просто реально я в этом практически не шарю, только основы знаю. 1

@vad2211 119 / 119 / 41 Регистрация: 21.12.2009 Сообщений: 194
	15.01.2010, 21:00
	Можно еще сделать так что если слова в словаре нету, то предложить вариант перевода для этого слова, и эти данные будут записываться в файл (или массив добавляться) 1

@TigrisBD 1 / 1 / 0 Регистрация: 15.01.2010 Сообщений: 14
	15.01.2010, 21:33 [ТС]
	Puporev, реалный респект и большое спасибо! Но у меня вот такой вопрос по программе: в поле 9 Writeln ('Введите Английские слова и их перевод:'); каким образом надо вводить русские и английские слова, через пробел, или точку, или Enter. Потому что я ввожу русские и английские, затем делаю направления перевода, пишу слово, а он выдает, что такого слова в словаре нету. В чем мб дело? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.01.2010, 21:35
	Вводишь через пробел английское слово и перевод, нажимаешь Enter, вводишь следующую пару. 1

@TigrisBD 1 / 1 / 0 Регистрация: 15.01.2010 Сообщений: 14
	15.01.2010, 21:41 [ТС]
	Puporev, да я так и вводил, прога постоянно пишет, что такого слова в словаре нету. :-( 0

@TigrisBD 1 / 1 / 0 Регистрация: 15.01.2010 Сообщений: 14
	15.01.2010, 22:36 [ТС]
	Да ничего, со всеми бывает. Все заработало, все как часы! Огромное тебе спасибо! Респект и уважуха! 0