Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8




НазваниеКраткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8
страница31/33
Дата публикации07.07.2013
Размер4.28 Mb.
ТипКраткое содержание
zadocs.ru > Информатика > Краткое содержание
1   ...   25   26   27   28   29   30   31   32   33

end;

ReadLn

END.
Задание 29

VAR a,b,rez : Real; {a и b - два числа, rez-результат}

Oper : Char; {oper - знак арифметического действия}

^ BEGIN

ReadLn (a);

ReadLn (oper);

ReadLn (b);

case oper of

'+' : rez:=a+b;

'-' : rez:=a-b;

'*' : rez:=a*b;

'/' : rez:=a/b;

else WriteLn('Таких действий не знаю')

end;

WriteLn(rez :11:8);

ReadLn

END.
Задание 30 Эта программа будет печатать:

Считаем зайцев
10 зайцев

10 зайцев

11 зайцев

13 зайцев

16 зайцев

20 зайцев

………

Операторы n:=n+1 и WriteLn('Посчитали зайцев') не будут выполнены никогда.
Задание 31

LABEL m1; BEGIN m1: Write ('A'); ReadLn; goto m1 END.
Задание 32

LABEL m1;

VAR i :LongInt;

BEGIN

i:=1000;

m1: Write (i,' ');

ReadLn;

i:=i-1;

goto m1

END.
Задание 33

LABEL m1;

VAR a :Real;

BEGIN

a:=100;

m1: Write (a :12:8,' ');

ReadLn;

a:=a/2;

goto m1

END.
Задание 34

LABEL m1,m2;

VAR i :LongInt;

BEGIN

i:=1;

m1: Write (i,' ');

i:=i+1;

if i<100 then goto m1;
m2: Write (i,' ');

i:=i-1;

if i>=1 then goto m2;

ReadLn

END.
Задание 35

LABEL m;

VAR a :Real;

BEGIN

a:=0;

m: WriteLn (a :5:3,' ', a*a :9:6);

a:=a+0.001;

if a<=1.00001 then goto m;

ReadLn

END.

Пояснение: Вместо if a<=1 then я написал if a<=1.00001 then и вот по какой причине. Вещественные числа компьютер складывает с незначительной погрешностью, но ее достаточно, чтобы при тысячекратном прибавлении 0.001 набралась не 1, а чуть-чуть больше. А это значит, что счет остановился бы на 0.999. Если не верите, попробуйте распечатывать а с 15 знаками после точки. Подробнее о причинах – см. 12.2
Задание 36

LABEL m1,m2;

VAR x,y,z :Real;

BEGIN

x:=2700;

m1: y:=x/4 + 20;

z:=2*y+0.23;

WriteLn ('x=',x:12:6,' y=',y:12:6,' z=',z:12:6);

if y*z<1/x then goto m2;

x:=x/3;

goto m1;

m2: ReadLn

END.
Задание 37

VAR Slovo :String;

Nomer :Integer;

BEGIN

Nomer:=1;

repeat

WriteLn('Введите слово');

ReadLn(Slovo);

WriteLn(Nomer, ' ', Slovo, '!');

Nomer:=Nomer+1;

until Slovo='Хватит';

WriteLn('Хватит так хватит');

ReadLn

END.
Задание 38

VAR a :Real;

BEGIN

a:=0;

repeat

WriteLn (a :5:3,' ', a*a :9:6);

a:=a+0.001;

until a>1.00001;

ReadLn

END.
Задание 39

VAR x,y,z :Real;

BEGIN

x:=8100;

repeat

x:=x/3;

y:=x/4 + 20;

z:=2*y+0.23;

WriteLn ('x=',x:12:6,' y=',y:12:6,' z=',z:12:6);

until y*z<1/x;

ReadLn

END.

Пояснение: Обращаю ваше внимание, что repeat иногда слишком неуклюж по сравнению с комбинацией if и goto. Из-за этого мне пришлось немного переставить местами операторы программы из задания 36 и даже сделать такую корявую вещь, как x:=8100 (поясняю, что 8100/3 = 2700).
Задание 40

VAR t,s,h,v : Real;

BEGIN

v:=20;

t:=0;

repeat

s:= v*t;

h:= 100-9.81*t*t/2;

WriteLn('t=',t:5:1,' s=',s:8:2,' h=',h:6:2);

t:=t+0.2;

until h<=0; {Отрицательная высота - значит упал на землю}

ReadLn

END.
Задание 41

VAR a : Real;

BEGIN

a:=900;

while a>=0 do begin {Из отрицательных чисел корни компьютер не вычисляет}

WriteLn('Число=', a :5:0, ' Корень=', Sqrt(a) :7:3);

a:=a-3;

end;

ReadLn

END.
Задание 42

VAR i : Integer;

BEGIN

Write('Прямой счет: ');

