М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lap85928
lap85928
01.12.2020 11:02 •  Информатика

1. дан массив, заполненный случайным образом положительными числами. в массиве 10 элементов. вставить в массив на седьмое место значение, равное 0, затем удалить из получившегося массива первый элемент. вывести получившийся массив на экран. 2. в программе описан одномерный целочисленный массив а с индексами от 0 до 15. чему будут равны элементы этого массива после выполнения фрагмента программы? for i: =0 to 15 do a[i]: =i x z; for i: =1 to 15 do a[i]: =a[i-1]; оба требуется выполнить в программе pascal.

👇
Ответ:
egorilin1626hdhudn
egorilin1626hdhudn
01.12.2020
1)
uses crt;
const n=11;
var i:integer;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n-1 do
begin
a[i]:=random(99);
write(a[i],' ');
end;
writeln();
for i:=n downto 8 do
a[i]:=a[i-1];
a[7]:=0;
for i:=1 to n-1 do
a[i]:=a[i+1];
for i:=1 to n-1 do
write(a[i],' ');
end.
2)
uses crt;
var i,z:integer;
A:array[0..15] of integer;
begin
read(z);
for i:=0 to 15 do 
A[i]:=i*z;
for i:=1 to 15 do 
A[i]:=A[i-1];
for i:=0 to 15 do
write(A[i],' ');
end.
4,5(25 оценок)
Открыть все ответы
Ответ:
Задание №1 

var s,v,t,a:real; 
begin 
writeln('Введите скорость, ускорение и время соотвественно'); 
read(v,a,t); 
s:=v*t+(a*sqr(t))/2; 
writeln('Расстояние S = ',s); 
end.

Задание №2

var a,b,c,d,m,n:integer; 
begin 
writeln('Введите ширину и высоту комнаты'); 
read(a,b); 
writeln('Введите размеры окна'); 
read(c,d); 
writeln('Введите размеры двери'); 
read(m,n); 
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n); 
end.

Задание №3

var a,b:real; 
begin 
writeln('Введите два числа'); 
read(a,b); 
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2); 
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b))); 
end.

Задание №4

var x:real; 
begin 
writeln('Введите ребро куба'); 
read(x); 
writeln('Площадь грани = ',sqr(x)); 
writeln('Площадь полной поверхности = ',6*sqr(x)); 
writeln('Объем куба = ',power(x,3)); 
end.

Задание №5

var r1,r2:real; 
begin 
writeln('Введите внешний и внутренний радиус'); 
read(r1,r2); 
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else 
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2)); 
end.
4,8(87 оценок)
Ответ:
umeson
umeson
01.12.2020

Начнём с самого главного

Переменная - "шкатулка", в которую можно что-то положить. Так вот мы туда кладём данные. Это цифры, буквы и значения "правда" и "ложь"

Мы можем выделить несколько самых главных типов данных:

1. Integer (или int в некоторых языках) - Целочисленный тип. Он позволяет нам положить в "шкатулку" только целые числа. Это 1, 2, 25, 17, 1327539 и другие. (Но туда нельзя класть дробные числа, такие как 2.15; 3.14 и другие. Для них есть другой тип данных.)

2. Real (в некоторых языках программирования Float) - вещественный тип данных. Вот именно туда мы кладем числа со знаками после запятой. Например: 3.14; 125.126; 77.66 и другие. В них также можно хранить целые числа, но это нежелательно. Если у вас только целые, то используйте integer.

3. String - строка. Здесь можно писать любые символы, слова, предложения и любые наборы символов. Здесь есть важное правило: все знаки пишутся в кавычках "". Например:

b := "Hello"; (Знак := находится в Pascal, в большинстве языков обычное равно)

4. Boolean, или Булево значение - это логические "истина" и "ложь". Они записываются так:

1) True - истина

2) False - ложь.

Их можно использовать в условиях. Например, если x>5 то b:= true;

На самом деле типов данных очень много, но эти используются больше всего.

Если будет интересно - поищите в Интернете типы данных и почитайте :)

Теперь поговорим о знаках препинания.

В конце каждой команды мы должны ставить точку с запятой ;

Она даёт понять компьютеру, что мы закончили одну команду и идём к другой

Ведь если бы мы записали:

b:= 5

a:= 3, то компьютер бы понял это так: b:= 5a:=3;

Благо в настоящее время большинство языков уже выдаёт пользователю ошибку, чтобы он исправил это.

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

Рассмотрим на языке Pascal (просто я больше базируюсь в этом объяснении под него):

Напишем оператор условия if:

if b=3 then z:=5;

Здесь всё хорошо и запятая не требуется.

Но если мы добавим отрицательную ветку (действия, если условие не выполнилось), то будет так:

if b=3 then z:=5;

else z:=7;

Здесь мы поставили после 5 точку с запятой. Компьютер не поймёт запись else, т.к. она отгорожена от условия точкой с запятой. Поэтому после пятёрки мы не ставим запятую (но поставить после семёрки обязаны):

if b=3 then z:=5

else z:=7;

Двоеточие мы ставим перед равно для того, чтобы полностью написать знак "присваивания". В Паскале он обозначает то, что мы переменной присваиваем определённое значение. Если бы мы поставили просто равно, то это было бы как сравнивание. Поэтому нужно просто запомнить, что там ты ставим двоеточие. (но в условиях мы пишем просто равно)

Надеюсь было понятно объяснено. Если остались вопросы - задавайте. Точка с запятой ставится не только в if, но и в других операторах.

4,6(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