ГОС информатика / ТЕОРИЯ наша!!! / Решения задач

38) Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 - рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.

Паскаль

Естественный язык

Объявляется массив A из 30 элементов. Объявляются целочисленные переменные i, x и y, а также вещественная переменная s. В цикле от 1 до 30 заполняются все элементы массива A с 1-ого по 30-ый.

39) Два игрока играют в следующую игру. Перед ними лежат две кучки фишек, в первой из которых 3, а во второй - 5 фишек. У каждого игрока неограниченно много фишек. Ходят игроки по очереди. Делая очередной ход, игрок или увеличивает в какой-то кучке число фишек в 2 раза, или добавляет в какую-то кучку 2 фишки. Выигрывает тот игрок, после хода которого общее число фишек в двух кучках становится не менее 21. Кто выиграет - игрок, делающий ход первым, или игрок, делающий второй ход?

40. На вход программы подается 366 строк, которые содержат информацию о среднесуточной температуре всех дней 2008 года. Формат каждой из строк следующий: сначала записана дата в виде dd.mm (на запись номера дня и номера месяца в числовом формате отводится строго два символа, день от месяца отделен точкой), затем через пробел записано значение температуры — число со знаком плюс или минус, с точностью до 1 цифры после десятичной точки. Данная информация отсортирована по значению температуры, то есть хронологический порядок нарушен. Требуется написать программу на языке Паскаль или Бейсик, которая будет выводить на экран информацию о месяце (месяцах), среднемесячная температура у которого (которых) наименее отклоняется от среднегодовой. В первой строке вывести среднегодовую температуру. Найденные значения для каждого из месяцев следует выводить в отдельной строке в виде: номер месяца, значение среднемесячной температуры, отклонение от среднегодовой температуры.

const DAYS = 366;

var tMonth: array[1..12] of real;

i, month: integer;

t, tYear, min: real;

c: char;

begin

for i:=1 to 12 do tMonth[i]:= 0;

tYear := 0;

for i:=1 to DAYS do begin

repeat read(c); until c = '.';

read (month);

readln (t);

tMonth[month] := tMonth[month] + t;

tYear := tYear + t;

end;

for i:=1 to 12 do

case i of

2: tMonth[i] := tMonth[i] / 29;

4,6,9,11: tMonth[i] := tMonth[i] / 30;

else tMonth[i] := tMonth[i] / 31;

end;

tYear := tYear / DAYS;

min := abs(tMonth[1] - tYear);

for i:=2 to 12 do

if abs(tMonth[i] - tYear) < min then

min := abs(tMonth[i] - tYear);

writeln(tYear:0:2);

for i:=1 to 12 do

if abs(tMonth[i] - tYear) = min then

writeln(i,' ',tMonth[i]:0:2,' ',tMonth[i]-tYear:0:2);

end.

40. В системе счисления с некоторым основанием число 12 записывается в виде 110. Укажите это основание.

Ответ3

40. Вычислите сумму чисел х и у, при х=Ш₁₆, у = 72₈. Результат записать в двоичной системе счисления.

Ответ: 111101101

40. Азбука Морзе позволяет кодировать символы для радиосвязи, задавая комбинацию точек и тире. Сколько различных символов (цифр, букв, знаков пунктуации и т.д.) можно закодировать, используя код Морзе длиной не менее пяти и не более шести сигналов (точек и тире).

40. Найти ошибку в программе: Var d,w:integer;

Begin Readln(d); w:=d div w; case w of

1: writeln('понедельник');

7: writeln('воскресенье')

end

End.

45. Опишите алгоритм поиска трёх последовательных элементов, сумма которых максимальна, в числовом массиве из 30 элементов. Решение на языке Т-Паскаль.

Program MAXSUM;

Uses CRT;

var a: array[1..30] of integer;

i,b,c,d,sum: integer;

Begin

clrscr;

Randomize;

b:=0; c:=0; d:=0;

for i:=1 to 30 do

begin

a[i]:=Random(100);

write(a[i]:3);

end;

writeln;

for i:=1 to 30 do

if a[i]>b then b:=a[i];

writeln('b= ',b);

for i:=1 to 30 do