for i:= -5 to 5 do Write(i,' ');

Write('Обратный счет: ');

for i:= 5 downto -5 do Write(i,' ');

Write('Конец счета');

ReadLn

END.
Задание 43

VAR i, N, a : Integer;

BEGIN

WriteLn('Введите число кубиков');

ReadLn (N);

for i:=1 to N do begin

WriteLn('Введите длину стороны кубика');

ReadLn (a);

WriteLn('Объем кубика=', a*a*a)

end;

ReadLn

END.
Задание 44 Компьютер напечатает:

Площадь пола=300 Объем зала=1200

Площадь пола=300 Объем зала=1200

Площадь пола=300 Объем зала=1200

и не спросит размеры 2 и 3 залов.
Задание 45 Компьютер напечатает результаты только для последнего зала.
Задание 46 Компьютер напечатает результат:

    на 10 больше правильного.

    в два раза больше правильного.

    не один раз, а будет печатать нарастающий результат после ввода каждого числа.

    0 или 1, так как на каждом цикле счетчик будет обнуляться.

    200 или 0 в зависимости от того, положительно первое число или нет.


Задание 47

VAR i, a, N, c_pol, c_otr, c_10 : Integer;

BEGIN

WriteLn('Введите количество чисел');

ReadLn (N);

c_pol:=0; c_otr:=0; c_10 :=0; {Обнуляем счетчики}

for i:=1 to N do begin

WriteLn('Введите число');

ReadLn (a);

if a>0 then c_pol:=c_pol+1; {Подсчитываем положительные}

if a<0 then c_otr:=c_otr+1; {Подсчитываем отрицательные}

if a>10 then c_10 :=c_10 +1; {Подсчитываем превышающие 10}

end {for};

WriteLn('Положит - ',c_pol,' Отрицат - ',c_otr,' Больших 10 - ',c_10);

ReadLn

END.

Задание 48

VAR a, b, c : Integer;

BEGIN

c:=0; {Обнуляем счетчик}

repeat

ReadLn (a,b); {Ввод пары чисел}

if a+b=13 then c:=c+1;

until (a=0) AND (b=0); {пока не введена пара нулей}

WriteLn(c);

ReadLn

END.
Задание 49

    18

    10

    5 и 8

    3

    10

    3

    5

Задание 50

VAR i, dlina, shirina, S, sum: Integer;

BEGIN sum:=0;

for i:=1 to 40 do begin

ReadLn (dlina, shirina);

S:=dlina*shirina; {S-площадь зала}

sum:=sum+S {sum-площадь дворца}

end {for};

WriteLn(sum);

ReadLn

END.
Задание 51

VAR i, ball, N, S : Integer;

BEGIN

WriteLn('Введите количество учеников');

ReadLn (N);

S:=0;

for i:=1 to N do begin

WriteLn('Введите балл ученика');

ReadLn (ball);

S:=S+ball;

end;

WriteLn('Средний балл =',S/N :8:3);

ReadLn

END.
Задание 52

VAR i, N : Integer;

a, proizvedenie : Real;

BEGIN

WriteLn('Введите количество сомножителей');

ReadLn (N);

proizvedenie:=1; {Сумму обнуляем, произведение - нет!}

for i:=1 to N do begin

WriteLn('Введите сомножитель');

ReadLn (a);

proizvedenie := proizvedenie * a; {Наращиваем произведение}

end;

WriteLn('Произведение =',proizvedenie :12:3);

ReadLn

END.
Задание 53

VAR perv, vtor : Integer; {пеpвая и втоpая цифpы}

BEGIN

for perv:=3 to 8 do for vtor:=0 to 7 do Write(perv,vtor,' ');

ReadLn

END.
Задание 54

VAR i,j,k,l : Integer; {четыpе цифpы}

BEGIN

for i:=1 to 3 do

for j:=1 to 3 do

for k:=1 to 3 do

for l:=1 to 3 do

Write(i,j,k,l,' ');

ReadLn

END.
Задание 55

VAR i,j,k,l, c : Integer; {c-счетчик}

BEGIN

c:=0; {Обнуляем счетчик}

for i:=1 to 3 do for j:=1 to 3 do for k:=1 to 3 do for l:=1 to 3 do c:=c+1;

Write('Количество сочетаний = ', c);

ReadLn

END.
Задание 56

VAR i,j,k,l, c : Integer; {c-счетчик}

BEGIN

c:=0; {Обнуляем счетчик}

for i:=1 to 3 do

for j:=1 to 3 do

for k:=1 to 3 do

for l:=1 to 3 do

if (i<=j) AND (j<=k) AND (k<=l) then c:=c+1;

WriteLn('Количество неубывающих сочетаний = ', c);

ReadLn

END.
Задание 57

VAR i,N, chislo, min, nomer :Integer;

