На оси Оx заданы N точек с координатами x1,x2,...,xn. Найти такую точку Z, сумма расстояний от которой до данных точек минимальная. Входные данные. В первой строке вводится кол-во точек - N. В следующих строках вводятся координаты точек - x1,x2,...,xn.
Выходные данные. Выводится точка Z сумма расстояний от которой до данных точек минимальная.
var f:file of integer; i,k:integer; begin Randomize; Assign(f,'in.dat'); Rewrite(f); for i:=1 to 20 do begin k:=Random(99)+1; Write(f,k) end; Close(f) end.
uses Crt; const nn=100; var i,j,k,n:integer; fin,fout:file of integer; a:array[1..nn] of integer; dub:boolean; begin ClrScr; Assign(fin,'in.dat'); Reset(fin); Read(fin,k); if not eof(fin) then begin n:=1; Write(k,' '); a[n]:=k end else n:=0; while (not eof(fin)) and (n<=nn) do begin Read(fin,k); Write(k,' '); j:=1; dub:=false; while (j<=n) and (not dub) do begin dub:=(a[j]=k); Inc(j); end; if not dub then begin Inc(n); a[n]:=k; Inc(j) end end; Writeln; Close(fin); for i:=1 to n do Write(a[i],' '); Writeln; Writeln('n=',n); Assign(fout,'out.dat'); Rewrite(fout); Write(fout,n); Close(fout); ReadKey end.
В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var fin,fout:file of integer; Reset(fin,'in.dat'); var k:integer; var a:=new integer[fin.FileSize]; var n:=0; while not eof(fin) do begin Read(fin,k); a[n]:=k; Inc(n) end; Close(fin); a.Println; var b:=a.ToHashSet; b.Println; Writeln('n=',b.Count) end.
И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?
Інтернет-енциклопедії, словники та онлайн-перекладачі
Перегляд презентації
Тема: робота з інтернет енциклопедіями, словниками та онлайн перекладачами.
Навчальна мета: ознайомити з роботи з веб-енциклопедіями, словниками та онлайн перекладачами.
Розвиваюча мета: розвити уявлення учнів щодо використання новітніх технологій у навчанні.
Виховна мета: виховати інформаційну культуру учнів, уважність, дисциплінованість.
I. ОРГАНІЗАЦІЙНИЙ ЕТАП
II. ПЕРЕВІРКА ДОМАШНЬОГО ЗАВДАННЯ
III. ВІДТВОРЕННЯ І КОРИГУВАННЯ ОПОРНИХ ЗНАНЬ
Гра «Лови помилку»
На картках записані групи слів. Учні викреслюють зайве поняття, обмінюються картками, здійснюють взаємоперевірку.
1. Веб-сайт, веб-браузер, мережна папка.
2. Пошук, ключові слова, обліковий запис.
3. Зображення, папка, фрагмент тексту.
4. Гіперпосилання, веб-сайт, ім'я комп'ютера.
5. Локальна мережа, Інтернет, глобальна мережа, комп'ютер.
IV. МОТИВАЦІЯ НАВЧАЛЬНОЇ ДІЯЛЬНОСТІ
— Чи доводилось вам шукати пояснення конк