Пусть вводится последовательность символов длиной не более 4. если все вводимые символы — цифры, то выполните преобразование данной последовательности в целое число. паскаль.
Программа в PascalABC.Net: const digits=['0','1','2','3','4','5','6','7','8','9']; var s:string; n,i,err:integer; isdigit:boolean; begin Write('Введите натуральное число (1-9999): '); Read(s); i:=1; isdigit:=True; n:=Length(s); repeat isdigit:=isdigit and (s[i] in digits); Inc(i) until (not isdigit) or (i>n); if isdigit then begin Val(s,n,err); Writeln('Введено корректное число ',n) end else Writeln('Число содержит нецифровой символ') end.
Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так: var s:string; n,err:integer; begin Write('Введите натуральное число (1-9999): '); Read(s); Val(s,n,err); if err=0 then Writeln('Введено корректное число ',n) else Writeln('Число содержит нецифровой символ') end.
Active GIF Creator (russian edition) - мощный, доступный и понятный инструмент для создания и оптимизации GIF-анимаций, 3D кнопок, баннеров для Web и презентаций. Вы можете использовать также графику, созданную или отредактированную в любом другом графическом редакторе, например, в Windows Paint, Adobe Photoshop. Постоянное совершенствование программы направлено на расширение возможностей и удобство в работе как для начинающих, так и для опытных пользователей. Свойства программы: - Создаёт анимированные GIF-файлы из набора BMP, JPEG, ICO, PCX, Adobe Photoshop PSD -файлов и метафайлов Windows; - Редактирует изображения, используя внутренний графический редактор; - Импортирует кадры (фреймы) из других GIF-файлов; - Дублирует, объединяет, вырезает, изменяет размеры, поворачивает и перемещает фреймы; - Определяет глобальные параметры GIF-файлов, логический размер экрана, индекс цвета для фона, число циклов в анимации; - Определяет смещение, прозрачность, проявление, задержку, заголовок и значение "как удалять" для каждого отдельного образа; - Поволяет применять набор эффектов для образа и для его любой выделенной прямоугольной части; - Добавляет и удаляет текстовые комментарии; - Редактирует цветовые палитры; - Оптимизирует размер GIF-файлов; - Показывает размер GIF-файла и время загрузки для различных скоростей модемов; - Сохраняет образы GIF-файлов как набор BMP, JPEG или TIFF-файлов; - Экспортирует и импортирует AVI-файлы; - Экспортирует и импортирует ANI-файлы (анимированные курсоры); - Экспортирует и импортирует растровую полоску; - Создает образы трехмерных кнопок; - Позволяет просматривать GIF-файл на Web-странице с различными фонами; - Создаёт карту для тэга в HTML; - Создаёт GIF-файлы из командной строки command в пакетном режиме.
Const maxN = 100; // Максимальное кол-во элементов массива var n, i: longint; middle, sum, sum2: real; // Может быть нецелым числом a: array[1..maxN] of real; begin write('Введите количество элементов массива: '); readln(n); sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое write('Введите элементы массива через пробел: '); for i := 1 to n do begin read(a[i]); sum := sum + a[i]; end; middle := sum / n; // Вычисляем среднее арифметическое writeln('Среднее арифметическое = ', middle); sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического for i := 1 to n do if a[i] < middle then sum2 := sum2 + a[i]; writeln('Сумма элементов, меньших среднего арифметического = ', sum2); end.
const
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string;
n,i,err:integer;
isdigit:boolean;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
i:=1;
isdigit:=True;
n:=Length(s);
repeat
isdigit:=isdigit and (s[i] in digits);
Inc(i)
until (not isdigit) or (i>n);
if isdigit then
begin Val(s,n,err); Writeln('Введено корректное число ',n) end
else Writeln('Число содержит нецифровой символ')
end.
Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:
var
s:string;
n,err:integer;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
Val(s,n,err);
if err=0 then Writeln('Введено корректное число ',n)
else Writeln('Число содержит нецифровой символ')
end.