if (a[i]<b) and (a[i]>c) then c:=a[i];

writeln('c= ',c);

for i:=1 to 30 do

if (a[i]>d) and (a[i]<c) then d:=a[i];

writeln('d= ',d);

sum:=b+c+d;

writeln('Summa= ', sum);

readln;

End.

3) Опишите алгоритм подсчёта числа элементов равных максимальному на языке Т-Паскаль.

Program Maximum;

Uses CRT;

var a: array[1..10] of integer;

max,i,k: integer;

Begin clrscr;

max:=0; k:=0;

for i:=1 to 10 do

begin

writeln('vvedite ',i,' element');

readln(a[i]);

end;

clrscr;

for i:=1 to 10 do

begin

write(a[i]:3);

if a[i]>max then max:=a[i];

end;

writeln;

for i:=1 to 10 do

if a[i]=max then k:=k+1;

writeln('elementov ravnih maximalnomu ',k);

readln;

End.

45. Опишите алгоритм подсчёта числа элементов равных максимальному на языке Т-Паскаль.

46. В матрице размером m x n найти минимальную сумму по строкам.

Program Mat;

uses CRT;

var a: array [1..25,1..25] of integer;

i,j,m,n,b,c:integer;

Begin Randomize; clrscr; c:=9999;

Write('Vvedite razmer matrici m x n m= '); readln(m);

Write('n= '); readln(n);

for i:=1 to m do

Begin

for j:=1 to n do

begin

a[i,j]:=Random(100);

write(a[i,j]:3);

end;

writeln;

end;

for i:=1 to m do

Begin

b:=0;

for j:=1 to n do

b:=b+a[i,j];

write(i:3,b:5);

if b<c then c:=b;

writeln;

end;

writeln('min ctr ', c);

readln;

end.

45. В матрице размером m x n найти минимальную сумму по столбцам.

Program Mat;

uses CRT;

var a: array [1..25,1..25] of integer;

i,j,m,n,b,c:integer;

Begin Randomize; clrscr; c:=9999;

Write('Vvedite razmer matrici m x n m= '); readln(m);

Write('n= '); readln(n);

for i:=1 to m do

Begin

for j:=1 to n do

begin

a[i,j]:=Random(100);

write(a[i,j]:3);

end;

writeln;

end;

for i:=1 to m do

Begin

b:=0;

for j:=1 to n do

b:=b+a[j,i];

write(i:3,b:5);

if b<c then c:=b;

writeln;

end;

writeln('min stolb ', c);

readln;

end.

45. В матрице размером m x n заменить строки столбцами.

Program Mat;

uses CRT;

var a: array [1..25,1..25] of integer;

i,j,m,n,b:integer;

Begin Randomize; clrscr;

Write('Vvedite razmer matrici m x n m= '); readln(m);

Write('n= '); readln(n);

for i:=1 to m do

Begin

for j:=1 to n do

begin

a[i,j]:=Random(100);

write(a[i,j]:3);

end;

writeln;

end;

writeln;

for i:=1 to m do

for j:=i to n do

begin

b:=a[i,j];

a[i,j]:=a[j,i];

a[j,i]:=b;

end;

for i:=1 to m do

begin

for j:=1 to n do

write(a[i,j]:3);

writeln;

end;

readln;

end.

45. Составить базу данных группы студентов, предусмотрев фамилия, телефон, оценки за экзамен по трём предметам. Вывести на экран список студентов со всеми данными, только студентов, сдавших сессию на 4, 5 и студентов, не сжавших хотя бы один экзамен.

program Base;

uses crt;

type komp=record

Family:string[150];

tel:real;

oc1:integer;

oc2:integer;

oc3:integer;

end;

var

f:file of komp;

a,i:integer;

PK:komp;

procedure view;

begin

writeln(i:3,pk.Family:12,' ',pk.tel:10:0,pk.oc1:9,pk.oc2:9,pk.oc3:9);

inc(i);

end;

begin

clrscr;

repeat

writeln('Glavnoe menu:');

writeln('1-Vivesti vseh studentov');

writeln('2-Studenty na 4 i 5');

writeln('3-Doljniki');

writeln('4-Dobavit studenta');

writeln('5-Exit');

