сервис вопросов и ответовЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?
5-9 класс|
|
procedure vvod(var st:string[10]; c:string);
begin writeln('Ввести'+' '+c);
readln(st);
end;
function kol(c:string;st:string):integer;
var k,i:integer;
begin k:=0;
i:=1;
while i<=length(st) do
begin if copy(st,i,1)=c then
k:=k+1;
i:=i+1;
end;
kol:=k;
end;
var s,s1,s2:string[10];
Begin vvod(s,'строку');
vvod(s1,'символ первый');
vvod(s2,'символ второй');
if kol(s1,s) >kol(s2,s) then
writeln('Символ ',s1,' встречается в строке ',s, kol(s1,s):4,' раз. Это >, чем встречается ',s2)
else
if kol(s2,s) >kol(s1,s) then
writeln('Символ ',s2,' встречается в строке ',s, kol(s2,s):4,' раз. Это >, чем встречается ',s1)
else
writeln('Количество символов ',s1,' и ',s2,' в строке ',s,' одинаково и =',kol(s1,s):4) ;
end.
Hosik200980
24 авг. 2014 г., 0:03:28 (9 лет назад)
Anuta1564804
24 авг. 2014 г., 0:43:27 (9 лет назад)
Подсчитывает кол-во вхождений символа1 и символа2 в сторку, и говорит какого больше или равное колво вхождений
Ответить
Другие вопросы из категории
ОПРЕДЕЛИТЕ СКОРОСТЬ СЧИТЫВАНИЯ ЗАПИСИ И ОБЪЕМ У ЭТИХ НОСИТЕЛЕЙ:
1 ДИСКЕТА 3,5 ДЮЙМОВ
2 ДИСКЕТА 5 ДЮЙМОВ
3 CD RW
4 CD ROM
5 DVD ROM
6 DVD RW
7 HD( жесткий диск)
8 RAM( операционная память)
9 флеш карта
Читайте также
Что делает в программе следующая строка?
For i:=l to 10 do read (M[i])
А) пересчет массива от 1 до 10
В)Заполнение массива
С)Ввод в массив десяти имен переменных
D) сортировка элементов массива
Что делает в программе следующая строка?
For i:=1 to 10 do read(M[i])
А) пересчет массива от 1 до 10
Б) заполнение массива
В) ввод в массив десяти имен переменных
Г) сортировка элементов массива
Помогите, пожалуйста, очень срочно
1. Чему будет равняться x после выполнения фрагмента программы:
x:=0;
repeat
x:=x+8
until x>=21.
2. Дано описание массива
var mas: array [-22;0] of integer;
Сколько элементов содержит данный массив?
3.Определите, что делает следующая программа, и какой результат она выдаст на заданном массиве (1,4,0,-1,-4)
Program n1
const n=5
var a: array [1...n] of integer;
i,b: integer;
begin
b:=a[1];
for i:=2 to n do
if a[i] writeln (b);
end.
4. Допустим, имеется одномерный массив, содержащий от 0 до 49 включительно. Требуется исключить из него все элементы, значения которых меньше 15.
Пожалуйста, помогите! Я накосячила со своей флешкой. Короче, компьютер ее теперь не видит, но пару раз что-то выскакивало, типа: Программа была
остановлена, т. к. один из драйверов сообщил об ошибке (Код 43). Нашла в интернете, что делать... Общие свойства, вызвать Мастера неполадок. ГДЕ ИСКАТЬ ЭТИ ОБЩИЕ СВОЙСТВА? Короче, помогиииите
Делаю презентацию, скачала для нее музыку, но когда решила поставить мне написали что формат не тот!!!В ПН надо будет скидывать на чужой комп и там
дорабатывать.....не знаю что делать((((
Вы находитесь на странице вопроса "ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.