Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
hatpe
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 6
1

Даны две символьные переменные, в которых все символы, кроме одного, одинаковы. Определить номер позиции, в которй символы отличаются

30.05.2012, 21:01. Просмотров 1013. Ответов 8
Метки нет (Все метки)

Ребят помогите решить задачи


Задание 3
Даны две символьные переменные, по 4 символа каждая, в которых все символы, кроме одного, в соответствующих пози¬циях одинаковы. Определить номер позиции, в которой символы от¬личны друг от друга.
В паскале
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2012, 21:01
Ответы с готовыми решениями:

Даны целое число n и символы s1,s2,.sn , среди которых есть двоеточие. Получить все символы после двоеточия
Задачка вроде понятная и я её даже решил,но я взял в основу строковый тип.Как в последствии...

Найти количество слов в которых все символы кроме первого и последнего были одинаковы
вообщем нужно посимвольно ввести текст и в этом тексте найти количество слов в которых все символы...

Даны символы S1,...,Sn, среди которых есть хотя бы одна запятая. Определить номер S(i) по условию
Даны натуральное число n, символы S1,...,Sn. Известно, что среди S1,...,Sn есть хотя бы одна...

Даны две строки символов А$ и В$. Напечатать: все символы, входящие в А$ и В$ одновременно;
Даны две строки символов А$ и В$. Напечатать: все символы, входящие в А$ и В$ одновременно;

Символьные переменные ( являются ли символы идущими подряд в таблице кодировки ASCII)
Написать программу, которая запрашивает ввод 5 символов с клавиатуры. И определяет являются ли эти...

8
TheSN
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
30.05.2012, 21:11 2
hatpe,
Pascal
1
2
3
4
5
6
7
8
9
10
var
  s, c: string;
  i: integer;
 
begin
  readln(s); readln(c);
  repeat inc(i) until (s[i] <> c[i]) or (i = 4);
  writeln('Номер позиции: ', i);
  readln
end.
0
hatpe
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 6
30.05.2012, 23:10  [ТС] 3
TheSN, Спасибо большое))А то я в этих программах просак...
можешь сказать оператор repeat и until что означает? и зачем readln в конце?
0
TheSN
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
31.05.2012, 00:01 4
Посмотри в любом справочнике по Паскалю тему 'циклы'.
Предпоследняя строка не дает выполненной программе автоматически закрыться.
0
hatpe
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 6
31.05.2012, 00:06  [ТС] 5
TheSN, А можно сделать чтобы можно ввести разные буквы т. е ggeg
и uuwu? можешь посмотреть вторую темку...
0
TheSN
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
31.05.2012, 11:21 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  s: string;
  c: char;
  i: integer;
 
begin
  writeln('Введите 1-ую строку согласно условию:');
  readln(s);
  writeln('А 2-ую вводить не надо, я и без нее справлюсь :P');
  for i := 1 to length(s)-1 do if s[i] = s[i + 1] then c := s[i];
  i := 0;
  repeat inc(i) until s[i] <> c;
  writeln('Лишние символы в обеих строках находятся на позиции ', i);
  readln
end.
0
hatpe
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 6
31.05.2012, 18:41  [ТС] 7
TheSN, с массивом можешь решить?
0
TheSN
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
31.05.2012, 18:47 8
Третий раз одно и то же задание - нет. Надо было сразу уточнять все детали и привести пример.
Да и зачем здесь массив?
0
hatpe
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 6
03.06.2012, 22:06  [ТС] 9
TheSN, Я имею другую темку...
0
03.06.2012, 22:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2012, 22:06

Найти слова, у которых первый и последний символы одинаковы
В данном тексте найти слова, у которых первый и последний символы одинаковы. Напечатать эти слова.

Дан текст. Получить множества - Первое включает все символы, содержащиеся в тексте, второе - все символы, которых в тексте нет.
Дан текст. Получить два множества - Первое включает все символы, содержащиеся в тексте, второе -...

Даны файлы f и g, элементы которых являются символы, записать в файл h все латинские буквы
var F,H:text; C:char; begin assign (F,'input.txt'); assign (H,'output.txt'); reset(F);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru