Задачи по информатике 1) Трое играли в шашки. Каждый с каждым. Сколько сыграно партий? Сколько партий сыграл каждый?
2) Несколько друзей встретились в парке. Каждый с каждым поздоровался за руку. Сколько было друзей, если рукопожатий было 10?
(Для ответа нужно нарисовать граф и пояснить)
// PascalABC.Net 3.0, сборка 1064
const
k = 100;
var
s, wd: string;
i, j, m, n, pt, step: integer;
Words, WordsSort: array[1..k] of string;
InOrder: boolean;
begin
Write('Введите строку: '); Readln(s);
n := Length(s); pt := 1; m := 0;
repeat
// Пропускаем все символы до первого непробельного
while pt <= n do
if Ord(s[pt]) <= 32 then Inc(pt) else break;
if pt <= n then begin
// Выделяем очередное слово
wd := '';
while pt <= n do
if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
else break;
if wd <> '' then begin Inc(m);Words[m] := wd end
end
until pt > n;
// Теперь Words содержит все m слов.
// Отсортируем их в массиве WordsSort методом Шелла
for i := 1 to m do WordsSort[i] := Words[i];
step := m div 2;
while step > 0 do begin
for j := m - step downto 1 do begin
i := j;
while i <= m - step do begin
if WordsSort[i] > WordsSort[i + step] then begin
wd := WordsSort[i];
WordsSort[i] := WordsSort[i + 1];
WordsSort[i + 1] := wd
end;
i := i + step
end
end;
step := step div 2
end;
// Осталось поэлементно сравнить оба массива
InOrder := true; i := 1;
while InOrder and (i <= m) do
begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
if m = 0 then Writeln('Строка не содержит слов')
else
if InOrder then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.
Тестовое решение:
Введите строку: слово1 слово2 слово3 слово4 слово5
Cлова упорядочены
Введите строку: слово1 слово2 слово4 слово3 слово5
Cлова не упорядочены
"Современный" вариант решения на Паскале:
// PascalABC.Net 3.0, сборка 1064
var
s:string;
begin
Write('Введите строку: '); Readln(s);
var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
var Words:=s.Split(Delim).Where(x->x<>'');
var WordsSort:=Words.Sorted;
if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.
Тестовое решение совпадает с вышеприведенным.
В обратном направлении от двух населенных пунктов на расстоянии 600 км. Через 4 часа вне комбайна мотоцикл в 4 раза быстрее его встретились. а) Какая скорость комбайна? б) Какая скорость у мотоцикла? В) сколько часов проезжает комбайн между двумя населенными пунктами?. а) Направленный отрезок называется вектором. НЕТ ДА б) Задано в координатной плоскости Через точки A (2; -2), B (-1; 4), Нарисуйте вектор AB.Точка A (2; 3) на рисунке - это точка, симметричная относительно оси OX. найти: А. А (-2; 3) Б. А (2; -3) К. А (-2; -3) Д. А, (-3; 2)Күндер ұзарып, табиғат гүлдене бастайды.3. а) Бағытталған кесінді вектор деп аталады.
ЖОК
ИЯ
b) Координаталық жазықтықта берілген
А (2; -2), B(-1;4) нүктелері арқылы,
АВ векторын кескіндеңіз.Суреттегі А (2;3) нүктесі ОХ осіне қарағанда симметриялы нүктесін
табыңыз:
A. A(-2;3)
B. A(2;-3)
C. A(-2;-3)
D. А, (-3;2)Менің ең жақсы көретін жыл мезгілім – ол көктем. Бұл мезгіл маған қуаныш сезімін және ерекше көңіл-күйді сыйлайды. Күндер ұзарып, табиғат гүлдене бастайды. Аспан ашылып, күн сәулесі қарды ерітеді. Құстар қайта оралып, жерден алғашқы гүлдер шығып, жануарлар және жәндіктер қысқы ұйқыдан оянады. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Менің ойымша, көктем – ең әдемі жыл мезгілі. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Көктем – ең әдемі жыл мезгілі!