Блог Пащенко Е.В. - учителя информатики

Приветствие

Добро пожаловать в мой блог.

пятница, 23 декабря 2011 г.

Мое сообщение

Автор: Elena Paschenko на 03:55

Отправить по электронной почте Написать об этом в блоге Поделиться в X Опубликовать в Facebook Поделиться в Pinterest

Комментариев нет:

Отправить комментарий

Следующее Предыдущее Главная страница

Подписаться на: Комментарии к сообщению (Atom)

Общее·количество·просмотров·страницы

Страницы

Главная страница
Что такое блогосфера?
Мероприятия
Олимпиады в Карелии
Олимпиады по информатике в Санкт-Петербурге
Консультации по основам программирования

Постоянные читатели

Архив блога

► 2022 (3)
- ► октября (1)
- ► июля (1)
- ► июня (1)

► 2021 (1)
- ► июня (1)

► 2020 (3)
- ► сентября (1)
- ► июня (1)
- ► января (1)

► 2019 (3)
- ► июня (1)
- ► января (2)

► 2018 (5)
- ► декабря (1)
- ► октября (2)
- ► января (2)

► 2017 (9)
- ► декабря (2)
- ► ноября (1)
- ► октября (1)
- ► сентября (2)
- ► мая (1)
- ► января (2)

► 2016 (3)
- ► ноября (3)

► 2014 (2)
- ► апреля (2)

► 2012 (13)
- ► декабря (1)
- ► ноября (1)
- ► сентября (2)
- ► июня (1)
- ► апреля (1)
- ► марта (1)
- ► февраля (6)

▼ 2011 (2)
- ▼ декабря (2)
  - Мое сообщение
  - Начало работы с блогом

Обо мне

Elena Paschenko

Просмотреть профиль

sl-1

sl-1

sl-2

sl-2

sl-3

l-3

sl-4

sl-4

sl-5

sl-5

Задача:Мяч на лестнице

Программа на языке Pascal с использованием рекурсивной
функции.

program t1;
var n:integer; f:longint;
function p(k:integer):longint;
begin
if k=1 then p:=1
else if k=2 then p:=2
else if k=3 then p:=4
else if (k=4) or (k>4) then p:=p(k-2)+p(k-1)+p(k-3)
end;
begin
readln(n);
f:=p(n);
writeln(f);
readln;
end.

Задача: Мяч на лестнице

Школьный тур. 2016 год.

Задача: Мячик на лесенке

На вершине лесенки, содержащей N ступенек, находится мячик, который начинает прыгать по ним вниз, к основанию. Мячик может прыгнуть на следующую ступеньку, на ступеньку через одну или через 2. (То есть, если мячик лежит на 8-ой ступеньке, то он может переместиться на 5-ую, 6-ую или 7-ую.) Определить число всевозможных "маршрутов" мячика с вершины на землю.

Входные данные

Вводится одно число 0 < N < 31.

Выходные данные

Выведите одно число — количество маршрутов.

Примеры

Входные данные

Выходные данные

Задача:Числа-цифры

Школьный тур. 2016 год. Программа: "Числа-цифры" написана на языке прогр. C

// Example program
#include
#include

int getMultiModNumber(int num)
{
int result = 0;
int digitCoeff = 1;

for (int i = 9; i >= 1; i--)
{
if (i == 1 && num != 1)
{
result = -1;
break;
}

while (num%i == 0)
{
if (num == 1 && result >= 10)
break;

result += i*digitCoeff;
digitCoeff *= 10;
num = num/i;
}
}

return result;
}

int main()
{
int N;
std::cin >> N;

int resNumber = getMultiModNumber(N);
if (resNumber != -1)
std::cout << resnumber;
else
std::cout << "No solution";
}

Числа-цифры

s-p-2016

Задача: Поворот

Школьный тур. 2016 год

Задача: Поворот

Дана картинка. Требуется повернуть ее на 90 градусов по часовой стрелке вокруг центра.

Картинка представляет собой квадрат, разбитый на маленьких NxNквадратиков. Каждый маленький квадратик закрашен в свой цвет. Цвета имеют номера от 0 до 255.
Входные данные

В первой строке вводится число одно натуральное число N, не превосходящее 100.

В следующих N строках записано по N чисел – цвета соответствующих квадратиков.
Выходные данные

Выведите N строк по N чисел, разделенных пробелами – цвета квадратиков после поворота картинки.
Примеры
Входные данные

3
1 2 3
4 5 6
1 2 3

Выходные данные

1 4 1
2 5 2
3 6 3

Входные данные

