var slovo,simval:string; i,k:integer; begin k:=0; write('Введите имя и фамилию '); readln(slovo); write('Введите символ '); readln(simval); for i:=1 to length(slovo) do begin if slovo[i]=simval then k:=k+1; if slovo[i]=simval then writeln(i,' '); end; if k>=1 then writeln('Да, встречается ',k,' раз, на позиции ',i)else writeln('Нет'); end.
Я немножко перевыполнил) От показывает есть симаол или нет, если есть то сколько раз он входит и на какой позиции...
Логическая операция ⊕ - это "исключающее ИЛИ" (xor в языках Паскаль, Бейсик и т.д.), а → операция присваивания. Тогда a⊕b→a; a⊕b→b; a⊕b→a - это был обмен значениями a ↔ b Теперь по этой же схеме обменяем местами b и с: b⊕c→b; b⊕c→с; b⊕c→b. Результат: b→a; c→b; a→c
Программа для иллюстрации: // PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var a:=50; var b:=-20; var c:=0; Println('Исходные значения: a=',a,'b=',b,'c=',c); a:=a xor b; b:=a xor b; a:=a xor b; b:=b xor c; c:=b xor c; b:=b xor c; Println('Результат обмена: a=',a,'b=',b,'c=',c) end.
Носитель информации - это любой материальный объект, используемый для закрепления и хранения на нем информации. В современном обществе можно выделить три основных вида носителей информации: 1) бумажный; 2) магнитный; 3) оптический. Бумажные носители информации. Одним из самых распространенных носителей информации является бумага. В школе мы записываем информацию в тетради, теоретический материал изучаем по учебникам, при разработке доклада, реферата или другого сообщения необходимые сведения мы находим в других источниках (книгах, энциклопедиях, словарях и т. д) , которые в свою очередь являются бумажными носителями информации Первые вычислительные машины работали на перфокартах. Перфокарты делали из плотной бумаги- картона, на которые по определенному правилу с специального «станка» - перфоратора наносили отверстия в виде небольших дырочек. Магнитные носители информации В 1928 году была изготовлена первая магнитная лента. Наши бабушки и дедушки слушали музыку на магнитофонах с магнитной лентой, которую называли «Бабина» . Магнитная лента оказалась достаточно надежным, долговечным и доступным каждому носителем информации. В первых ЭВМ (электронно- вычислительных машинах) информация хранилась на магнитных лентах и магнитных дисках В современных компьютерах в качестве носителя информации используются следующие магнитные носители : 1) дискета (на которую можно поместить данные 3000 перфокарт) . . Внутри пластмассового корпуса расположен гибким магнитный диск, поверхность которого покрыта специальным магнитным веществом. Информация записывается на обе его поверхности. Чтобы при работе с дискетой ее не надо было переворачивать, внутри флоппи-дисковода (устройства, которое записывает или считывает информацию с дискеты) имеется две магнитные головки, каждая для своей стороны дискеты. Такой диск требует особого обращения, магниты, повышенная температура и влажность разрушают хранящуюся на нем информацию. 2) жесткий магнитный диск или винчестер ( хранит 100 000 и более дискет) . Внутри жесткого металлического корпуса находятся несколько десятков дисков магнитных дисков, размещенных на одной оси . Запись или считывание информации обеспечивается несколькими магнитными головками. В целях сохранения информации и работо жесткие магнитные диски необходимо оберегать от ударов и резких изменений положений системного блока (нельзя наклонять и переворачивать в процессе работы) . 3) стриммеры (стрим-картриджи) - устройства, обеспечивающие запись или считывание звуковой информации . Внутри данного носителя находится магнитная лента. Оптические носители информации Самым распространенными носителями информации являются оптические или лазерные диски . Лазерные диски изготавливают из пластмассы, сверху покрывают тонким слоем из металла и прозрачным лаком, защищающим от незначительных царапин или загрязнений. Запись или считывание информации в CD-дисководе осуществляется с света лазера. При записи лазерный луч выжигает на поверхности диска микроскопические углубления, кодируя тем самым информацию (при считывании -лазерный луч отражается от поверхности вращающегося диска) . Такие диски следует оберегать от пыли и царапин. Различают CD и DVD диски.
var
slovo,simval:string;
i,k:integer;
begin
k:=0;
write('Введите имя и фамилию ');
readln(slovo);
write('Введите символ ');
readln(simval);
for i:=1 to length(slovo) do
begin
if slovo[i]=simval then k:=k+1;
if slovo[i]=simval then writeln(i,' ');
end;
if k>=1 then
writeln('Да, встречается ',k,' раз, на позиции ',i)else writeln('Нет');
end.
Я немножко перевыполнил) От показывает есть симаол или нет, если есть то сколько раз он входит и на какой позиции...