ГДЗ Информатика 9 класс  Семакин - Массивы в Паскале

ГДЗ Информатика 9 класс Семакин — Массивы в Паскале

Все статьи Решебник к учебнику Информатика 9 класс Семакин

Оглавление:

Want create site? Find Free WordPress Themes and plugins.

ОТВЕТЫ Решебник — ГДЗ Информатика — §18.Массивы в Паскале, Семакин 9 класс

Вопросы и задания
1. Как можно описать на Паскале массив, в котором будут храниться значения численности населения Москвы к концу каждого года XX века?

2. Вы приобрели котенка. Каждый вечер вы определяете его вес с помощью весов. Как можно описать на Паскале массив, в котором будут храниться значения веса котенка в течение месяца (например, мая)?
3. Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определенных в заданиях 1 и 2.
4. Введите в компьютер программу Temperature, добавив к ней обработку массива Dt. Выполните программу, получите результаты. Сравните их с приведенными в параграфе.
5. Составьте программы на Паскале по алгоритмам из заданий 3, 4 предыдущего параграфа. Выполните эти программы на компьютере.

Ответы на вопросы параграф 18 из учебника Семакина 9 класс

1. Как можно описать на Паскале массив, в котором будут храниться значения численности населения Москвы к концу каждого года XX века?

program zz1;
var i:integer;
m:array[1900..1999] of integer; // описываем массив целого типа, каждый элемент которого будет являться каждым годом XX века
begin
for i:=1900 to 1999 do
begin
write(‘ введите численности населения Москвы к концу ‘,i,’-го года ‘);
read(m[i]);
end;
end.

2. Вы приобрели котенка. Каждый вечер вы определяете его вес с помощью весов. Как можно описать на Паскале массив, в котором будут храниться значения веса котенка в течение месяца (например, мая)?

program zz1;
var i:integer;
m:array[1..31] of integer; // описываем массив целого типа, каждый элемент которого будет являться весом котёнка в течение месяца
begin
for i:=1 to 31 do
begin
write(‘ введите вес котенка ‘,i,’-го мая ‘);
read(m[i]);
end;
end.

3. Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определенных в заданиях 1 и 2.

USES crt;
var A: array[1..5] of real;
q: integer;
BEGIN
clrscr;
     for q:=q to 12 do
     begin
          write ( ‘A ‘,1:2, ‘] = ‘) ; 
          readln(A[q])
     end;

4. Введите в компьютер программу Temperature, добавив к ней обработку массива Dt. Выполните программу, получите результаты. Сравните их с приведенными в параграфе.

В задании требуется ввести код программы, описанной на странице 228 учебника и надо изменить программу так, чтобы она считала отклонения средней температуры каждого месяца от среднегодовой величины, должно получиться так:

Program Temperature;
var T: array[1..12] of real;
Dt:array[1..12] of real;
i:integer; Tsred:real;
begin
  for i:=1 to 12 do begin
    write(T[,i:2,] = );
    readln(T[i]);
  end;
  Tsred:=0;
  for i:=1 to 12 do
    Tsred:=Tsred+T[i];
  Tsred:=Tsred/12;
  Writeln(Среднегодовая температура = ,Tsred:6:2);
  for i:=1 to 12 do begin
    Dt[i]:=T[i]-Tsred;
    writeln(Dt[,i:2,],Dt[i]:6:2);
  end;
end.

Ну а результаты получите, когда запустите программу.

5. Составьте программы на Паскале по алгоритмам из заданий 3, 4 предыдущего параграфа. Выполните эти программы на компьютере.

3). Для тех же исходных данных, что рассматриваются в параграфе, составьте алгоритм, в котором вычисляются четыре величины: средние температуры зимних, весенних, летних, осенних месяцев.
Program asd;
USES crt;
var t: array [1..12] of real;
i: integer;
BEGIN
Clrscr;
Writeln(‘vvedite temperatyry 12-x mesyazev: ‘);
for i:=1 to 12 do
readln(t[i]);
writeln(‘Sima: ‘,((t[12]+t[1]+t[2])/3):0:2);
writeln(‘Vesna: ‘,((t[3]+t[4]+t[5])/3):0:2);
writeln(‘Leto: ‘,((t[6]+t[7]+t[8])/3):0:2);
writeln(‘Osen: ‘,((t[9]+t[10]+t[11])/3):0:2);
END.

4). Вы посетили магазин и купили 10 видов товара, В таблицу Т[1:10] вы записали количество купленного товара каждого вида. В таблицу С[1:10] записали цены единиц каждого вида товара соответственно. Составьте алгоритм вычисления общей стоимости всех покупок.

Var t:array[1..10] of integer;i,q,k:integer;
begin
for i:=1 to 10 do
read(t[i]);
for i:=1 to 10 do begin
read(q);
k:=k+t[i]*q;
end;
writeln(Общая стоимость: ,k);
end.

 

Литература:Учебник:Информатика, 9 класс. ФГОС Автор:И. Г. Семакин, Л. А. Залогова, С. В. Русаков, Л. В. Шестакова.

Did you find apk for android? You can find new Free Android Games and apps.

Добавить комментарий