В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
BusL81
BusL81
09.08.2020 22:32 •  Информатика

Спо паскалю 1.задана матрица размером nxm вещественных чисел. получить массив b, присвоив его k-му элементу сумму элементов к 1-й строки матрицы. 2.дан текст, который состоит из слов. слова в тексте отделяются одно от другого пробелами и содержат гласные буквы, которые находятся во множестве [‘ а ‘, ‘ е ‘, ‘ у ‘, ‘ о ‘]. подсчитать количество букв в тексте, количество слов в тексте и вывести из текста количество гласных букв данного множества.

Показать ответ
Ответ:
puhova365
puhova365
31.08.2020 07:12
//Pascal ABC.NET 3.1 сборка 1256

//1
Const
 n=3;
 m=4;

 Var
 ma:array[1..n,1..m] of real;
 ar:array[1..n] of real;
i,j:integer;
s:real;
begin
randomize;
s:=0;
writeln('Matrix:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    ma[i,j]:=random(10);
    write(ma[i,j]:4);
    s:=s+ma[i,j];
   end;
  ar[i]:=s;
  s:=0;
  writeln;
 end;
writeln('Res:');
for i:=1 to n do
 writeln(i,':',ar[i]);
end.

//2
Var
 se:set of char;
 s:string;
 i,r1,r2:integer;
begin
se:=['а','е','у','о'];
readln(s);
s:=s.Trim;
i:=1;
while i<length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i+1,1) else inc(i);
var ars:=s.Split;
for i:=1 to length(s) do
 begin
  if ((ordansi(lowcase(s[i]))>=65) and (ordansi(lowcase(s[i]))<=90)) or ((ordansi(lowcase(s[i]))>=97) and (ordansi(lowcase(s[i]))<=122)) or ((ordansi(lowcase(s[i]))>=128) and (ordansi(lowcase(s[i]))<=175)) or ((ordansi(lowcase(s[i]))>=224) and (ordansi(lowcase(s[i]))<=243)) then inc(r1);
  if lowcase(s[i]) in se then inc(r2);
 end;
writeln('Количество букв:',r1);
writeln('Количество слов:',ars.Length);
writeln('Количество гласных из множества:',r2);
end.

Пример ввода:
Просто текст
Пример вывода:
Количество букв:11
Количество слов:2
Количество гласных из множества:3
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота