1. В массиве Day хранятся данные о количестве израсходованных денег за телефон за неделю (Day [1] — данные за понедельник, Day [2] — за вторник и
5-9 класс
|
т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.
Алгоритмический язык алг нач целтаб Day[1:7] цел i, m, d Day [1]:=79; Day [2]:=25; Day [3]:=67; Day [4]:=80; Day [5]:=63; Day [6]:=17; Day [7]:=68; d:= 1; m:= Day [1] нц для i от 2 до 7 если Day[i] > m то m:= Day[i]; d:=i все кц вывод d кон
ну, вообще-то, в задании записан алгоритм только на одном языке. Этот алгоритм находит найбольшее значение израсходованных за телефон денег за день и выводит номер этого дня (то есть отвечает на вопрос: "в какой день недели я потратил больше всего денег на телефон?"
На экран будет выведено "4", потому что в этот день было потрачено 80 "денег" - наибольшее значение за неделю.
На Бейсике программа будет выглядеть так:
DIM Day(7) AS INTEGER
Day(1)=79
Day(2)=25
Day(3)=67
Day(4)=80
Day(5)=63
Day(6)=17
Day(7)=68
m=Day(1)
d=1
FOR i=2 TO 7
IF Day(i)>m THEN
m=Day(i)
d=i
END IF
NEXT i
PRINT d
END
На Паскале:
Var
i, m, d: integer
Day: array[1..7] of integer
begin
Day[1]=79;
Day[2]=25;
Day[3]=67;
Day[4]=80;
Day[5]=63;
Day[6]=17;
Day[7]=68;
m=Day[1];
d=1;
for i:=2 to 7 do
begin
if Day[i]>m then
begin
m:=Day[i];
d:=i
end
end
writeln(d);
end.
Другие вопросы из категории
Линейные программы.
Напишите программу на ШАЯ. Вычислите площадь боковой поверхности куба. S=4a(в квадрате)
Условный оператор (ветвление)
Нарисуйте блох-схему. Найдите решение уравнения ax+b=0 если оно отсутствует.
Циклы
Напишите программу на Паскале. Вводится последовательность из N целых чисел. Сколько отрицательных чисел и сумма положительных чисел?
Одномерные массивы
Напишите программу на паскале. В одномерном массиве вычислите сумму положительных элементов.
Двумерные массивы
Напишите программу на паскале. Дан квадратный целочисленный массив. Уменьшить в два раза все его элементы.
Если что извините, надеюсь не много прошу.
правило для случия умножения на 101 и на 1001
компьютере!?????? ПЛИИИЗ !
сеединение со скоростью 256 бит в секунду. Если можете, напишите с объяснением)
Читайте также
массив вывести на экран.
2)Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
3)Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
4)Известна стоимость каждого из 15 видов товаров. Напечатать номера тех видов товаров, которые имеют стоимость всех видов товаров.
5)Дан массив А, отсортировать его по возрастанию. Отсортированный массив вывести на экран.
6)Дан массив А, Отсортировать его по убыванию. Отсортированный массив вывести на экран.
Определите, что будет напечатано в результате работы следующей программы.Алгоритмический язык
Dat[2] – второй ученик и т.д.). Определите, что будет напечатано в
результате работы следующей программы.
Алгоритмический
язык
алг
нач
целтаб Dat[1:11]
цел k, m
Dat[1]:=20; Dat[2]:=25
Dat[3]:=19; Dat[4]:=25
Dat[5]:=26; Dat[6]:=22
Dat[7]:=24; Dat[8]:=28
Dat[9]:=26; Dat[10]:=21
Dat[11]:=27
m:= 30
нц для k от 1 до 11
если Dat[k] < m то
m:=Dat[k]
все
кц
вывод m
кон
Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.