Блок-схемы - во вложениях

1.

Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
  writeln('Введите стороны треугольника');
    write('Введите а');
    readln(a);
    write('Введите b');
    readln(b);
    write('Введите c');
    readln(c);
  p:=(a+b+C)/2;
  S := sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Площадь треугольника равна ',s);
end.

2.

Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
    write('Введите длину основания ');
    readln(a);
    write('Введите ширину основания ');
    readln(b);
    write('Введите высоту параллелепипеда ');
    readln(h);
  s := 2*(a*b+b*h+h*a);
  v := a*b*h;
  r := 4*(a+b+h);
  writeln('Объём равен ',v);
  writeln('Площадь полной поверхности равна ',s);
  writeln('Сумма рёбер равна ',r);
end.

Program Sarumyana;
const n=10;
var a:array[1..n] of integer;
tri, nol, odd, i: integer;
  begin
  writeln('*** alphaues is thinking... ***');
  tri:=0;
  nol:=0;
  odd:=1;
  for i:=1 to n do
  begin
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if a[i] mod 3 = 0 then tri := tri + a[i];
    if a[i] = 0 then nol := nol + 1;
    if i mod 2 = 1 then odd := odd * a[i]
  end;
  write('Строка чисел: ');
  for i:=1 to n do
  begin
    write(a[i],' ');
  end;
   writeln();
   writeln('Сумма элементов, кратных 3, равна ',tri);
   writeln('Количество нулевых элементов = ',nol);
   writeln('Произведение элементов, стоящих на нечётных местах, = ',odd);
end.

Все три решения используют подпрограмму "крючок":

ПРОЦ крючок
НАЧАЛО
   ПОВТОРИТЬ 4 РАЗ
     закрасить; вправо
   КОНЕЦ
   закрасить;
   влево; влево; влево; влево;
   ПОВТОРИТЬ 4 РАЗ
     закрасить; вниз
   КОНЕЦ
   закрасить;
   вверх; вверх; вверх; вверх
КОНЕЦ
   
а)
ПРОГРАММА а
НАЧАЛО
   ПОВТОРИТЬ 2 РАЗ
      крючок;
      вправо; вправо; вниз; вниз  
   КОНЕЦ
   крючок
КОНЕЦ

б)
ПРОГРАММА б
НАЧАЛО
   ПОВТОРИТЬ 2 РАЗ
      крючок;
      вправо; вниз  
   КОНЕЦ
   крючок
КОНЕЦ

в)
ПРОГРАММА в
НАЧАЛО
   ПОВТОРИТЬ 2 РАЗ
      крючок;
      вправо; вправо; вниз
   КОНЕЦ
   крючок
КОНЕЦ

1) 3 + 2 + 3 = 8 (с) - время обработки одной страницы

2) 8 * 205 = 1640 (с) - вреья обработки всего текста

1640 с = 27 мин 20 с

Ответ: 27 мин 20 с потребуется для ввода в память компьютера текста романа А.Дюма "Три мушкетёра"

А8

2) =2*$A2

А6

Схема 4)

В6

a=2; b=6

Сумма = 8

В7

a=32; b=24

цикл выполнится 4 раза

А напечатано будет 5

(минимальная температура была на 5 день)

Вопрос 1.

Какие ключевые слова не используются для записи команды ветвления?

Вопрос 2.

Как выглядит полная форма команды ветвления?

if ... then ... else ...

Как выглядит сокращённая форма команды ветвления?

Вопрос 4.

Какая из команд записана неправильно?

  if a:=0 then a>0;

Вопрос 5.

Какая из команд записана правильно?

Вопрос 6.

Какая из команд записана правильно?

Вопрос 7.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=6;

if a mod 2 = 0 then write(a+2) else write(a-2);

Вопрос 8.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=12;

if a div 2 >= 6 then b:=a mod 5 else b:=a div 3;

write(a-b);

 10

Вопрос 9.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=22;

if a*a >= 225 then a:=a mod 6

Write(22-a);

 18

Вопрос 10.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 9

a:=5; b:=8; c:=11;

