Решение олимпиадных задач Учитель информатики МБОУ«СОШ 23 с углубленным изучением отдельных предметов» Энгельсского муниципального района Саратовской области.

Презентация:



Advertisements
Похожие презентации
Массивы в Паскале. Создание массива: var a:array [1..5] of integer; i:integer; begin for i:=1 to 5 do begin write ('a[',i,']='); readln(a[i]); end; end.
Advertisements

Program wr_text; var f: text; st: integer; i:integer; begin assign(f,'l1.TXT'); rewrite(f); write('вводите поочередно числа, после ввода очередного числа.
ТЕКСТОВЫЕ ФАЙЛЫ Turbo Pascal 7.0. Операции с текстовыми файлами Выделение буфера обмена Установка связи Открытие файла Чтение из файла Запись в файл Закрытие.
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Пусть нам необходимо сформировать текстовый файл с помощью Паскаля, а затем переписать из данного файла во второй только те строки, которые начинаются.
Работа с файлами.. Процедура Assign(var f; name : String); Связывает внешний файл с именем name и переменную файлового типа f. Все дальнейшие операции.
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.
1 Программирование на языке Паскаль Тема 2. Максимальный элемент массива.
Проверка связи с файлом Для того, чтобы проверить, установлена ли связь файла с файловой переменной, необходимо использовать специальную функцию IOResult.
Тема: Нахождение минимального и максимального элемента в массиве.
Шутилина Л.А., A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5]
Чтобы переваривать знания, Нужно поглощать их с аппетитом. А. Франс.
Тема: «Понятие квадратная матрица» :17:47.
1 Программирование на языке Паскаль Максимальный элемент массива.
Оператор присваивания := Ввода Read(x1,x2,…) Readln(x1,x2,…) Вывода Writex(x1,x2,…) Writeln(x1,x2,…) Составной оператор begin …. End;
Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of.
PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.
Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы.
ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of.
Транксрипт:

Решение олимпиадных задач Учитель информатики МБОУ«СОШ 23 с углубленным изучением отдельных предметов» Энгельсского муниципального района Саратовской области Пуликова Светлана Алексеевна

Незванные гости За день к школьнику Васе пришло N незваных гостей. Вася записал время прихода и ухода каждого из гостей. По этим данным определите, какое максимальное число гостей одновременно находилось дома у Васи. Входные данные Первая строка входных данных содержит натуральное число N – количество пришедших гостей. 0

пример время гости время гости

1-й гость время гости 1111

2-й гость время гости 11221

3-й гость время гости

4-й гость время гости 11232

Результат время гости 11232

Program z3; Const c=15000; Var s:array [0..c] of longint; n,j,i,t1,t2,Max:integer; Begin Assign (input,'input.txt'); Assign (output,'output.txt'); Reset (input); Rewrite (output); Readln (n); For i:=1 to c do s[i]:=0; For i:=1 to n do begin Readln (t1,t2); For j:=t1 to t2 do s[j]:=s[j]+1; End; Max:=0; For i:=1 to c do If s[i]>Max then Max:=s[i]; Write (Max); Close (input); Close (output); End.

012…100000

012…

012… элементов

012… элементов 012…15000

012… …15000 Максимум M[1]

012… …15000 Максимум M[2]

012… …15000 Максимум M[3]

012… …15000 Максимум M[4]

012… …15000 Максимум M[5]

012… …15000 Максимум M[6]

012… …15000 Максимум M[7]

Program z3f; Const c=15000; Var s:array [0..c] of longint; m:array[1..7]of longint; n,j,i,t1,t2,Max,t1f,t2f:longint; pf:boolean; f1,f2:text; k:integer; Begin Assign (input,'input.txt'); Assign (output,'output.txt'); Assign (f1,'f1.txt'); Assign (f2,'f2.txt'); Reset (input); Rewrite (output); Rewrite (f1); Readln (n); pf:=false; For i:=1 to c do s[i]:=0;

For i:=1 to n do begin Readln (t1,t2); If t1>c then begin pf:=true; t1f:=t1-c; t2f:=t2-c;writeln(f1,t1f,' ',t2f) end else begin if t2>c then begin pf:=true;t1f:=1; t2f:=t2-c;t2:=c; writeln(f1,t1f,' ',t2f); end; For j:=t1 to t2 do s[j]:=s[j]+1; End; end; Max:=0; For i:=1 to c do If s[i]>Max then Max:=s[i]; m[1]:=max; close(f1); for k:=1 to 6 do begin reset(f1); rewrite(f2); pf:=false; for i:= 1 to c do s[i]:=0;

While not eof(f1) Do begin Readln (f1,t1,t2); If t1>c then begin pf:=true; t1f:=t1-c; t2f:=t2-c;writeln(f2,t1f,' ',t2f) end else begin if t2>c then begin pf:=true;t1f:=1; t2f:=t2-c;t2:=c; writeln(f2,t1f,' ',t2f); end; For j:=t1 to t2 do s[j]:=s[j]+1; End; end; Max:=0; For i:=1 to c do If s[i]>Max then Max:=s[i]; m[k+1]:=max; close(f1); close(f2); reset(f2); rewrite(f1);

While not eof(f2) do begin readln(f2,t1f,t2f); writeln(f1,t1f,' ',t2f); end; close(f2); close(f1); end; max:=m[1]; for i:=1 to 7 do if m[i]>max then max:=m[i]; Write (Max); Close (input); Close (output); End.

Спасибо за внимание.