Информатика, как наука. Язык Pascal

Содержание

Слайд 2

Содержание Информатика как наука Развитие способов хранения, передачи и обработки информации

Содержание

Информатика как наука
Развитие способов хранения, передачи и обработки информации
Структура информатики как

научной дисциплины
Терминология
Pascal/Паскаль:
Лабораторная работа 1
Лабораторная работа 2
Лабораторная работа 3
Лабораторная работа 4
Лабораторная работа 5
Слайд 3

Информатика наука о методах и процессах сбора, хранения, обработки, передачи, анализа

Информатика
наука о методах и процессах сбора, хранения, обработки, передачи, анализа и

оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений
Информация
одно из базовых понятий в науке, материя, энергия, время
С лат. яз. – сведения об объектах и явлениях окр. среды, их параметрах и свойствах, состоянии, которые уменьшают степень неопределённости и неполноты знаний о них
Слайд 4

Развитие способов хранения информации Первобытные наскальные рисунки Записи на берестяной коре

Развитие способов хранения информации

Первобытные наскальные рисунки
Записи на берестяной коре
Рукописные и печатные

книги
Магнитные и лазерные диски для ЭВМ
Слайд 5

Развитие способов обработки информации Перьевые ручки Печатные станки ЭВМ

Развитие способов обработки информации

Перьевые ручки
Печатные станки
ЭВМ

Слайд 6

Развитие способов передачи информации От человека к человеку Почтовой связью С

Развитие способов передачи информации

От человека к человеку
Почтовой связью
С помощью телефона или

телеграфа
Компьютерные сети
Слайд 7

Структура информатики как научной дисциплины Технические средства Программные средства Разработка алгоритмов

Структура информатики как научной дисциплины

Технические средства
Программные средства
Разработка алгоритмов

Слайд 8

Как комплексная научная дисциплина с философией и психологией — через учение

Как комплексная научная дисциплина

с философией и психологией — через учение об

информации и теорию познания;
математикой — через теорию математического моделирования, дискретную математику, математическую логику и теорию алгоритмов;
лингвистикой — через учение о формальных языках и знаковых системах;
кибернетикой — через теорию информации и теорию управления
Слайд 9

Терминология Алгоритм – набор правил расположенных в определённом логическом порядке, который

Терминология

Алгоритм – набор правил расположенных в определённом логическом порядке, который позволяет

решать специальные задачи и изображать в виде схем.
Программа – перевод алгоритма на язык программирования.
Алфавит языка – набор специальных символов которые можно использовать в программе.
Слайд 10

Первая работа

Первая работа

Слайд 11

Pascal / Лабораторная работа №1 var F,P,Q:integer; K,N,D:real; begin Readln(F,P,Q); K:=sqr(F)+(0.5*(P+Q))/F*P;

Pascal / Лабораторная работа №1

var F,P,Q:integer;
K,N,D:real;
begin
Readln(F,P,Q);
K:=sqr(F)+(0.5*(P+Q))/F*P;
N:=abs(K-3);
D:=sqrt(10*N);
writeln(K:0:2);
writeln(N:0:2);
writeln(D:0:2);
end.

Слайд 12

Pascal / Лабораторная работа №2

Pascal / Лабораторная работа №2

Слайд 13

Pascal / Лабораторная работа №3 var t,g:string; begin writeln ('Задайте две

Pascal / Лабораторная работа №3

var
t,g:string;
begin
writeln ('Задайте две текстовые переменные по 5

символов каждая');
readln (t);
writeln (t);
readln (g);
writeln (g);
writeln;
if t[1]='C' then t:='XXXXX';
writeln (t);
writeln;
if g[1]='C' then g:='XXXXX';
writeln (g);
end.

Даны две переменные, каждая длиной пять символов. Записать «ХХХХХ» на место переменной начинающейся с буквы С.

Слайд 14

Pascal / Лабораторная работа №4 var a, b: array [1..15] of

Pascal / Лабораторная работа №4

var
a, b: array [1..15] of real;
n, m:

real;
i: integer;
begin
for i := 1 to 15 do
begin
readln(a[i]);
writeln(a[i]);
end;
m := a[7] * a[8];
n := 0;
for i := 1 to 15 do
n := n + a[i];
for i := 1 to 15 do
b[i] := (a[i] - 5.3) * (n / m);
writeln;
writeln('Вывод массива a');
for i := 1 to 15 do
writeln('a[', i, ']=', a[i]);
writeln;
writeln('Вывод массива b');
for i := 1 to 15 do
writeln('b[', i, ']=', b[i]);
end.
Слайд 15

Pascal / Лабораторная работа №5 var a: array [1..15] of real;

Pascal / Лабораторная работа №5

var
a: array [1..15] of real;
b: array [1..7]

of real;
c: array [1..8] of real;
i, f, e, r: integer;
S1, S2: real;
t: text;
begin
assign(t, 'C:\Users\Евгений\Documents\файлик.txt');
reset(t);
for i := 1 to 15 do
readln(t, a[i]);
close(t);
for i := 1 to 15 do
begin
f := i mod 2;
if f = 0 then
begin
e := i div 2;
b[e] := a[i];
end ;

if f <> 0 then
begin
r := (i + 1) div 2;
c[r] := a[i];
end ;
end;
S1 := 0;
for i := 1 to 7 do
S1 := S1 + b[i];
S2 := 0;
for i := 1 to 8 do
S2 := S2 + c[i];
writeln;
for i := 1 to 15 do
writeln(a[i]);
writeln;
for i := 1 to 7 do
writeln(b[i]);
writeln;
for i := 1 to 8 do

writeln(c[i]);
writeln;
if S1 > S2 then
writeln('Сумма чётных элементов массива "а" больше суммы нечётных элементов этого же массива')
else
writeln('Сумма нечётных элементов массива "а" больше суммы чётных элементов этого же массива');
end.

Слайд 16

Pascal / Лабораторная работа №5 БЛОК СХЕМА

Pascal / Лабораторная работа №5

БЛОК СХЕМА