Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 1
Регистрация: 08.07.2012
Сообщений: 31
1

Составить массив из чисел, равных половине количества символов каждой строки

10.07.2012, 19:09. Показов 962. Ответов 1
Метки нет (Все метки)

Есть массив строк. Нужно составить массив из чисел, равных половине количества символов каждой строки массива строк.
Т.е. допустим есть массив mas1:
as
asdf
zxcvbn

Тогда mas2 будет:
1
2
3

В С# это выглядит примерно так:
C#
1
2
3
4
5
6
7
8
foreach (string line in mas1) //Перебираю каждую строку
{
    k = 0;
    foreach (char c in line) k++; //Считаю кол-во символов в каждой строке
    k = Convert.ToInt32(k / 2); 
    mas2[i] = k;
    i++;
}
Как это будет выглядеть в Delphi ?

P.S. заранее не известно из скольки строк будет состоять массив
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.07.2012, 19:09
Ответы с готовыми решениями:

Удаление определённого количества символов каждой строки в текстовом файле
Добрый вечер Уважаемые Гуру! Задача: Есть txt файл. Нужно удалить определённое количество...

Упорядочить строки матрицы по возрастанию количества заданных символов в каждой строке
Помогите решить лабу *Дана символьная прямоугольная матрица. Упорядочить строки матрицы по...

Строки. Сформировать массив из количества слов каждой строки, начинающихся на гласную букву
ребят, помогите плиз с строками Дан массив символьных строк, длиной не более 40 символов. Строки...

Составьте новый массив из чисел, взятых по одному из каждой группы равных членов последовательности
Задачка про массив.решите пожалуйста. Пусть даны целые числа а1,а2,....,аn,среди которых могут...

1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
10.07.2012, 19:13 2
Лучший ответ Сообщение было отмечено Semena как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
var s:array of string;
     a:array of integer;
     n,i:integer;
begin
n:=StrToInt(Edit1.Text);//количество строк
Setlength(s,n);
setlength(a,n);
//как-то вводим и читаем строки
for i:=0 to n-1 do
a[i]:=length(s[i]) div 2;
//вывод массива чисел
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.07.2012, 19:13

Составьте новый массив из чисел, взятых по одному из каждой группы равных членов последовательности
Пусть даны целые числа a1, a2, …, an, среди которых могут быть повторяющиеся. Составьте новый...

Составьте массив из чисел, взятых по одному из каждой группы равных членов данной последовательности
Решите пожалуйста: Пусть даны целые числа a1,a2,...,an , среди которых могут быть повторяющиеся....

Новый массив из чисел, взятых по одному из каждой группы равных членов исходного массива
Пусть даны целые числа а1,а2,...,аn, среди которых могут быть повторяющиеся. Составьте новый...

Новый массив из чисел, взятых по одному из каждой группы равных членов исходного массива
Пусть даны целые числа а1,а2,...,аn, среди которых могут быть повторяющиеся. Составьте новый...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru