Вторник, 23.04.2024, 10:52
Блог учителя информатики и математики
О блогеМой профильРегистрацияВыходВход
Вы вошли как Гость · Группа "Гости" Приветствую Вас, Гость · RSS
Меню блога
Погода в нашем районе.

НАГРАДА
Как Вы считаете, должны ли дети ходить в школу в школьной форме?
[ Результаты · Архив опросов ]
Всего ответов: 2806
 
 Блог учителя
Главная » Статьи » Информатика » В помощь ученику
МЕТОДИЧЕСКИЕ УКАЗАНИЯ К КОНТРОЛЬНОЙ РАБОТЕ (21 урок).

Для успешного выполнения очередной контрольной работы необходимо повторить следующие разделы языка программирования Паскаль: алфавит, синтаксис и семантика языка программирования Паскаль; данные, структуры данных, выражения, типы данных; структура программы.

 

Основная часть программы на Паскаль представляет собой последовательность операторов, каждый из которых производит некоторое действие над данными. Разделителем операторов служит точка с запятой.

 

1.Оператор вызова процедуры служит для активизации предварительно определенной пользователем или стандартной процедуры.

 

 

Структурные операторы представляют собой конструкции, построенные из других операторов по строго определенным правилам. К ним относятся операторы составной, условные, повтора и присоединения.

 

 

Составной оператор объединяет некоторую последовательность операторов в единый оператор путем заключения этой последовательности в операторные скобки - служебные слова BEGIN и END.

Формат оператора:

BEGIN

  <оператор 1>;

  <оператор 2>;

  ..

  <оператор N>

END

Операторы, входящие в составной оператор, выполняются в том порядке, в котором они записаны.

Пример составного оператора:

BEGIN

  Y:=X/2;

  Х:=Х+H

END;

 

В Паскале имеются два условных оператора IF и CASE.

 

С помощью оператора IF выбирается и выполняется один из операторов, входящих в его состав.

Формат оператора:

IF <логическое выражение> THEN <оператор1> ELSE <оператор2>

 

2.Операторы цикла выполнять входящие в их состав операторы несколько раз. В Паскале существует три вида операторов цикла: оператор цикла с параметром, оператор цикла с предусловием, оператор цикла с постусловием.

 

Формат оператора цикла с параметром:

for V:=E1 to E2 do S

где V - переменная порядкового типа, Е1, Е2 - выражения того же типа, S - оператор, называемый телом цикла. Выражения Е1 и Е2 вычисляются один раз при входе в цикл. Параметр V принимает сначала значение Е1 затем непосредственно следующее за ним (SUCC(V)) и т.д. до достижения Е2. При каждом значении V выполняется оператор S. Если в теле цикла необходимо выполнить несколько операторов, то их объединяют в один с помощью составного оператора. Если конечное значение Е2 меньше начального Е1, то оператор S не выполняется ни разу. Оператор цикла с параметром применяется также в следующем виде:

for V:=Е1 downto E2 do S

В отличие от первого случая V изменяется от Е1 до Е2, переходя от V  к pred(V). Отметим, что если V, Е1, Е2 типа INTEGER, то в первом случае это цикл с шагом +1, а во втором с шагом -1.

 

Формат оператора цикла с предусловием:

while B do S

где B - логическое выражение, S - оператор. Оператор S будет выполняться пока условие B будет истинно. Выполнение оператора цикла завершится, когда выражение B впервые примет значение false.

 

Формат оператора цикла с постусловием:

repeat S until B

где B - логическое выражение, S - оператор. Оператор S выполняется до тех пор, пока B не станет истинным. Оператор REPEAT выполняется, по крайней мере, один раз, так как проверка истинности условия B осуществляется после выполнения оператора S. Служебные слова REPEAT и UNTIL уже играют роль скобок, поэтому операторные скобки BEGIN и END являются необязательными.

 

В качестве примера использования операторов цикла рассмотрим программу вычисления факториала (n!=1*2*3*…*n).

 

Циклспараметром (шаг +1)

 

PROGRAM FACTORIALa;

