Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
1

Сформировать вектор: если в строке матрицы букв больше цифр, то элемент вектора -"истина", иначе "ложь"

26.03.2012, 17:14. Показов 1219. Ответов 1
Метки нет (Все метки)

Случайным образом заполнить матрицу символов 6х6.сформировать вектор в строке матрицы строчных латинских букв больше цифр, то его элемент вектора -"истина", иначе - "ложь"
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.03.2012, 17:14
Ответы с готовыми решениями:

Если в строке больше букв "А", чем букв "О", вывести в центре экрана слово "привет"
Помогите составить алгоритм к задаче: Заполнить левую половину экрана синим цветом, правую -...

Как "Истина"/"Ложь" переделать в "True"/"False"?
собснно сабж. есть w2000 server. русский IE. где-то в скрипте на сервере (VB) выдает CStr(True) =...

Как сделать чтобы при присвоении флагу выбранной записи "Истина", остальные флаги автоматически становились "Ложь"?
Сценарий: 1. Ставлю галку в "запись2" "флаг1" - все флаги таблицы становятся = "Ложь" ...

Как написать регулярное выражение для выдергивания английских букв и символов: "+", ",", ":", "-", " ", "!", "?" и "."
Не могу ни как собразить как написать регулярное выражение для выдергивания английских букв и...

__________________
1
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
26.03.2012, 18:27 2
Лучший ответ Сообщение было отмечено Richik123 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var a: array [1..6,1..6] of char;
    b: array [1..6] of boolean;
    i,j,r,kz,kb: byte;
    c: char;
 
begin
writeln('Дана матрица');
for i:=1 to 6 do
    begin
    kz:=0; kb:=0;
    for j:=1 to 6 do
        begin
        r:=random(2);     //решаем, будет цифра или буква
        if r=0 then c:=chr(random(25)+97) else c:=chr(random(10)+48);
        a[i,j]:=c;
        write(a[i,j],' ');
        if a[i,j] in ['0'..'9'] then inc(kz) else inc(kb);
        end;
    b[i]:=kb>kz;
    writeln;
    end;
writeln('Вектор');
for i:=1 to 6 do
    write(b[i],' ');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2012, 18:27

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Тип обьект "вектор" содержит поля: "вектор, егоразмер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление.
Тип обьект "вектор" содержит поля: "вектор, его размер и идентификатор в символьном виде", ...

дано четырехзначное число. если сумма первых 2 цифр=сумме 2 последних, написать "yes", иначе "no"
Вот попробовал написать код но ошибку выдает: #include <iostream.h> #include <conio.h> #include...

Как сделать проверку в строке "для дурака" с авто-заменой "," на "." - иначе вылетает
Помогите в программу "запилить" проверку ввода символа (Base, Pawer) "для дурака" с авто-заменой...

Базовый тип "обьект" содержит - поля:" вектор, его размер и идентификатор в символьном виде"- методы:" введение вектора, выведение вектора, определени
Базовый тип "обьект" содержит - поля:" вектор, его размер и идентификатор в символьном виде" -...

Задана матрица размером NxM. Определить k - количество "oco6ых" элементов матрицы, считая элемент "особым", если он больше суммы остальных элементов с
Задана матрица размером NxM. Определить k - количество "oco6ых" элементов матрицы, считая элемент...

Переменной b присвоить значение true, если между литерами "а" и "z" нет иных символов, кроме строчных латинских букв, и значение false иначе
Логической переменной b присвоить значение true, если между литерами "а" и "z" нет иных символов,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.