Задача № 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)⋅c
y2=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, текст программы и результат вычислений.
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