VAR I,n:INTEGER;

    F:REAL;

BEGIN

    WRITELN('ВВЕДИТЕ n');

    READLN(n); F:=1;

    FOR I:=1 TO n DO F:=F*I;

    WRITELN ('факториал от ',n,' РАВЕН ',F)

END.

 

Цикл с параметром (шаг -1)

 

PROGRAM FACTORIALb;

VAR I,n:INTEGER;

    F:REAL;

BEGIN

    WRITELN('ВВЕДИТЕ n');

    READLN(n); F:=1;

    FOR I:=n DOWNTO 1 DO F:=F*I;

     WRITELN ('факториал от ',n,' РАВЕН ',F)

END.

 

Циклспредусловием

 

PROGRAM FACTORIALc;

VAR I,n:INTEGER;

    F:REAL;

BEGIN

    WRITELN('ВВЕДИТЕ n');

    READLN(N); F:=1; I:=1;

    WHILE I<=n DO

        BEGIN

           F:=F*I;

           I:=SUCC(I)

        END;

      WRITELN ('факториал от ',n,' РАВЕН ',F)

END.

 

Циклспостусловием

 

PROGRAM FACTORIALd;

VAR I,n:INTEGER;

    F:REAL;

BEGIN

    WRITELN('ВВЕДИТЕ n');

    READLN(n); F:=1; I:=1;

    REPEAT

           F:=F*I;

           I:=SUCC(I)

    UNTIL I>n;

      WRITELN ('факториал от ',n,' РАВЕН ',F)

END.

 

 

 

Открытый банк данных контрольной работы.

 

1. Натуральные числа a, b, c называются числами Пифагора, если выполняется условие a2 + b2 = c2. Напечатать все числа Пифагора, меньшие N.

2. Даны два натуральных числа m и n.  Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.

3. Найти наибольшую и наименьшую цифры в записи данного натурального числа.

4. Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет». Пример.N = 44. Числа: 17, 26, 35.

5. Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых произведение всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет». Пример.N = 44. Числа: 18, 24.

6. Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших разрядах данного числа. Пример.N = 1020000. Количество нулей равно четырем.