writeln;

write('Vvedite komandu ');readln(a);

case a of

1:begin

i:=1;

writeln('| # | Familiya | Telephone | 1 examen | 2 examen | 3 examen |');

assign(f,'data.dat');

reset(f);

while not eof(f) do

begin

read(f,pk);

view;

end;

close(f);

end;

2:begin

assign(f,'data.dat');

reset(f);

writeln('| # | Familiya | Telephone | 1 examen | 2 examen | 3 examen |');

while not Eof(f) do

begin

read(f,pk);

if (PK.oc1>=4) and (PK.oc2>=4) and (PK.oc3>=4) then view;

end;

close(f);

end;

3:begin

assign(f,'data.dat');

reset(f);

writeln('| # | Familiya | Telephone | 1 examen | 2 examen | 3 examen |');

while not Eof(f) do

begin

read(f,pk);

if (PK.oc1<=2) or (PK.oc2<=2) or (PK.oc3<=2) then view;

end;

close(f);

end;

4:begin

write('Vvedite familiyu ');readln(PK.Family);

write('Vvedite telephon ');readln(PK.tel);

write('Vvedite ocenku za 1 examen ');readln(PK.oc1);

write('Vvedite ocenku za 2 examen ');readln(PK.oc2);

write('Vvedite ocenku za 3 examen ');readln(PK.oc3);

assign(f,'data.dat');

reset(f);

Seek(f,FileSize(f));

write(f,pk);

close(f);

end;

end;

until a=5;

end.

45. В ячейке В1 записана формула =2*$А1. Какой вид приобретёт формула, после того как ячейку В1 скопируют в ячейку С2?

Ответ: =2*$A2

45. В ячейке А1 записана формула =D1-$D2. Какой вид приобретёт формула, после того как ячейку A1 скопируют в ячейку B1?

Ответ=E1-$D2

45. Разбита мячом ваза одним из 3-х мальчиков: Сашей, Ваней или Колей.

• Коля не бил по мячу - сказал Саша - это сделал Ваня.

• Разбил Коля, Саша не играл мячом дома - сказал Ваня.

• Ваня не мог это сделать, а я ещё не сделал уроки - сказал Коля.

Один из мальчиков оба раза солгал, а двое говорили правду. Кто разбил вазу?

Ответ: Коля

54) В первенстве по теннису участвуют Наташа, Маша, Люда, Рита.

• 1-й будет Наташа, а 2-й будет Маша - сказал 1-й болельщик.

• 2-й будет Люда, а 4-й будет Рита - сказал 2-й болельщик.

• 3-й будет Рита а 2-й будет Наташа - сказал 3-й болельщик. Каждый из болельщиков был прав только в одном из своих прогнозов. Какое место заняли Наташа, Маша, Люда, Рита?

55. Сколько секунд потребуется модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480 пикселей, при условии, что цвет каждого пикселя кодируется тремя байтами?

Ответ: 256 с.

55. Укажите минимальный объём памяти (в к/байтах), достаточный для хранения любого растрового изображения размером 64х64 пикселя, если известно, что в изображении используется палитра из 256 цветов. Саму палитру хранить не нужно.

Ответ: 4Кбайта

55. В таблице приведены запросы к поисковому серверу. Расположите обозначения запросов в порядке возрастания количества страниц, которые найдёт поисковый сервер по каждому запросу.

А	чемпионы (бег & плавание)
Б	чемпионы & плавание
В	чемпионы | бег | плавание
Г	чемпионы & Европа & бег & плавание

Ответ:ГБАВ

58) В таблице приведены запросы к поисковому серверу. Расположите обозначения запросов в порядке возрастания количества страниц, которые найдёт поисковый сервер по каждому запросу.

А	разведение & содержание & меченосцы & сомики
Б	содержание & меченосцы
В	(содержание & меченосцы) сомики
Г	содержание & меченосцы & сомики

Ответ:АГБВ

59) Доступ к файлу ftp.net, находящемуся на сервере txt.org, осуществляется по протоколу http. В таблице фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.

А	Б	В	Г	Д	Е	Ж
.net	ftp	://	http	/	org	txt

Ответ: ГВЖЕДБА