martinson
?>

Задача № 1. Вычислить сколько лет некоторому городу (G$), если он был основан в указанном году (GO%), а сейчас текущий год (TG% Решение. Вводим с клавиатуры название города G$, год основания GO% и текущий год TG%. Оператор вывода имеет вид: PRINT G$; TG% - GO%; "let" Запустите программу (клавиша F5) и введите значения: город Кстово, год основания 1957, текущий год 2015. (58) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_1). Перепишите задачу № 1, текст программы и результат вычислений. Задача № 2. Выведите сообщение «Mne __ let, a moey mame __ let», учитывая в программе ваши года рождения. На месте пропусков должны выводиться числа. В среде программирования выполните команды File – New. Наберите программу, подобную решению задачи №1. Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_2). Перепишите задачу № 2, текст программы и результат вычислений. Задача № 3. Используя математические операции и функции вычислите: y1=(a2−a2b2)⋅cy2=a2+b6−−−−−−√(b3−a)y3=y1−a⋅∣∣∣y2+c−b2∣∣∣В среде программирования выполните команды File – New. Наберите программу. Запустите программу (клавиша F5) и введите значения: а=6, b=2, c=3 (y1=81, y2=5, y3=69) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_3). Перепишите задачу № 3, текст программы и результат вычислений. Задача № 4. Вычислить путь (S), пройденный лодкой против течения реки, если скорость лодки в стоячей воде V1 км/ч, скорость течения реки V2 км/ч, время движения лодки t ч. Составьте блок-схему и напишите программу. В среде программирования выполните команды File – New. Наберите программу. Запустите программу (клавиша F5) и введите значения: V1=22, V2=2, t=3 (S=60). Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_4). Перепишите задачу № 4, блок-схему, текст программы и результат вычислений. Задача № 5. Стороны прямоугольника А и В. Найти диагональ прямоугольника (d ), периметр (P) и площадь (S) прямоугольника. Составьте блок-схему и напишите программу. В среде программирования выполните команды File – New. Наберите программу. Диагональ прямоугольника ищем по теореме Пифагора. Запустите программу (клавиша F5) и введите значения: А=3, В=4. (d=5, S=12, P=14) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_5). Перепишите задачу № 5, блок-схему, текст программы и результат вычислений. Задача № 6*. Магазин закупил партию книг (к штук) за st руб. Сделал наценку n %. По какой цене магазин будет реализовывать книги? В среде программирования выполните команды File – New. Наберите программу. Подсказка. Найдите сумму наценки умножив стоимость книг на наценку и разделив на 100. Найдите стоимость книг после переоценки сложив стоимость книг и сумму наценки. Найдите цену реализации книги разделив стоимость после переоценки на количество книг. Запустите программу (клавиша F5) и введите значения: к=10, st=1000, n=20. (120 руб.) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_6). Перепишите задачу № 6, текст программы и результат вычислений.

Информатика

Ответы

dimaproh
Const
  n = 9;

var
  a: array[1..n, 1..n] of integer;
  i, j, aii: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  Writeln('Результирующий массив');
  for i := 1 to n do
  begin
    aii:=a[i,i];
    for j:=1 to n do
    begin
      if a[i,j]<aii then a[i,j]:=1 else a[i,j]:=0;
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.

Тестовое решение:
Исходный массив
 -11  19  48  32  -6 -39 -45 -13 -27
  44  20 -44  27 -50  14 -19 -12  32
   2  48 -16  40  -8 -38  35 -15  41
  -1 -24 -18  35 -49 -11  22  -4  -1
  36 -26  -8  -2  -9 -17  41  44 -13
   0 -25  -6 -35 -18  -6 -28  46  44
   5  -1 -23  36  47 -41 -30   7 -39
  41 -41  19  17 -45   5 -35  -4 -36
 -11 -46   6 -50  49  -2  26 -15 -40
Результирующий массив
   0   0   0   0   0   1   1   1   1
   0   0   1   0   1   1   1   1   0
   0   0   0   0   0   1   0   0   0
   1   1   1   0   1   1   1   1   1
   0   1   0   0   0   1   0   0   1
   0   1   0   1   1   0   1   0   0
   0   0   0   0   0   1   0   0   1
   0   1   0   0   1   0   1   0   1
   0   1   0   1   0   0   0   0   0
