Kateshaeva
?>

До ть скласти блок-схему за зразко.. Program Example_314_2; Uses crt; Const N=100; Type Masiv = array[1..N] of real; Var A:Masiv; {A - масив для зберігання даних чисел} i, count:byte; {і - змінна циклу, count - кількість сусідств} Begin Randomize; Clrscr; count:=0; For i:=1 to N do Begin A[i]:=random*100-random*50; {Заповнення масиву випадковими дійсними числами} Write(A[i]:8:2); {Виведення масиву на екран для контролю правильності роботи програми} End; For i:=1 to N-1 do Begin If (A[I]<0) and (A[I+1]>0) or (A[I]>0) and (A[I+1]<0) then count:=count+1; End; Writeln; Writeln('Кількість заданих сусідств ', count); Readkey; {Затримка зображення на екрані} End.

Информатика

Ответы

МихайловнаМетельков328

Я, в основном, программы на С++ пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).

Program A1;

var a,b,c,i:integer;

begin

write('Enter the a: ');

read(a);

writeln('Enter the b: ');

read(b);

с:=0;

for i:=1 to a Do

     c:=c+b;

writeln('a*b=',c:5:0);

end.

Объясняю (начинаю сразу с цикла for): что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). Например, a=5, b=3. Переменную с=0 будем складывать с b.

i=1      c=5+0;

i=2      c=5+5;

i=3      c=10+5;   //c=15

Вот и есть ответ: 5*3=15.

Алексеевна_Валентиновна

1 Для удобство содержания

2 Гиперссылка— часть гипертекстового документа, ссылающаяся на элемент в этом документе

3-4 Чтобы сделать гиперссылку на страницу или файл в интернете, выделяете текст или картинку, которые потом станут кликабельны, и в верхнем меню выбираете последовательно Вставка - Ссылки - Гиперссылка (или нажимаете на выделенный текст или картинку правой кнопкой мыши, и в выпадающем меню выбираете пункт Гиперссылка).

Далее в окошке "Вставка гиперссылки" заполняете поля:

"Связать с" - выбираете Файл, Веб-страница

"Адрес" - вставляете ссылку на страницу или файл.

Нажимаете ОК и готово!

5 Итак, чтобы сделать оглавление в ворде автоматически, нужно сначала разбить документ на разделы с заголовками, а потом перейти во вкладку "Главная" - "Стили". К названиям разделов, которые требуется внести в содержание, примените соответствующие стили. Например, для названий разделов можно применить «Заголовок 1», а для подразделов «Заголовок 2».

6 А́вторское пра́во — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием

7 Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

До ть скласти блок-схему за зразко.. Program Example_314_2; Uses crt; Const N=100; Type Masiv = array[1..N] of real; Var A:Masiv; {A - масив для зберігання даних чисел} i, count:byte; {і - змінна циклу, count - кількість сусідств} Begin Randomize; Clrscr; count:=0; For i:=1 to N do Begin A[i]:=random*100-random*50; {Заповнення масиву випадковими дійсними числами} Write(A[i]:8:2); {Виведення масиву на екран для контролю правильності роботи програми} End; For i:=1 to N-1 do Begin If (A[I]<0) and (A[I+1]>0) or (A[I]>0) and (A[I+1]<0) then count:=count+1; End; Writeln; Writeln('Кількість заданих сусідств ', count); Readkey; {Затримка зображення на екрані} End.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Валиахметова
jstepanova
Zeitlinama7067
alex07071
Minchenkova
troyasport
Talikova164
lazu8375
kulikovtsud
ИванМолчанов
Sosovna Dmitrievich22
lepekhov4011
vitalina3012
LIN1022
zaschitin48