Напечатать буквы, что входят в текст дважды

@ВладА96 · Регистрация: 02.11.2015

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

2. Дан текст с прописными латинскими буквами, за которым идет точка. Напечатать буквы, что входят в текст дважды.

@volvo · 03.11.2015, 12:18

Pascal

type
  letters = 'A' .. 'Z';
var
  arr : array[letters] of integer;
  s : string;
  ch : char;
begin
  readln(s);
  for ch in s do if ch in ['A'..'Z'] then inc(arr[ch]);
  for ch in letters do if arr[ch] = 2 then write(ch);
end.

Новичок · 03.11.2015, 17:25

volvo, а почему массив arr не обязательно нулями заполнять в начале программы?

@volvo · 03.11.2015, 19:19

Потому что глобальный массив гарантированно обнулится при старте приложения.

@bormant · 04.11.2015, 12:15

volvo,
руководство FPC несколько иного мнения на этот счёт: http://www.freepascal.org/docs... fse23.html

By default, variables in Pascal are not initialized after their declaration. Any assumption that they contain 0 or any other default value is erroneous: They can contain rubbish.

Для TP/Delphi значения глобальных переменных в виде 0 или пустых строк были описаны в документации явно.
А вот для FPC таких гарантий нет, если правильно путаю. Поэтому формальный повод для снижения оценки может быть усмотрен.

@volvo · 04.11.2015, 12:34

Сообщение от bormant

are not initialized after their declaration

Я и не писал, что они обнуляются при (или после) объявлении, я написал

Сообщение от volvo

обнулится при старте приложения

Что бы там не придумали разработчики FPC - никто базовых вещей не отменял: все неинициализированные данные компилятор сбрасывает в сегмент bss, который при старте приложения обнуляется системой.

@APALoff · 05.11.2015, 09:01

Не по теме:

Сообщение от volvo

for ch in s do

Это во Free аналог Pabc.NET Foreach ?

@volvo · 05.11.2015, 09:41

Не по теме:

Сообщение от APALoff

Это во Free аналог Pabc.NET Foreach ?

Ну, типа того

Новичок · 05.11.2015, 16:12

Не по теме:

Сообщение от APALoff

Это во Free аналог Pabc.NET Foreach ?

Я бы сказал, это фишка украденная из Питона. :)

@ВладА96 0 / 0 / 0 Регистрация: 02.11.2015 Сообщений: 10
		1
	Напечатать буквы, что входят в текст дважды 02.11.2015, 23:11. Показов 617. Ответов 8 Метки нет (Все метки) 2. Дан текст с прописными латинскими буквами, за которым идет точка. Напечатать буквы, что входят в текст дважды. 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	03.11.2015, 17:25	3
	volvo, а почему массив arr не обязательно нулями заполнять в начале программы? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	03.11.2015, 19:19	4
	Потому что глобальный массив гарантированно обнулится при старте приложения. 1

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	04.11.2015, 12:15	5
	volvo, руководство FPC несколько иного мнения на этот счёт: http://www.freepascal.org/docs... fse23.html By default, variables in Pascal are not initialized after their declaration. Any assumption that they contain 0 or any other default value is erroneous: They can contain rubbish. Для TP/Delphi значения глобальных переменных в виде 0 или пустых строк были описаны в документации явно. А вот для FPC таких гарантий нет, если правильно путаю. Поэтому формальный повод для снижения оценки может быть усмотрен. 1

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	04.11.2015, 12:34	6
	Сообщение от bormant are not initialized after their declaration Я и не писал, что они обнуляются при (или после) объявлении, я написал Сообщение от volvo обнулится `при старте приложения` Что бы там не придумали разработчики FPC - никто базовых вещей не отменял: все неинициализированные данные компилятор сбрасывает в сегмент bss, который при старте приложения обнуляется системой. 0

@APALoff
	05.11.2015, 09:01 #7
	Не по теме: Сообщение от volvo for ch in s do Это во Free аналог Pabc.NET Foreach ? 0

@volvo
	05.11.2015, 09:41 #8
	Не по теме: Сообщение от APALoff Это во Free аналог Pabc.NET Foreach ? Ну, типа того 0

Новичок
	05.11.2015, 16:12 Напечатать буквы, что входят в текст дважды #9
	Не по теме: Сообщение от APALoff Это во Free аналог Pabc.NET Foreach ? Я бы сказал, это фишка украденная из Питона. :) 0