if (a>b) ... (b

 4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН

Вопрос 11.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 3

a:=15; b:=7; c:=4;

if (a>b) ... (b

Вопрос 12.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 5

a:=1; b:=8; c:=6;

if (a<=c) ... (b<=c) then z:=c-a else z:=c-b;

Моё решение во вложении

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

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

В3.

Каждый из символов может принимать одно из 2-х значений "+" или "-". Поскольку всех символов 5, то общее количество значений равно 2^5=32

Ответ: 32

В4.

3750 Кбайт = 3750*1024 байт = 3750*1024*8 бит = 30720000 бит

2 мин = 120 сек

30720000 бит : 120 сек = 256000 бит/с

Ответ: 256000 бит/с

В6.

а=2; b=6

Сумма равна 2+6=8

Ответ: 8

Program Alph;
const n=30;
var a,i,:integer;
begin
  writeln ('*********************************');
  writeln ('*   N   *   Число   *   Сумма   *');
  writeln ('*********************************');
  for i:=1 to n do
    begin
      a:=random (100);
      writeln ('*   ',i,'   *     ',a,'    *    ',a+123,'    *');
end;
  writeln ('*********************************');
end.


Program Aeus;
const n=10;
var i:integer;
begin
  writeln ('******************************');
  writeln ('*   Таблица умножения на 4   *');
  writeln ('******************************');
  for i:=1 to n do
    begin
      writeln ('*         4 x ',i,' = ',4*i,'         *');
end;
  writeln ('******************************');
end.

INPUT a
INPUT d
Y=(SQR(7*d)+5*a)/(6*d)+(75*d)/(34*a)
PRINT Y

1. Вычисление площади прямоугольника

 - ширина

 - длина

2. Приготовление обеда

 - список блюд (нужно ли готовить первое, второе, десерт и т.д.)

 - список доступных продуктов

 - количество "едоков" (на сколько человек готовить)

3. Вычисление стоимости покупки в магазине

 - количество каждого купленного товара

 - цена каждого купленного товара

4. Приготовления салата

 - список доступных продуктов

 - количество "едоков" (на сколько человек готовить)

5. Выполнение домашнего задания

 - название предмета

 - номера заданий

 - информация о том, письменно или усно

1. Если в программе раньше было присвоено какое-нибудь значение S, то оно и будет выведено. Если нет, будет выведен 0 или сообщение об ошибке (зависит от компилятора).

2. После выполнения фрагмента S=6. Будет напечатано 6

Вот вывод такой программы:

A[1]=-10 B[1]=-20
A[2]=-8 B[2]=-18
A[3]=-6 B[3]=-16
A[4]=-4 B[4]=-14
A[5]=-2 B[5]=-12
A[6]=0 B[6]=-10
A[7]=2 B[7]=-8
A[8]=4 B[8]=-6
A[9]=6 B[9]=-4
A[10]=8 B[10]=-2

Ответ: 4

У меня Робот развеселился сегодня - закрашивает клеточки разными цветами :)

На схеме во вложении - результат выполнения программы а)

Значок "*" - начальное положение Робота

Смайлик - конечное положение

1. Установить фоновую заливку страницы.
Format - Page Colors and Background - Use custom colors - выбрать цвет

2. Измененить заголовок страницы.
Format - Page Title and Properties - ввести заголовок страницы в поле "Заголовок" (Title), установить язык страницы (Language) и направление текста (Writing direction)

3. Выбрать шрифты, которые будут использоваться на странице для отображения текста.
Format - Font - выбрать шрифт

4. Ввести текст и отформатировать его с помощью выпадающего списка "Body Text".

5. Вставить картинки на страницу.
В окне "Image Properties" выбрать местоположение картинки, выравниваие, альтернативный текст, поля и границы изображения, размеры

6. Сохранить готовую страницу под именем index.html в директории web-сайта.

В фигурных скобках добавил комментарии

{определяем процедуру вправо-вверх}
ПРОЦ вправо_вверх
ПОКА сверху свободно И справа свободно ДЕЛАТЬ
  вправо; вверх; закрасить;
КОНЕЦ

{определяем процедуру вправо-вниз}
ПРОЦ вправо_вниз
ПОКА снизу свободно И справа свободно ДЕЛАТЬ
  вправо; вниз; закрасить;
КОНЕЦ

ПРОГРАММА зигзаг;
{перемещаем Робота в левый нижний угол}
ПОКА слева свободно ДЕЛАТЬ
  влево
КОНЕЦ
ПОКА снизу свободно ДЕЛАТЬ
  вниз
КОНЕЦ
{закрашиваем первую клетку}
   закрасить;
{двигаемся, пока не упрёмся в правую стенку}
ЕСЛИ справа свободно ТО
  вправо_вверх;
  вправо_вниз
КОНЕЦ

program Week;
var day:integer; week:array[1..7] of string;
begin
  week[7]:='Воскресенье';
  week[6]:='Суббота';
  week[5]:='Пятница';
  week[4]:='Четверг';
  week[3]:='Среда';
  week[2]:='Вторник';
  week[1]:='Понедельник';
  write('введите номер дня недели ');
  readln(day);
  writeln'**************************************');
  case day of
    '1'..'7': writeln('Сегодня - ',week[day]);
    else writeln('Вы ввели неправильный номер дня недели')
  end;
  writeln('**************************************');
end.

Добавил блок-схему - только там исправь, пожалуйста, а то я ошибся:

Все блоки вывода должны быть параллелограммами (такие как ввод), а не прямоугольниками. Sorry :)