7. Дано натуральное число N (N > 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример.N = 10025000. Количество нулей равно двум.

8. Натуральное число M называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. Напечатать все совершенные числа, меньшие заданного числа N.

9. Дано целое n > 2. Напечатать все простые числа из диапазона [2, n].

10. Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.

11. Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наименьшее значение. Пример. N = 4548. Количество цифр с наименьшим значением равно двум (две цифры 4).

12.  Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наибольшее значение. Пример. N = 1808. Количество цифр с наибольшим значением равно двум (две цифры 8).

13.  Дано натуральное число N. Получить новое число M, которое образуется из числа N путем замены последней цифры на значение наименьшей цифры в записи числа N. Пример.N = 128452, M = 129451.

14.  Дано натуральное число N. Получить новое число M, которое образуется из числа N путем замены последней цифры на значение наибольшей цифры в записи числа N. Пример.N = 128452, M = 128458.

15.  Палиндром — это сочетания символов, которые читаются одинаково слева направо и справа налево. Например, числа:  4884, 121 являются палиндромами. Составить программу, которая определяет, является ли заданное натуральное число палиндромом.

16*. Дано натуральное k. Напечатать k-ю цифру последовательности 12345678910111213…, в которой выписаны подряд все натуральные числа.

17*. Дано натуральное k. Напечатать k-ю цифру последовательности 149162536…, в которой выписаны подряд квадраты всех натуральных чисел.

18*. Составить программу перевода данного натурального числа n в шестнадцатеричную систему счисления.

19*. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.

20*. Дано натуральное число n. Переставить его цифры так, чтобы образовалось наименьшее число, записанное теми же цифрами.

21*. Дано натуральное число n. Переставить его цифры так, чтобы образовалось наименьшее число, записанное теми же цифрами.

24. Написать программу, которая вычисляет периметр и площадь прямоугольного треугольника по длинам двух катетов.
25. Написать программу, вычисляющую площадь полной поверхности и объем прямого кругового цилиндра, заданного высотой и диаметром основания.
26. Написать программу, вычисляющую площадь полной поверхности и объем правильного тетраэдра по длине его ребра.27.Три точки A(x1,y1), B(x2,y2), C(x3,y3) задаются своими координатами. Написать программу, которая определяет, какая из этих точек ближе к началу координат.
28. Треугольник задан длинами своих сторон a,b,c. Написать программу, которая если треугольник является равнобедренным, вычисляет его площадь, в противном случае вычисляет его периметр.
29. Для натурального числа k напечатать фразу "мы нашли в лесу k грибов", согласовав окончание слова "гриб" с числом k.
30. Напишите программу, которая запрашивает номер месяца и год и печатает название месяца и число дней в нем. Например:
Ввод:   2  1992
Вывод:  февраль  29
31*. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. 1984 год - год зеленой крысы  - был началом очередного цикла. Написать программу, которая по введенному номеру некоторого года нашей эры и печатает его название по старояпонскому календарю.

32. Написать программу, вычисляющую значение функции
y=cosx+cos2x+cos3x+…+cos30x
33. Написать программу, находящую для натурального числа все его натуральные делители.
34. Написать программу, вычисляющую наибольший общий делитель двух натуральных чисел.

 

 1.  Контрольные работы выполняются на персональном компьютере,  сдаются по школьной сети без выхода в интернет. Внимание! Обязательно сохраняйте файлы с выполненными контрольными работами на своем компьютере!

 2.   Задания контрольных работ могут быть выполнены в отдельных файлах – 1 задание – один файл или вся контрольная работа – один файл.

3.     После того, как пройдёт тестирование вашей работы, вы, по желанию учителя, допускаетесь к сдаче   зачета по контрольной работе.

 

 

 

Категория: В помощь ученику | Добавил: Harchev (27.01.2014)
Просмотров: 4207 | Комментарии: 9 | Рейтинг: 4.4/27
Всего комментариев: 7
1 Михаил  
program pervay zadacha;
var
a,b,n:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=1 to n-1 do
if (sqrt (a*a+b*b)=int( sqrt (a*a+b*b))) and( sqrt (a*a+b*b)<n) then writeln (a,' ',b,' ',trunc(sqrt(a*a+b*b)));
end.

2 Михаил  
program vtorayproga;
uses crt;
var a:longint;
m:byte;
begin
clrscr;
repeat
write('Введите натуральное число a=');
readln(a);
until a>0;
m:=0;
while a>0 do
begin
if a mod 10>m then m:=a mod 10;
a:=a div 10;
end;
write('Наибольшая цифра=',m);
readln
end.

3 __mexanik__  
program 9
n,i:integer;
p:real; 
Begin
WriteLn( 'Введите n>2');
readln (n);
for i:=2 to n do
if (i mod 7<>0) and (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) and (i mod 11<>0) then WriteLn(i) else writeln('');
End.

4 __mexanik__  
uses crt;
var k,kk: integer;
begin
write ('k=');
readln (k);
write('мы нашли',k);
if k in [10..20] then  writeln('грибов в лесу')
else if k mod 10=1 then writeln(' грибов в лесу')
else if k mod 10 in [2..4] then  writeln('грибов в лесу')
else writeln('грибов в лесу');
end.

5 Михаил  
пятая задача

uses crt;
function Summ(n:longint):byte;
var m:longint;
s:byte;
begin
s:=0;
m:=n;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
Summ:=s;
end;
var n,i:longint;
k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
for i:=1 to n-1 do
if Summ(i)=Summ(n) then
begin
k:=1;
write(i,' ');
end;
if k=0 then write('нет');
readln
end.

6 Harchev  
№34

7 Михаил  
var
e, f: real;
begin
e := -5;
writeln(' x y ');
while e <= 5 do begin
f := 10-e*e/4;
writeln(e,' | ',f);
e := e + 0.5
end;
end.

Имя *:
Email *:
Код *:
Copyright MyCorp © 2024
Блог учителя Учительский портал