Главная | Случайная
Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Решение задачи в автоматическом режиме




После выполнения отладки программы, для неё разрабатывается документация пользователя. Разработанная программа и её сопроводительная документация передаются заказчику, который начинает её эксплуатацию.

 

7. Дана непустая последовательность слов из латинских букв, соседние слова отделены друг от друга запятой, за последним словом — точка. Определить количество слов, которые начинаются с буквы a.

8. Дана строка символов: заменить в ней все восклицательные знаки на точки.

 

program prim2;

var str:string;

l,i:integer;

begin

writeln('Введитетекст:');

readln(str);

l:= length(str);

writeln('преобразованныйтекст');

for i := 1 to l do

if (str [i] = '!') then write('.')

else

write(str[i]);

writeln;

end.

 

9. Найти сумму элементов одномерного массива, значения которых находятся в некотором интервале .

program prim3;

var

x:array[1..100] of real;

n,i:integer;

sum: real;

begin

writeln ('Введите размерность массива:');

readln(n);

sum:=0;

writeln ('Введите массив:');

begin

for i:=1 to n do

begin

readln(x[i]);

sum:=sum+x[i];

end;

writeln('Summa=',sum);

readln;

end;

end.

 

n- количество элементов массива

i- количество прохождения цикла

sum– сумма элементов массива

readln(n) – вводится размер массива

sum:=0 сумме элементов присваивается значение 0

 




Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2019 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных