М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
akjol21
akjol21
30.03.2022 10:34 •  Информатика

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

👇
Ответ:
ketium2oo5
ketium2oo5
30.03.2022
Procedure GetWord(s:string; var p:integer; var w:string; delim:string:=' ');
{
 Получает в w слово из строки s, которое начинается не ранее позиции p.
 Возвращает новое значение p, указывающее на первый разделитель delim,
 который следует за найденным словом или 0, если такой разделитель не найден.
 По умолчанию слова разделяются не менее чем одним пробелом
}
var
  i,n:integer;
  fBreak:boolean; { флажок для прерывания циклов }
begin
  n:=Length(s); fBreak:=False;
  {ищем первый символ, отличный от разделителя - начало слова }
  while ((p<=n) and (not fBreak)) do
    if (p=n) or (s[p]<>delim) then fBreak:=True
    else Inc(p);
  { ищем очередной разделитель - конец слова }
  if p<n then begin
    i:=p; Inc(p); fBreak:=False;
    while (p<=n) and (not fBreak) do begin
      if (p=n) or (s[p]=' ') then fBreak:=True else Inc(p)
    end;
  { теперь слово находится между позициями i и p }
  w:=Copy(s,i,p-i)
  end;
  if p>=n then p:=0
end;

function CountG(w:string):integer;
{ возвращает количество гласных в слове w}
var
  i,k:integer;
begin
  k:=0;
  for i:=1 to length(w) do
    if w[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k);
  CountG:=k
end;

var
  s,w,wmax:string;
  p,k,gmax:integer;
begin
  Writeln('Введите текст, разделяя слова пробелами');
  Readln(s);
  s:=LowerCase(s);
  p:=1; gmax:=0;
  while p>0 do begin
    GetWord(s,p,w);
    k:=CountG(w);;
    if gmax<k then begin gmax:=k; wmax:=w end
  end;
  if gmax>0 then Writeln('В слове "',wmax,'" максимум гласных, равный ',gmax)
  else Writeln('Во введенной строке гласных букв не найдено')
end.
4,4(54 оценок)
Открыть все ответы
Ответ:
moon2536
moon2536
30.03.2022

data = [

   ['Ухмыляюсь', 2.26, 1.02, 87.3],

   ['Сияю от радости', 19.1, 1.69, 150.0],

   ['Катаюсь от смеха', 25.6, 0.774, 0.0],

   ['Слёзы радости', 233.0, 7.31, 2270.0],

   ['Подмигиваю', 15.2, 2.36, 264.0],

   ['Счастлив', 22.7, 4.26, 565.0],

   ['Глаза-сердца', 64.6, 11.2, 834.0],

   ['Целую', 87.5, 5.13, 432.0],

   ['Задумчивость', 6.81, 0.636, 0.0],

   ['Равнодушие', 6.0, 0.236, 478.0],

   ['Солнечные очки', 4.72, 3.93, 198.0],

   ['Громко плачу', 24.7, 1.35, 654.0],

   ['След от поцелуя', 21.7, 2.87, 98.7],

   ['Два сердца', 10.0, 5.69, 445.0],

   ['Сердце', 118.0, 26.0, 1080.0],

   ['Червы', 3.31, 1.82, 697.0],

   ['Класс', 23.1, 3.75, 227.0],

   ['Пожимаю плечами', 1.74, 0.11, 0.0],

   ['Огонь', 4.5, 2.49, 150.0],

   ['Переработка', 0.0333, 0.056, 932.0]

]

sum_emojixpress = 0

sum_instagram = 0

sum_twitter = 0

for row in data:

   sum_emojixpress += row[1]

emojixpress_mean = sum_emojixpress / len(data)

for row in data:

   sum_instagram += row[2]

instagram_mean = sum_instagram / len(data)

for row in data:

   sum_twitter += row[3]

twitter_mean = sum_twitter / len(data)

print('Среднее для EmojiXpress: {:.2f}'.format(emojixpress_mean))

print('Среднее для Instagram: {:.2f}'.format(instagram_mean))

print('Среднее для Твиттера: {:.2f}'.format(twitter_mean))

Объяснение:

объяснение в ответе

4,6(16 оценок)
Ответ:
VadAltman13
VadAltman13
30.03.2022

Минимальная единица изображения:

растровая: пиксели

векторная: графические формулы

Какая информация хранится в файлах векторного и раствого типа:

Ростовая: о пикселях, составляющих изображения.

Векторная: о графических примитивах, составляющих изображение.

С каких средств получается изображение:

растровая: Paint, Gipm, Adobe Photoshop

Векторная: Microsoft Word, OpenOffice, CorelDRAW , Macromedia Flash.

Объём графических файлов:

растровая: очень большой объём

Векторная: относительно небольшой объём

реакция изображения на изменение его размера:

Растровая: не желательно, возможно искажение.

Векторная: качество не будет потеряно, остаётся прежний вид.

Достоинства графики:

растровая: позволяет работать с фотореалестичными изображениями, простая ретушь и комбинация частей изображения, ввод сканера и и цифровыми камерами.

векторная: маленький объём файла, простое маштабирование.

Недостатки графики:

растровая: большой объём файла, маштабирование с искажением и ухудшение качества,

векторная: не пригодна для реалестичных изображений.

Форматы файлов:

растровая: BPM, GIF, JPG, PCX, TIF.

векторная: WMF, EPS, DXF, CCM

4,5(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