2
10 100
1 2

Выходные данные

1 10
2 100

Задача:Поворот

Задача:Поворот - задача транспонирования матрицы(двумерного файла)

program g2;
var n,i,j,f:integer;
c,d:array [1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do begin for j:=1 to n
do read(c[i,j]);readln end;
writeln;
for i:=1 to n do begin
for j:=1 to n do
d[i,j]:=c[i,j] end;

for i:=1 to n do begin

for j:=1 to n do

d[i,j]:=c[n-j+1,i];

end;

for i:=1 to n do begin for j:=1 to n do
write(d[i,j],' ');
writeln
end;
end.

Задача: Рамки

Муниц. этап. Пробн. тур. 2015 год. Программа на языке Pascal.
Ввод и обработка двумерных файлов.

program gt22;
var n,i,j,f,k,l,h,w,z,s:integer;
a:array [1..26] of char;
c:array [1..80,1..80] of char; d:array [1..26,1..4] of integer;
begin
readln(h,w,n);
for i:=1 to n do begin for j:=1 to 4
do read(d[i,j]);readln end;
for i:=1 to h do begin
for j:=1 to w do
c[i,j]:='.'; end;
for z:=1 to 26 do
a[z]:=chr(96+z);

{a[1]:='a';a[2]:='b'; a[3]:='c'; a[4]:='d';
a[5]:='e'; a[6]:='f'; a[7]:='g'; a[8]:='h';
a[9]:='i'; a[10]:='j'; a[11]:='k';
a[12]:='l'; a[13]:='m'; a[14]:='n';
a[15]:='o'; a[16]:='p'; a[17]:='q'; a[18]:='r'; a[19]:='s';
a[20]:='t'; a[21]:='u'; a[22]:='v'; a[23]:='w'; a[24]:='x';
a[25]:='y'; a[26]:='z';}

for f:=1 to 26 do begin
for k:=1 to h do begin for l:=1 to w do
if
((k=d[f,1]) and (l>=d[f,2]) and (l<=d[f,4]))
or ((k=d[f,3]) and (l<=d[f,4])) and (l>=d[f,2])
or ((k>=d[f,1]) and (k<=d[f,3]) and (l=d[f,2]))
or ((k>=d[f,1]) and (k<=d[f,3]) and (l=d[f,4]))
then
c[k,l]:=a[f]; end;end;
for i:=1 to h do begin for j:=1 to w do
write(c[i,j]);
writeln
end;
end.

Задача:Рамки

s-p-2015

Задача: Количество слов

В приведенной программе на Паскале
в фигурных скобках показаны
фрагменты, нужные для отыскания самого длинного слова в заданной строке. В этой программе они не нужны
и поэтому оставлены как комментарий.

program d12;
label 1,2;
var l,m,n,k,t,max:integer;
x,y,z:string[255];
begin
readln(y);
m:=1; n:=length(y);
l:=0;
t:=0;
max:=1;
1:x:=y;
k:=pos(' ',x);
if k=0 then begin k:=n+1;
{if n>l then z:=y;} goto 2 end;
x:=copy(x,m,k-m);l:=length(x);
{if l>max then begin
max:=l;z:=x end;}
k:=k+1; t:=t+1;
y:=copy(y,k,n-k+1);
n:=length(y);
if y<>'' then goto 1;
2:writeln(t+1);
{write(z)}
end.

Задача: Количество слов

Задача: Определение количества слов (Муниц. этап пробн. тур - 2015 год)

Дана строка, содержащая пробелы. Найдите, сколько в ней слов (слово – это последовательность непробельных символов, слова разделены одним пробелом, первый и последний символ строки – не пробел).

Входные данные

На вход подается несколько строк.

Выходные данные

Необходимо вывести количество слов в первой из введенных строк.

Примеры

Входные данные

In the town where I was born

Выходные данные

Урок физкультуры

program ff;
var n,i,j,k,b,c,f1,l,m,g,f2:integer; a,h:array [1..50] of integer;
begin
readln(n);
f1:=0;
for i:=1 to n do read(a[i],h[i]);
for i:=1 to n-1 do for j:=i+1 to n do
if (a[i]=1) and (a[j]=0) then begin
b:=a[i];a[i]:=a[j];a[j]:=b; g:=h[i];h[i]:=h[j];h[j]:=g end;

for i:=1 to n do for j:=i+1 to n do if (a[i]=a[j])
and (h[i]f1:=abs(h[1]-h[2]);
for l:=1 to n-1 do begin
f2:=abs(h[l]-h[l+1]); if f1writeln(f1);
readln;
end.