BEGIN

WriteLn('Введите количество чисел');

ReadLn (N); {N - количество чисел}

ReadLn(min); {первое число считаем минимальным}

nomer:=1; {его номеp - пеpвый}

for i:=2 to N do begin {Пpосматpиваем остальные числа}

ReadLn(chislo);

if chislothen begin {Если число меньше минимального, то}

min:=chislo; {оно становится минимальным}

nomer:=i; {запоминаем номеp минимального числа}

end {if};

end {for};

WriteLn(min,' ',nomer);

ReadLn

END.
Задание 58

VAR i,N, rost, min, max :Integer;

BEGIN

WriteLn('Сколько человек в классе?');

ReadLn (N);

max:=0; {Ясно, что pоста меньше 0 см не бывает}

min:=500; {Ясно, что pоста больше 500 см не бывает}

for i:=1 to N do begin {Пpосматpиваем все числа}

WriteLn('Введите pост ученика');

ReadLn(rost);

if rostthen min:=rost;

if rost>max then max:=rost

end{for};

if max-min>40 then WriteLn('Пpавда') else WriteLn('Hепpавда');

ReadLn

END.
Задание 60

USES CRT;

VAR hz, i : Integer;

BEGIN

for i:=1 to 3 do begin {Повтоpить тpи pаза звук сиpены}

hz:=60;

while hz<800 do begin {Звук ввеpх}

Sound(hz); Delay(50);

hz:=hz+5

end;

while hz>60 do begin {Звук вниз}

Sound(hz); Delay(50);

hz:=hz-5

end;

end{for};

NoSound

END.
Задание 61

USES CRT;

VAR hz, i : Integer;

BEGIN

for i:=1 to 30 do begin

Sound(60);

Delay(50);

Sound(400);

Delay(50);

end{for};

NoSound

END.
Задание 62

USES CRT;

VAR hz: Integer;

BEGIN

hz:=1000;

while hz<20000 do begin

WriteLn('Частота звука - ', hz, ' геpц. Жмите кл.ввода до 20000 гц.');

Sound(hz);

ReadLn;

hz:=hz+500

end;

NoSound

END.
Задание 64

USES CRT;

PROCEDURE doo; BEGIN Sound(523); Delay(500); NoSound; Delay(20) END;

PROCEDURE re; BEGIN Sound(587); Delay(500); NoSound; Delay(20) END;

PROCEDURE mi; BEGIN Sound(659); Delay(500); NoSound; Delay(20) END;

PROCEDURE fa; BEGIN Sound(698); Delay(500); NoSound; Delay(20) END;

PROCEDURE sol; BEGIN Sound(784); Delay(500); NoSound; Delay(20) END;

PROCEDURE la; BEGIN Sound(880); Delay(500); NoSound; Delay(20) END;

PROCEDURE si; BEGIN Sound(988); Delay(500); NoSound; Delay(20) END;

{500 - пpодолжительность звука, 20 - пауза между нотами}

BEGIN

mi; doo; mi; doo; fa; mi; re; sol; sol; la; si; doo; doo; doo

END.
Задание 65
1   ...   25   26   27   28   29   30   31   32   33

Похожие:

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 icon7. Access и бд. Создание бд, работа с таблицами, схема данных
Если база данных хранится не на компьютере или на компьютере хранятся только ее части, приходится отслеживать сведения из целого...

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconМетодическое пособие ( Windows xp) Ростов-на-Дону 2013 Содержание...
Начальные сведения: компьютер, устройства, программы. Запуск и завершение работы. Клавиатура и мышь

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconПрограмма «Курс молодого миссионера» на 2013-2015 год Наименование предметов
...

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconНегосударственное образовательное учреждение Адрес: ул. Победы, 51,...
Бухгалтерский учет со знанием 1С: Бухгалтерии для государственного учреждения 2 (+ работа в программе Банк-Клиент)

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 icon1. 2 Теоретические основы информатики Представление информации в компьютере
Для унификации (единообразия) представления в компьютере различной информации (текстовой, аудио-, видео-, и т д.) используют ее кодирование....

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconКраткое содержание происходящего здесь

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconКраткое содержание курса
Федеральное государственное бюджетное учреждение высшего профессионального образования

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconСтроительство подземных сооружений
Рабочая программа, краткое содержание, рекомендуемая литература, домашние задания

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconУрок Навыки работы на компьютере. Начальные сведения: компьютер,...
Начальные сведения: компьютер, устройства, программы. Запуск и завершение работы. Клавиатура и мышь

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconА) Краткое содержание методов изготовления металлоконструкций.(8-10)
Б) Инструменты, приспособления и оборудование применяемые при изготовлении изделий.(11-13)

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
zadocs.ru
Главная страница

Разработка сайта — Веб студия Адаманов