А. И.
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на тему: Решение задач на нахождение наибольшей и наименьшей температуры в массиве (Pascal)
Содержание
- 1. Презентация по информатике на тему: Решение задач на нахождение наибольшей и наименьшей температуры в массиве (Pascal)
- 2. Цель : показать на примерах как решаются задачи в Паскале на отыскание максимальной и минимальной температуры.
- 3. var dat:array[1..10] of integer;i,k,imin,j,x:integer;s,sr:real;begindat[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;for i:=1 to 10
- 4. k:=0;for i:=1 to 10 doif (dat[i]>=10 )and (dat[i]
- 5. var a:array [1..7] of real;k,s,x:real;i,imin,imax,j:integer;begina[1]:=0.25;a[2]:=5.3;a[3]:=8.4;a[4]:=10.5;a[5]:=11.6;a[6]:=9.7;a[7]:=12;for i:=1 to 7 do imin:=1;for i:=2 to 7 do if a[i]
- 6. for i:=2 to 7 do if a[i]>a[imax]
- 7. Слайд 7
Цель : показать на примерах как решаются задачи в Паскале на отыскание максимальной и минимальной температуры.
Слайд 1РЕШЕНИЕ ЗАДАЧ НА НАХОЖДЕНИЕ НАИБОЛЬШЕЙ И НАИМЕНЬШЕЙ ТЕМПЕРАТУРЫ В МАССИВЕ (PASCAL).
Канарейкин
Слайд 2Цель : показать на примерах как решаются задачи в Паскале на
отыскание максимальной и минимальной температуры.
Слайд 3var dat:array[1..10] of integer;
i,k,imin,j,x:integer;
s,sr:real;
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;
for i:=1 to 10 do write (dat[i], '
');
for i:=1 to 10 do
imin:=1;
for i:=2 to 10 do
if dat[i]writeln ('Самый холодный день= ',imin);
for i:=1 to 10 do
imin:=1;
for i:=2 to 10 do
if dat[i]
Задача 1 В целочисленном массиве задано изменение температуры в течении 10 дней. Необходимо определить самый холодный день, среднюю температуру и количество дней с температурой [10;13]
![var dat:array[1..10] of integer;i,k,imin,j,x:integer;s,sr:real;begindat[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;for i:=1 to 10 do write (dat[i], ' ');for i:=1 to 10 do imin:=1;for](/img/tmb/5/497225/1669c7f97098988a17120bfd7b934661-800x.jpg "Презентация по информатике на тему: Решение задач на нахождение наибольшей и наименьшей температуры в массиве (Pascal) var dat:array[1..10] of integer;i,k,imin,j,x:integer;s,sr:real;begindat[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;for i:=1 to 10 do write (dat[i], '")
Слайд 4k:=0;
for i:=1 to 10 do
if (dat[i]>=10 )and (dat[i]
с t>=10 и <=13 ',k);
s:=0;
for i:=1 to 10 do
s:=s+dat[i];
sr:=s/10;
writeln('Средняя температура ',sr);
end.
s:=0;
for i:=1 to 10 do
s:=s+dat[i];
sr:=s/10;
writeln('Средняя температура ',sr);
end.
![k:=0;for i:=1 to 10 doif (dat[i]>=10 )and (dat[i]](/img/tmb/5/497225/08facb12b9002377298b9a652e27eedb-800x.jpg "Презентация по информатике на тему: Решение задач на нахождение наибольшей и наименьшей температуры в массиве (Pascal) k:=0;for i:=1 to 10 doif (dat[i]>=10 )and (dat[i]")
Слайд 5var a:array [1..7] of real;
k,s,x:real;
i,imin,imax,j:integer;
begin
a[1]:=0.25;
a[2]:=5.3;
a[3]:=8.4;
a[4]:=10.5;
a[5]:=11.6;
a[6]:=9.7;
a[7]:=12;
for i:=1 to 7 do
imin:=1;
for i:=2
to 7 do
if a[i]writeln ('Наименьшая температура= ',a[imin]);
for i:=1 to 7 do
imax:=1;
if a[i]
for i:=1 to 7 do
imax:=1;
Задача 2 В вещественном массиве задано изменение температуры в течении 7 дней. Необходимо определить наименьшую температуру, наибольшую температуру и количество дней с температурой выше 10.
![var a:array [1..7] of real;k,s,x:real;i,imin,imax,j:integer;begina[1]:=0.25;a[2]:=5.3;a[3]:=8.4;a[4]:=10.5;a[5]:=11.6;a[6]:=9.7;a[7]:=12;for i:=1 to 7 do imin:=1;for i:=2 to 7 do if a[i]](/img/thumbs/3e9d92d2be737ae6e89503e03c6896fe-800x.jpg "Презентация по информатике на тему: Решение задач на нахождение наибольшей и наименьшей температуры в массиве (Pascal) var a:array [1..7] of real;k,s,x:real;i,imin,imax,j:integer;begina[1]:=0.25;a[2]:=5.3;a[3]:=8.4;a[4]:=10.5;a[5]:=11.6;a[6]:=9.7;a[7]:=12;for i:=1 to 7 do imin:=1;for i:=2 to 7 do if a[i]")
Слайд 6for i:=2 to 7 do
if a[i]>a[imax] then imax:=i;
writeln ('Наибольшая температура=
',a[imax]);
s:=0;
for i:=1 to 7 do s:=s+a[i];
writeln ('s= ',s/7);
k:=0;
for i:=1 to 7 do
if a[i] > 10 then k:=k+1;
writeln ('Кол-во дней выше +10= ',k);
end.
s:=0;
for i:=1 to 7 do s:=s+a[i];
writeln ('s= ',s/7);
k:=0;
for i:=1 to 7 do
if a[i] > 10 then k:=k+1;
writeln ('Кол-во дней выше +10= ',k);
end.
![for i:=2 to 7 do if a[i]>a[imax] then imax:=i;writeln ('Наибольшая температура= ',a[imax]);s:=0;for i:=1 to 7 do s:=s+a[i];writeln](/img/thumbs/4f73cdec5a9208804754298134ab6d74-800x.jpg "Презентация по информатике на тему: Решение задач на нахождение наибольшей и наименьшей температуры в массиве (Pascal) for i:=2 to 7 do if a[i]>a[imax] then imax:=i;writeln ('Наибольшая температура=")
