Вопрос про String и Матрицы/массивы

@Garret · Регистрация: 25.09.2009

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

Доброе времени суток!

Помогите пожалуйста с двумя задачками.
Первую я почти сделал, только не могу понять один пункт...

1) В программу вводится 3 слова (через пробел). Узнать длину рядка и количество букв "а".
Также вывести каждое слово в отдельную строку (вот это не понимаю как сделать)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CJIOBA;
var
s : string;
a, b, c, k, i : integer;
   begin
   writeln('BBEDiTE CJIOBA');
   readln(s);
   k:=length(s); {DJIiHA}
for i := 1 to k do
    begin
    if s[i]='a' then a:=a+1;
    if s[i]='A' then b:=b+1;
    end;
    c:=a+b;
writeln('DJIiHA CTPOKi ', k, ' KOJIi4ECTBO "a"= ',c);
readln;
end.

Помогите плизз вывести каждое слово (их 3) в отдельную строчку

2) R подмножество АхА
А = {1, 2, 3, 4, 5, 6}
Генерировать двумерный массив R (6 на 6 элементов)
Элементы массива R могут принимать значение 0 и 1, для их генерации используйте функцию random
Составить список элементов R, а также при выводе матрицы отношения R нужно вывести элементы множества А

Эту задачу я вообще не понял, как генерировать этот массив? И как его потом вывести?

Спасибо за внимание!

@Puporev · 25.09.2009, 23:10

Раз между словами один пробел, а слов 3 то так.

Pascal
1
2
3
4
5
writeln(copy(s,1,pos(' ',s)-1));//первое слово до пробела
delete(,1,pos(' ',s);//удаляем его
writeln(copy(s,1,pos(' ',s)-1));//второе слово
delete(,1,pos(' ',s);//удаляем
writeln(s);//последнее слово

Если слов много, то это делается в цикле с предусловием, пока не кончатся пробелы.

Добавлено через 6 минут
Генерация случайных чисел 0 и 1 и вывод матрицы.

Pascal
1
2
3
4
5
6
7
8
9
10
randomize;
for i:=1 to 6 do
 begin
 for j:=1 to 6 do
   begin
     r[i,j]:=random(2);//числа 0 и 1
    write(r[i,j]:3);//выводим в строку по 6 элементов с выделением 3х позиций под число
   end;
 writeln;//переход на новую строку после каждых 6 элементов
end;

Остальной сумбур не понял. Хотите помощи, пишите полностью свое задание, без пояснений, проблем и комментариев.

@Garret · 25.09.2009, 23:51 **[ТС]**

Спасибо!

2е:
Спроектировать и реализовать программу, для:
- Генерации матрицы отношения R⊆АхА в виде двумерного массива R 6 на 6 элементов (множество А={1, 2, 3, 4, 5, 6}
- Вывода массива на экран в виде таблицы
- Составления списка элементов данной матрицы отношения

Элементы массива R могут принимать значение 0 и 1, для их генерации используйте функцию random

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Garret 0 / 0 / 0 Регистрация: 25.09.2009 Сообщений: 22
	25.09.2009, 23:51 [ТС]
	Спасибо! 2е: Спроектировать и реализовать программу, для: - Генерации матрицы отношения R⊆АхА в виде двумерного массива R 6 на 6 элементов (множество А={1, 2, 3, 4, 5, 6} - Вывода массива на экран в виде таблицы - Составления списка элементов данной матрицы отношения Элементы массива R могут принимать значение 0 и 1, для их генерации используйте функцию random 0