даны две фамилии (вводиться с клавиатуры ) определит какая из них длинее. прошу помогите, очень срочно надо. спасибо.
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
Буксирный теплоход тянет равноускоренно две баржи водоизмещением 500 т и 300 т. Сила сопротивления воды для первой баржи равна 15 кН, для второй 12 кН. Найти натяжение троса между баржами, если сила тяги буксира 50 кН. (20,6 кН)
Редкая гостья.
Таня и Витя жили в деревне около леса. Зимой Витя поставил на лесной опушке домик для птиц. Густые ветви ели защищали кормушку от вьюги. Пищу для птиц дети готовили с осени.
Сегодня ребята шли узкой тропинкой навестить друзей. На скатерти снега видны следы зверей и птиц. Из чащи показалась стайка щеглов.
Вдруг на верхушке ели появилась белка. Зверёк пробежал по ветке, огляделся и прыгнул на птичий домик. Редкая гостья ловко стала объедать ягодки с кисти рябинки.
- В тексте найти имена существительные, выделить окончание, указать склонение и падеж.
- Распределите по типам склонения слова, выделите окончания.
1 вариант Деревня, ночь, плащ, ворона, тетрадь, сирень, озеро, огонь
Двойная фамилия
2 вариант Кастрюля, мышь, луч, сорока, площадь, мозоль, солнце, пень.
- Выполните морфологический разбор слов:
1 вариант у кормушки, на скатерти
Даны две фамилии определить какая из них длиннее
В уроке 12 вы уже познакомились с символьным типом данных CHAR, который позволяет работать с отдельными символами текста. Для обработки более крупных текстовых единиц — строк введен тип данных, который называется STRING (строка).
Значениями этого типа являются строки любых символов длиной до 255.
Строковые переменные должны быть описаны предложением:
VAR имя: STRING;
Строки можно присваивать, сравнивать, вводить, выводить и соединять. Соединение обозначается знаком «+».
Вот примеры некоторых операций сравнения над строками:
‘стол’‘ABC’ ’12’ На основе этих примеров сформулируйте правила сравнения строк.
А это пример соединения строк:
‘пар’+ ‘о’ +’воз’ ‘паровоз’
Среди всевозможных значений строк есть пустая строка. Она изображается двумя апострофами (одинарными кавычками), между которыми ничего нет. Чтобы ввести этот символ в состав строки, надо повторить его дважды. Например, оператор
write(‘об»явление’)
выведет на экран: об’явление.
Программисту доступны отдельные символы строковой переменной, для этого кроме имени переменной надо указать порядковый номер символа в строке.
Например, если описана переменная X:STRING, то X[1] — это первый символ строки, X[2] — второй и т.д.
У X[0] особая роль — хранить длину строки. Значением X[0] является символ, код которого равен количеству символов в строке. Но для определения длины строковой переменной обычно используется функция
Например, если N:=LENGTH(x); — N присвоится значение равное числу символов в строке.
Как ФИО превратить в фамилию с инициалами
При описании строковой переменной мы можем ограничить длину строки, указав ее максимально возможный размер, тогда в строке будет храниться только указанное число символов.
Например :
Var s1:string;
s2:string[4];
begin
write(‘ введите слово ‘);
readln(s1);
write(s1);
write(‘ введите слово ‘);
readln(s2);
write(s2);
readln
end.
Если при выполнении этой программы ввести слово КУКУРУЗА, то при использовании переменной S 1 программа выведет КУКУРУЗА, а при использовании S 2 выведет только КУКУ.
ЗАПОМНИТЕ . Если при выполнении программы необходимо ввести значение для нескольких строковых переменных, для каждой из них должен быть указан свой оператор ввода READLN. Например ,
Var
a,b,c:string;
begin
readln(a);
readln(b);
readln(c);
write(a+b+c);
readln
end.
Проверьте, что произойдет, если записать READLN(a,b,c); или READ(a,b,c).
Пример 1.
Составить программу определяющую, какая из двух фамилий длиннее. Фамилии имеют разную длину.
Var
a,b:string;
begin
readln(a);
readln(b);
if length(a)>length(b) then write(a) else write(b);
readln
end.
Пример 2.
Даны два слова. Составить программу определяющую верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово.
Var x,y:byte;
a,b:string;
begin
readln(a);
readln(b);
x:=length(b);
if a[1]=b[x] then write(‘верно’) else write(‘неверно’);
readln
end.
Тренировочные задания.
1. Дано название города. Определить, четно или не четно количество символов в нем.
2. Дано слово. Вывести на экран его третий символ и дважды его последний символ.
3. Дано слово. Верно ли, что оно начинается и оканчивается на одну и ту же букву?
4. Дано слово. Получить и вывести на экран буквосочетание, состоящее из его третьего и последнего символа.
5. Составить программу которая запрашивает название футбольной команды и повторяет его на экране со словами: «Это чемпион!».
6. Составить программу, которая требует ввести слово, а затем выводит его «перевертыш». Например, введенное СЛОВО выводит как ОВОЛС.
7. Составить программу, подсчитыающую количество слов во введенном с клавиатуры предложении.
Разбор заданий урока 17.
1. Дано натуральное число N. Определить, является ли оно палиндромом. Число палиндром можно читать справа налево и слева направо: 4 88 121 767767 и т.д.
var k,n,m:longint;
begin
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
m:=n; k:=0;
while m div 10<>0 do
begin
k:=k*10+m mod 10;
m:=m div 10
end;
k:=k*10+m mod 10;
if k=n then writeln(‘данное число палиндром’)
else writeln(‘это не палиндром’);
readln;
end.
3. Дано натуральное число. Найти:
a. Число, получаемое при прочтении его цифр справа налево;
b. Число, получаемое в результате приписывания по двойке в начало и конец записи исходного числа;
c. Число, получаемое удалением из исходного всех цифр А;
d. Число, получаемое из исходного перестановкой его первой и последней цифр;
e. Число, образованное из исходного приписыванием к нему такого же числа.
var k,n,m,p:longint;
a:byte;
begin
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
m:=n; k:=0;
while m div 10<>0 do
begin
k:=k*10+m mod 10;
m:=m div 10;
end;
k:=k*10+m mod 10;
writeln(‘обратное число=’,k);
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
m:=n;
k:=10;
while m div 10<>0 do —
begin
k:=k*10;
m:=m div 10;
end;
m:=(2*k+n)*10+2;
writeln(‘число c двойками=’,m);
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
Repeat
write(‘Введите цифру ‘);readln(a);
until (a>=0) and (a<10);
m:=n; k:=1; p:=0;
while m div 10<>0 do
begin
if m mod 10<>a then
begin
p:=p+(m mod 10)*k;
k:=k*10
end;
m:=m div 10;
end;
if m mod 10<>a then p:=p+m mod 10*k;
writeln(‘число без цифры ‘,a:2,’=’,p);
Repeat
write(‘Введите натуральное число больше 9=’); readln(n);
until n>9;
m:=n; k:=10; p:=0;
a:=m mod 10;
m:=m div 10;
while m div 10<>0 do
begin
p:=p+(m mod 10)*k;
k:=k*10;
m:=m div 10
end;
p:=a*k+p+m;
writeln(‘число с перестановкой первой и последней цифр ‘,a:2,’=’,p);
Repeat
write(‘Введите натуральное число ‘); readln(n);
until (n>0)and(n<21474);
m:=n; k:=10;
while m div 10<>0 do
begin
k:=k*10;
m:=m div 10
end;
p:=n*k+n;
writeln(‘число= ‘,a:2,’=’,p);
readln;
end.
Т1. Строки. Простейшие задачи
Напишите в комментариях к этой записи консольные приложения для решения этих задач, укажите также код задачи.
Решены задачи 1, 3, 7 — 11 . Не решены: 2, 4-6, 12.
Задачи
Т1.1. Составить программу, которая:
а) запрашивает имя человека и повторяет его на экране;
б) запрашивает имя человека и повторяет его на экране с приветствием.
Т1.2. Составить программу, которая запрашивает название футбольной команды и повторяет его на экране со словами «— это чемпион!».
Т1.3. Составить программу, которая запрашивает отдельно имя и отдельно фамилию, а затем выводит их как одну символьную строку.
Т1.4. Составить программу, которая запрашивает название государства и его столицы, а затем выводит сообщение: «Столица государства … — город …» (на месте многоточий должны быть выведены соответствующие значения).
Т1.5. Составить программу, которая запрашивает название романа и фамилию его автора, а затем выводит сообщение: «Писатель … — автор романа …» (на месте многоточий должны быть выведены соответствующие значения).
Т1.6. Даны названия двух стран. Присвоить эти названия переменным величинам s1 и s2, после чего название s2 присвоить величине t1, название s1 — величине t2.
Т1.7. Дано название футбольного клуба. Определить количество символов в нем.
Т1.8. Дано название города. Определить, четно или нет количество символов в нем.
Т1.9. Даны две фамилии. Определить, какая из них длиннее.
Т1.10. Даны названия трех городов. Вывести на экран самое длинное и самое короткое название.
Т1.11. Даны названия двух стран. Присвоить эти названия переменным величинам s1 и s2, после чего обменять значения величин s1 и s2.
Т1.12. Составить программу обмена значениями трех переменных величин а, b, c строкового типа по следующей схеме:
а) b присвоить значение c, а присвоить значение b, c присвоить значение а;
б) b присвоить значение а, с присвоить значение b, а присвоить значение c.
NEW: Наш Чат, в котором вы можете обсудить любые вопросы, идеи, поделиться опытом или связаться с администраторами.
Похожие публикации:
- Если подключить посудомойку к горячей воде что будет
- Как добавить центр уведомлений виндовс 10 на панели задач
- Как загрузить django сайт на beget
- Что такое вирт клетки
Источник: gshimki.ru
Составить программу определяющую какая из двух фамилий длиннее фамилии имеют разную длину
1Составить программу определяющую, какая из двух фамилий длиннее. Фа- милии имеют разную длину (Вывести на экран длинную фамилию).
2 Чему будет равно значение переменной S после выполнения следующих операто- ров:
S1:=’колонна’; S2:=’профессор’; K1:=copy(S1,1,2);
Посмотреть ответы Ответить на вопрос
jar_jar_binks
1. Вот программа, которая определяет, какая из двух фамилий длиннее:
var
surname1, surname2: string;
begin
write(‘Введите первую фамилию: ‘);
readln(surname1);
write(‘Введите вторую фамилию: ‘);
readln(surname2);
if length(surname1) > length(surname2) then
writeln(‘Первая фамилия длиннее: ‘, surname1)
else if length(surname2) > length(surname1) then
writeln(‘Вторая фамилия длиннее: ‘, surname2)
else
writeln(‘Фамилии равной длины.’);
end.
«`
2. После выполнения следующих операторов:
«`
S1 := ‘колонна’;
S2 := ‘профессор’;
K1 := copy(S1, 1, 2);
K2 := copy(S1, 6, 2);
K3 := copy(S2, 2, 2);
S := concat(K1, K3, K2);
«`
Значение переменной `S` будет равно `’олснао’`.
Источник: znarium.com
Составить программу определяющую какая из двух фамилий длиннее фамилии имеют разную длину
В уроке 12 вы уже познакомились с символьным типом данных CHAR, который позволяет работать с отдельными символами текста. Для обработки более крупных текстовых единиц — строк введен тип данных, который называется STRING (строка).
Значениями этого типа являются строки любых символов длиной до 255.
Переменные строки должны быть описаны предложением:
VAR имя: STRING
Строки можно присваивать, сравнивать, вводить, выводить и соединять. Соединение обозначается знаком «+». Вот примеры некоторых операций сравнения над строками:
‘стол’ ‘ABC’ ’12’ ‘пар’+ ‘о’ +’воз’ ‘паровоз’
На основе этих примеров сформулируйте правила сравнения строк.
Среди всевозможных значений строк есть пустая строка. Она изображается двумя апострофами (одинарными кавычками), между которыми ничего нет. Чтобы ввести этот символ в состав строки, надо повторить его дважды. Например, оператор
write(‘об»явление’)
выведет на экран: об’явление.
Программисту доступны отдельные символы строковой переменной, для этого кроме имени переменной надо указать порядковый номер символа в строке. Например, если описана переменная X:STRING, то X[1] — это первый символ строки, X[2] — второй и т.д.
У X[0] особая роль — хранить длину строки. Значением X[0] является символ, код которого равен количеству символов в строке. Но для определения длины строковой переменной обычно используется функция
Например, если N:=LENGTH(x); — N присвоится значение равное числу символов в строке.
При описании строковой переменной мы можем ограничить длину строки, указав ее максимально возможный размер, тогда в строке будет храниться только указанное число символов.
Var
a,b:string[4];
begin
write(‘введите слово’);
readln(a);
write(a);
readln
end.
Если при выполнении этой программы ввести слово КУКУРУЗА, то программа выведет КУКУ.
Запомните. Если при выполнении программы необходимо ввести значение для нескольких строковых переменных, для каждой из них должен быть указан свой оператор ввода READLN. Например,
Проверьте, что произойдет, если записать READLN(a,b,c); или READ(a,b,c).
Пример 1.
Составить программу определяющую, какая из двух фамилий длиннее. Фамилии имеют разную длину.
Var
a,b:string;
begin
readln(a);
readln(b);
if length(a)>length(b) then write(a) else write(b);
readln
end.
Пример 2.
Даны два слова. Составить программу определяющую верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово.
Var x,y:byte;
a,b:string;
begin
readln(a);
readln(b);
x:=length(b);
if a[1]=b[x] then write(‘верно’) else write(‘неверно’);
readln
end.
Тренировочные задания.
1. Дано название города. Определить, четно или не четно количество символов в нем.
2. Дано слово. Вывести на экран его третий символ и дважды его последний символ.
3. Дано слово. Верно ли, что оно начинается и оканчивается на одну и ту же букву?
4. Дано слово. Получить и вывести на экран буквосочетание, состоящее из его третьего и последнего символа.
5. Составить программу которая запрашивает название футбольной команды и повторяет его на экране со словами: «Это чемпион!».
Разбор заданий урока 17.
1. Дано натуральное число N. Определить, является ли оно палиндромом. Число палиндром можно читать справа налево и слева направо: 4 88 121 767767 и т.д.
var k,n,m:longint;
begin
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
m:=n; k:=0;
while m div 10<>0 do
begin
k:=k*10+m mod 10;
m:=m div 10
end;
k:=k*10+m mod 10;
if k=n then writeln(‘данное число палиндром’)
else writeln(‘это не палиндром’);
readln;
end.
3. Дано натуральное число. Найти:
a. Число, получаемое при прочтении его цифр справа налево;
b. Число, получаемое в результате приписывания по двойке в начало и конец записи исходного числа;
c. Число, получаемое удалением из исходного всех цифр А;
d. Число, получаемое из исходного перестановкой его первой и последней цифр;
e. Число, образованное из исходного приписыванием к нему такого же числа.
var k,n,m,p:longint;
a:byte;
begin
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
m:=n; k:=0;
while m div 10<>0 do
begin
k:=k*10+m mod 10;
m:=m div 10;
end;
k:=k*10+m mod 10;
writeln(‘обратное число=’,k);
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
m:=n;
k:=10;
while m div 10<>0 do —
begin
k:=k*10;
m:=m div 10;
end;
m:=(2*k+n)*10+2;
writeln(‘число c двойками=’,m);
Repeat
write(‘Введите натуральное число ‘); readln(n);
until n>0;
Repeat
write(‘Введите цифру ‘);readln(a);
until (a>=0) and (a <10);
m:=n; k:=1; p:=0;
while m div 10<>0 do
begin
if m mod 10<>a then
begin
p:=p+(m mod 10)*k;
k:=k*10
end;
m:=m div 10;
end;
if m mod 10<>a then p:=p+m mod 10*k;
writeln(‘число без цифры ‘,a:2,’=’,p);
Repeat
write(‘Введите натуральное число больше 9=’); readln(n);
until n>9;
m:=n; k:=10; p:=0;
a:=m mod 10;
m:=m div 10;
while m div 10<>0 do
begin
p:=p+(m mod 10)*k;
k:=k*10;
m:=m div 10
end;
p:=a*k+p+m;
writeln(‘число с перестановкой первой и последней цифр ‘,a:2,’=’,p);
Repeat
write(‘Введите натуральное число ‘); readln(n);
until (n>0)and(n <21474);
m:=n; k:=10;
while m div 10<>0 do
begin
k:=k*10;
m:=m div 10
end;
p:=n*k+n;
writeln(‘число= ‘,a:2,’=’,p);
readln;
end.
Источник: subscribe.ru