Реферат По Информатике На Тему Паскаль

  • 14 Comments!
Реферат По Информатике На Тему Паскаль Average ratng: 8,4/10 9426votes

Реферат на тему «языки. Индивидуальные занятия по информатике. Здесь вы можете прочитать реферат по информатике. По информатике на тему.

Контрольная работа по теме «Обработка информации» 9 класс I вариант • Вычислите значение в линейных и разветвляющихся алгоритмах А) а:= 4 b:= 4 а:= 2*а + 3*b b:= a/2*b Б) a:= 30; b:= 6; a:= a / 2 * b; if a b then c:= a - 3 * b else c:= a + 3 * b; В) a:= 3 + 8*4; b:= (a div 10) + 14; a:= (b mod 10) + 2; c:= a + b; b -? • Вычислите значение в циклических алгоритмах А) Var s,k: integer; Begin s:= 0; for k:= 3 to 8 do s:= s + 9; writeln(s); End. Б) Var k, i: integer; Begin k:= 4; For i:= 1 to 3 do k:= i + 2*k; Writeln(k); End.

Доклад По Информатике

В) var n, s: integer; begin n: = 30; s: = 25; while s s: = s + 40; n: = n + 10 end; write(n);end. Вычислить значения обработки массива А ) Var k, m: integer; Dat: array[1.10] of integer; Begin Dat[1]:= 2; Dat[2]:= 5; Dat[3]:= 7; Dat[4]:= 5; Dat[5]:= 4; Dat[6]:= 2; Dat[7]:= 0; Dat[8]:= 2; Dat[9]:= 4; Dat[10]:= 5; m:= 0; for k:= 1 to 10 do if Dat[k] 3 then begin m:= m+1 end; writeln(m); End. Б ) Var k, m, month: integer; Dat: array[1.12] of integer; Begin Dat[1]:= 5; Dat[2]:= 5; Dat[3]:= 6; Dat[4]:= 8; Dat[5]:= 4;Dat[6]:= 5; Dat[7]:= 4; Dat[8]:= 7;Dat[9]:= 4; Dat[10]:= 4;Dat[11]:= 8;Dat[12]:= 7; month: = 1; m:= Dat[1]; for k:= 2 to 12 do if Dat[k] begin m:= Dat[k]; month:= k; end; write(month); End. • По данной блок-схеме ставить программу вычисления b. По данному условию ставить программу вычисления y. • Заполнить случайным образом массив из 20 чисел элементами от 0 до 100, найти количество чисел кратных 15.• Нарисуйте в координатной плоскости ракету и напишите программу ее рисования в Паскаль. Контрольная работа по теме «Обработка информации» 9 класс II вариант • Вычислите значение в линейных и разветвляющихся алгоритмах А) b:= -5 a:= 2 а:= 11 - 2*a - b b:= a/3 - 3*b Б) a: = 50; b: = 6; a: = a * 3 / b if a b then с = a + 5 * b else с = a - 5 * b; В) x:= 8 + 2*5; y:= (x mod 10) + 14; x:= (y div 10) + 3; c:= x - y; b -?

• Вычислите значение в циклических алгоритмах А) Var s,k: integer; Begin s:= 0; for k:= 3 to 8 do s:= s + 9; writeln(s); End. Б) Var k, i: integer; Begin k:= 4; For i:= 1 to 3 do k:= i + 2*k; Writeln(k); End. В) var n, s: integer; begin n: = 60;s: = 25; while s s: = s + 20; n: = n + 10 end;write(n);end. • Вычислить значения обработки массива А ) Var k, m: integer; Dat: array[1.10] of integer; Begin Dat[1]:= 12; Dat[2]:= 15; Dat[3]:= 17; Dat[4]:= 15; Dat[5]:= 14; Dat[6]:= 12; Dat[7]:= 10; Dat[8]:= 13; Dat[9]:= 14; Dat[10]:= 15; m:= 0; for k:= 1 to 10 do if Dat[k] = 15 then begin m:= m+1; end; writeln(m); End. Б ) Var k, m, day: integer; Dat: array[1.10] of integer; Begin Dat[1]:= 2; Dat[2]:= 2;Dat[3]:= 3; Dat[4]:= 3; Dat[5]:= 4; Dat[6]:= 4; Dat[7]:= 5; Dat[8]:= 5; Dat[9]:= 6; Dat[10]:= 6; day:=1; m:= Dat[1]; for k:= 2 to 10 do if Dat[k] = m then begin m:= Dat[k]; day:= k; end; write(day); End.

• По данной блок-схеме ставить программу вычисления b. По данному условию ставить программу вычисления y.

• Заполнить случайным образом массив из 30 чисел элементами от 0 до 500, найти количество чисел кратных 20.• Нарисуйте в координатной плоскости конфету и напишите программу ее рисования в Паскаль.

Описание слайда: Пример 2. Определить животное, соответствующее введенному пользователем году по китайскому гороскопу. Через каждые 12 лет название года повторяется, потому можно ввести год, найти целый остаток от деления года на 12 и анализировать не год, а остаток. Chaffoteaux Maury Инструкция далее. Решение: Если остаток =0 то год Обезъяны Если остаток =1 то год Петуха Если остаток =2 то год Собаки Если остаток =3 то год Свиньи (Кабана) Если остаток =4 то год Крысы Если остаток =5 то год Быка Если остаток =6 то год Тигра Если остаток =7 то год Кролика Если остаток =8 то год Дракона Если остаток =9 то год Змеи Если остаток =10 то год Лошади Если остаток =11 то год Овцы. Описание слайда: Program primer_2; Var year, num: integer; Begin Write('Введите год'); Readln(year); num:=year mod 12; Case num Of 0: Writeln('год Обезъяны '); 1: Writeln('год Петуха'); 2: Writeln('год Собаки'); 3: Writeln('год Свиньи (Кабана)'); 4: Writeln('год Крысы'); 5: Writeln('год Быка'); 6: Writeln('год Тигра'); 7: Writeln('год Кролика'); 8: Writeln('год Дракона'); 9: Writeln('год Змеи'); 10: Writeln('год Лошади'); 11: Writeln('год Овцы'); Else Writeln('Вы неверно ввели год'); End; //конец оператора выбора.