Почему неудобно заменять строки массивами символов? Второй во
program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln(‘введите количество значений массива n’); readln(n); write(‘введите элементы массива а: ‘); for i: =1 to n do readln(a[i]); writeln(‘введите элементы массива b’); for i: =1 to n do readln(b[i]); writeln(‘первоначальный массив b’); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln(‘сумма четных значений =’, s); end.
v=k*i=2000*16=32000 бита=4000 байтов
g= 44,1 кгц= 44100 гц
v= 44100гц*16 бит*120 сек= 8467200 бит
v= 8467200/8*1024*1024= 10 мбайт
procedure down(var n: integer); var a: array[1..20] of integer; i, j, s, p: integer; begin i : = 0; while n > 0 do begin i : = i + 1; a[i] : = n mod 10; n : = n div 10; end; p : = i; for i : = 1 to p — 1 do for j : = i + 1 to p do if a[i] < a[j] then begin s : = a[i]; a[i] : = a[j]; a[j] : = s; end; j : = 1; for i : = p downto 1 do begin s : = s + a[i] * j; j : = j * 10; end; n : = s; end;
Почему неудобно менять строки массивами символов?
Информатика, очень нужно)
что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! — включи воображение!
var i, n : integer;
a : array [1..20] of real;
writeln(‘введите размерность массива n=’);
write(‘введите элементы массива а: ‘);
for i: =1 to n do
writeln(‘исходный массив а: ‘);
for i: =1 to n do
for i: =1 to n do
if a[i]> 0 then s: =s+a[i];
writeln(‘сумма положительных элементов =’, s);
пщояк 17 27 16 33 17
нщёп 15 27 7 17
var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;
begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln(‘массив с замененным минимальным элементом’); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.
Уроки 27 — 28
Символьные строки. Функции для работы с символьными строками
§66. Символьные строки
1. Что такое символьная строка?
2. Почему неудобно заменять строки массивами символов?
3. Как объявляются строки в школьном алгоритмическом языке и в Паскале?
4. Как обращаться к элементу строки с заданным номером?
5. Как вычисляется длина строки?
6. Что обозначает операция «+» применительно к строкам?
7. Перечислите основные операции со строками и соответствующие им стандартные функции.
8. Как определить, что при поиске в строке образец не найден?
9. Чем различаются средства школьного алгоритмического языка и Паскаля для работы со строками?
10. Как преобразовать число из символьного вида в числовой и обратно?
11. Почему строку не всегда можно преобразовать в число? Как определить, что преобразование закончилось неудачно?
12. Объясните выражение «рекурсивный перебор».
13. Сравните на примерах рекурсивные и нерекурсивные методы решения переборных задач.
Подготовьте сообщение
а) «Символьные переменные в языке Си»
б) «Символьные строки в языке Python»
Следующая страница
Задачи
Cкачать материалы урока
Почему неудобно заменять строки массивами символов? Второй во
program string_7; var s: string; k,l,i: integer; begin write(‘введите строку: ‘); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]=’н’ then k: =k+1; if s[i]=’м’ then l: =l+1end; writeln(‘н=’,k); writeln(‘м=’,l); if k> l then writeln (‘больше букв н’); if k< l thenwriteln (‘больше букв м’); if (k = 0) and (l = 0) thenwriteln (‘таких букв нет’); end.
так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
это значит, что в двоичной системе определяющим является 1 цифра, а в 8-ричной — 3 цифры; разбиваем 2-ичную сис на группы по три числа, и переводим их в другую систему. например в первом будут группы чисел 100, 010, 010, 110; (разбивается с конца, исключаем возможность ошибки) 100 это 4 и т д..