Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Символьные данные,описание,обработка
Символьные данные,описание,обработка
Дан массив в десять строк. В строке "название журнала_цена_количество подписчиков". Преобразовать массив так: в каждую строку через тире приписать стоимость журнала от всех подписчиков, распечатать.
Заранее спасибо.
1 | Автор: Greschnik | 2015-12-14, 14:28   |  Репутация: [ + 0 ]
1 | Автор: Greschnik | 2015-12-14, 14:28   |  Репутация: [ + 0 ]
Алгоритм такой: 1) в цикле считываем элемент массива (строку); 2) находим в строке два числа; 3) преобразуем числа из строкового типа в числовой; 3) перемножаем их, получаем нужную сумму; 4) преобразуем назад число в строковое значение; 5) дописываем в конец строки; 6) распечатываем строку; 7) переходим на начало цикла до тех пор пока не закончатся все элементы массива.
2 | Автор: admin | 2015-12-14, 14:48   |  Репутация: [ + 21 ]
FOR  i:=1 TO 9 DO
BEGIN f:=<цена для i-го журнала>;
k:=<кол-во подписчиков на i-ом журнале>;
s:=f div k;
st:=<преобразованное в строкузначения s >;
p:=p
+st;
3 | Автор: Greschnik | 2015-12-14, 14:58 | Изменено: Greschnik - Пн, 2015-12-14, 15:00   |  Репутация: [ + 0 ]
или же так????
Код
var i,e,c,k:integer; q,n:string;...
for i=1 to 5 do
begin e:=pos('_',s);
n:=copy(s,1,e-1);
delete(s,1,e);
val(s,c,e);
val(copy(s,1,e-1),c,e);
delete(s,1,e);
val(s,k,e);
str(k*c,q);
s:=n+'_'+q;
end;
4 | Автор: Greschnik | 2015-12-14, 18:04   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Символьные данные,описание,обработка
Страница 1 из 11
Поиск: