сервис вопросов и ответов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 кон
Malika1999
24 июня 2013 г., 6:30:42 (10 лет назад)
Galinakosolapo
24 июня 2013 г., 7:19:38 (10 лет назад)
ну, вообще-то, в задании записан алгоритм только на одном языке. Этот алгоритм находит найбольшее значение израсходованных за телефон денег за день и выводит номер этого дня (то есть отвечает на вопрос: "в какой день недели я потратил больше всего денег на телефон?"
На экран будет выведено "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 целых чисел. Сколько отрицательных чисел и сумма положительных чисел?
Одномерные массивы
Напишите программу на паскале. В одномерном массиве вычислите сумму положительных элементов.
Двумерные массивы
Напишите программу на паскале. Дан квадратный целочисленный массив. Уменьшить в два раза все его элементы.
Если что извините, надеюсь не много прошу.
известно следущее правило умножения на 11 что бы умножить число на 11 надо приписать к нему нуль и затем прибавить первоночальное число обобщите это
правило для случия умножения на 101 и на 1001
инфознайка решил сделать upgrad своего компьютера - заменить материнскую плату. Какую из следующих устройств должен заменить инфознайка в своём
компьютере!?????? ПЛИИИЗ !
Файл размером 60кб передаётся через 1 соединение со скоростью 3072бит в секунду.Определите размер файла в кб, который можно передать через 2
сеединение со скоростью 256 бит в секунду. Если можете, напишите с объяснением)
Читайте также
НА QBASIC!!!!!!!!!! 1)Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и
массив вывести на экран.
2)Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
3)Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
4)Известна стоимость каждого из 15 видов товаров. Напечатать номера тех видов товаров, которые имеют стоимость всех видов товаров.
5)Дан массив А, отсортировать его по возрастанию. Отсортированный массив вывести на экран.
6)Дан массив А, Отсортировать его по убыванию. Отсортированный массив вывести на экран.
В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] – заданий сделал первый ученик Dat[2] – второй ученик и т.д.).
Определите, что будет напечатано в результате работы следующей программы.Алгоритмический язык
В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] – заданий сделал первый ученик
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
кон
Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон. Если существует, определите его тип
Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.
Вы находитесь на странице вопроса "1. В массиве Day хранятся данные о количестве израсходованных денег за телефон за неделю (Day [1] — данные за понедельник, Day [2] — за вторник и", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.