АлексейГагиковна1774
Алгоритм это четкая последовательность действий для достижение результата.

Напрмер алгоритм для робота. Задача забить гвоздь.
1.выяснить куда забивать гвоздь
     1.1 Выяснить на какую глубину.
2.Поставить метку где будет забит гвоздь
3.Выбрать гвоздь.
4.Выбрать молоток. (тут можно добавить оптимизацию, например выбирать только определенный молоток под определенный гвоздь)
5.Приставить острие гвоздя к месту куда будет забиваться гвоздь.
6.Зафиксировать гвоздь в этом положении
7.Ударить молотком по шляпке гвоздя
8.Повторять п.7 до тех пор пока гвоздь не будет забит до нужного состояния согласно п1.1.
9.Убрать молоток туда откуда был взят
Конец

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

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

Задача № 1. Вычислить сколько лет некоторому городу (G$), если он был основан в указанном году (GO%), а сейчас текущий год (TG% Решение. Вводим с клавиатуры название города G$, год основания GO% и текущий год TG%. Оператор вывода имеет вид: PRINT G$; TG% - GO%; "let" Запустите программу (клавиша F5) и введите значения: город Кстово, год основания 1957, текущий год 2015. (58) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_1). Перепишите задачу № 1, текст программы и результат вычислений. Задача № 2. Выведите сообщение «Mne __ let, a moey mame __ let», учитывая в программе ваши года рождения. На месте пропусков должны выводиться числа. В среде программирования выполните команды File – New. Наберите программу, подобную решению задачи №1. Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_2). Перепишите задачу № 2, текст программы и результат вычислений. Задача № 3. Используя математические операции и функции вычислите: y1=(a2−a2b2)⋅cy2=a2+b6−−−−−−√(b3−a)y3=y1−a⋅∣∣∣y2+c−b2∣∣∣В среде программирования выполните команды File – New. Наберите программу. Запустите программу (клавиша F5) и введите значения: а=6, b=2, c=3 (y1=81, y2=5, y3=69) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_3). Перепишите задачу № 3, текст программы и результат вычислений. Задача № 4. Вычислить путь (S), пройденный лодкой против течения реки, если скорость лодки в стоячей воде V1 км/ч, скорость течения реки V2 км/ч, время движения лодки t ч. Составьте блок-схему и напишите программу. В среде программирования выполните команды File – New. Наберите программу. Запустите программу (клавиша F5) и введите значения: V1=22, V2=2, t=3 (S=60). Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_4). Перепишите задачу № 4, блок-схему, текст программы и результат вычислений. Задача № 5. Стороны прямоугольника А и В. Найти диагональ прямоугольника (d ), периметр (P) и площадь (S) прямоугольника. Составьте блок-схему и напишите программу. В среде программирования выполните команды File – New. Наберите программу. Диагональ прямоугольника ищем по теореме Пифагора. Запустите программу (клавиша F5) и введите значения: А=3, В=4. (d=5, S=12, P=14) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_5). Перепишите задачу № 5, блок-схему, текст программы и результат вычислений. Задача № 6*. Магазин закупил партию книг (к штук) за st руб. Сделал наценку n %. По какой цене магазин будет реализовывать книги? В среде программирования выполните команды File – New. Наберите программу. Подсказка. Найдите сумму наценки умножив стоимость книг на наценку и разделив на 100. Найдите стоимость книг после переоценки сложив стоимость книг и сумму наценки. Найдите цену реализации книги разделив стоимость после переоценки на количество книг. Запустите программу (клавиша F5) и введите значения: к=10, st=1000, n=20. (120 руб.) Сохраните программу. Для этого воспользуйтесь командой «File – Save as» и задайте имя файла. Имя файла должно содержать первые 4 буквы фамилии и номер задачи (2_6). Перепишите задачу № 6, текст программы и результат вычислений.
Ваше имя (никнейм)*
Email*
Комментарий*

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

Linichuk
tanyaandreeva728
irinasolodova3
dddandmvd5210
leeka152522
Aleksandrovna Kolesnik1764
ivanovmk1977
dp199088206
vdnh451
vodoleytatyana
mvolkov8
kristina1989
info32
PetrovDrozdov1785
format-l3364