Как составить программу по информатике гдз

Задание 2. Напишите программу вычисляющую «y» для заданного «x» по формуле
y = x³ + 2.5x² – x + 1 = ((x+2.5)x-1)x + 1
(Нельзя возводить в степень, в присваивании только одна арифметическая операция, не больше 5-ти операторов присваивания.)

program z_2;
var x, y: real;
BEGIN
 write ('x>>');
 read (x);
 y:= x + 2.5;
 y:= y*x;
 y:= y-1;
 y:= y*x;
 y:= y+1;
 writeln ('y = ', y)
END.

Задание 3. Напишите программу, вычисляющую длину отрезка AB по заданным координатам точек A и B.

Формула нахождения длины отрезка по заданным координатам:

program z_3;
var xA, yA, xB, yB, d: real;
BEGIN
 write ('xA=');
 read (xA);
 write ('yA=');
 read (yA);
 write ('xB=');
 read (xB);
 write ('yB=');
 read (yB);
 d:= sqrt(sqr(xB-xA) + sqr(yB-yA));
 writeln ('d=', d)
END.

Задание 4. Известны длины сторон треугольника a, b, c. Напишите программу, вычисляющую площадь этого треугольника.

program z_4;
var a, b, c, p, S: real;
BEGIN
 writeln('Площадь треугольника по трём его сторонам');
 writeln('Введите стороны треугольника:'); 
 write('a>>'); 
 read (a);
 write('b>>'); 
 read (b);
 write('c>>'); 
 read (c);
 //Проверяем, существует ли такой треугольник
 if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
 //Вычислим полупериметр
 p := (a+b+c)/2;
 //Теперь вычислим площадь
 S:=sqrt(p*(p-a)*(p-b)*(p-c));
 writeln ('S = ', S:3:2, ' см2');
 end
 else
 writeln ('Треугольник со сторонами ', a,', ', b,', ', c,' не существует');
END.

Задание 5. Известны координаты A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника.

Объединим программы из двух предыдущих заданий.

program z_5;
var xA, yA, xB, yB, xC, yC, a, b, c, p, S: real;
BEGIN
 writeln('Площадь треугольника по трём его сторонам');
 writeln('Введите координаты вершин:'); 
 write ('xA=');
 read (xA);
 write ('yA=');
 read (yA);
 write ('xB=');
 read (xB);
 write ('yB=');
 read (yB);
 write ('xC=');
 read (xC);
 write ('yC=');
 read (yC);
 a:= sqrt(sqr(xB-xA) + sqr(yB-yA));
 b:= sqrt(sqr(xC-xB) + sqr(yC-yB));
 c:= sqrt(sqr(xC-xA) + sqr(yC-yA));
 //Проверяем, существует ли такой треугольник
 if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
 //Вычислим полупериметр
 p := (a+b+c)/2;
 //Теперь вычислим площадь
 S:=sqrt(p*(p-a)*(p-b)*(p-c));
 writeln ('S = ', S:3:2, ' см2');
 end
 else
 writeln ('Треугольник со сторонами ', a,', ', b,', ', c,' не существует');
END.

Задание 6. Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до ближайшего рубля (до 50 копеек – с недостатком, свыше 50 копеек с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.

Функция «round(x)» округляет число до ближайшего целого.

program z_6;
var nalog: real; k: integer;
BEGIN
 write ('Введите точную сумму налога: ');
 read (nalog);
 nalog:= round(nalog);
 write ('Следует уплатить "', nalog, '" рублей.');
END.

Задание 7. Исследуйте работу функции random, запустив многократно на выполнение программу в учебнике.

Как можно получить случайное число из интервала:
а) (0, x);
random (x-1) + 1;

б) (0, x];
random (x) + 1;

в) (n, x +n);
random (x+n-1) + n+1;

Задание 8. Одна компания выпустила билеты трёх разрядов: для молодежи, для взрослых и для пенсионеров. Номера билетов каждого разряда лежат в пределах:
Для молодежи: от 1 до 100;
Для взрослых: от 101 до 200;
Для пенсионеров – от 201 до 250.
Выберите случайным образом лотерейный билет в каждом разряде.

program z_8;
var a, b, c: integer;
BEGIN
 a:= random (100)+1;
 b:= random (100)+101;
 c:= random (50)+201;
 writeln ('Для молодежи билет номер ', a);
 writeln ('Для взрослых билет номер ', b);
 writeln ('Для пенсионеров билет номер ', c);
END.

Задание 9. Запишите программу, которая для произвольного натурального двузначного числа определяет:
а) сумму и произведение его цифр;
б) число, образованное перестановкой цифр исходного числа.

program z_9;
var a, b, c, sum, pr: integer;
BEGIN
 writeln ('Введите двузначное натуральное число:');
 readln (a);
 b:= a div 10;
 c:= a mod 10;
 sum:= b+c;
 pr:= b*c;
 writeln ('а) Сумма: ', sum, '; Произведение: ', pr);
 writeln ('б) ', c*10+b)
END.

Задание 10. Запишите программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим возможным количеством банкнот по 1000 (k1000), 500 (k500), 100 (k100), 50 (k50) рублей.

program z_10;
var s: integer;
BEGIN
 writeln ('Введите сдачу:');
 readln (s);
 writeln ('Следует сдать:');
 writeln ('банкнот по 1000 руб. - ', s div 1000, ' шт.');
 s:= s mod 1000;
 writeln ('банкнот по 500 руб. - ', s div 500, ' шт.');
 s:= s mod 500;
 writeln ('банкнот по 100 руб. - ', s div 100, ' шт.');
 s:= s mod 100;
 writeln ('банкнот по 50 руб. - ', s div 50, ' шт.');
 s:= s mod 50;
END.

Задание 11. Идет k-я секунда суток. Разработайте программу, которая по введённой k-ой секунде суток определяет, сколько целых часов h и целых минут m прошло с начала суток.

program z_11;
var k: integer;
BEGIN
 writeln ('Введите секунды суток:');
 readln (k);
 write ('Прошло ', k div 3600, ' часа(-ов) ');
 k:= k mod 3600;
 write (k div 60, ' минут');
END.

Задание 12. Запишите программу, которая вычисляет сумму кодов букв в слове «БАЙТ».

program z_12;
BEGIN
 writeln ('Слово "БАЙТ"');
 writeln ('Сумма кодов букв: ', ord('Б')+ord('А')+ord('Й')+ord('Т'))
END.

Задание 13. Запишите на языке Паскаль программу, которая формирует и выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78.

program z_13;
BEGIN
 writeln ('Код: 66, 69, 71, 73, 78');
 writeln ('Сформированное слово: ', chr(66)+chr(69)+chr(71)+chr(73)+chr(78))
END.

Задание 14. Разработайте программу, которая запрашивает три строковые величины – взаимосвязанные прилагательное, существительное и глагол, а затем выводит все варианты фраз с использованием введенных слов.

program z_14;
var a, b, c: string;
BEGIN
 writeln('Введите прилагательное, существительное и глагол:');
 write ('Прилагательное: ');
 readln (a);
 write ('Существительное: ');
 readln (b);
 write ('Глагол: ');
 readln (c);
 writeln (' ------- ');
 writeln (a, ' ', b, ' ', c);
 writeln (a, ' ', c, ' ', b);
 writeln (b, ' ', a, ' ', c);
 writeln (b, ' ', c, ' ', a);
 writeln (c, ' ', a, ' ', b);
 writeln (c, ' ', b, ' ', a);
END.

Задание 15. Даны значения целочисленных переменных: a=10, b=20. Чему будет равно значение логической переменной rez после выполнения операции присваивания?

а) rez:= (a=10) or (b>10) True
б) rez:= (a>5) and (b>5) and (a<20) and (b<30) True
в) rez:= (not(a<15)) or (b>20) False

Задание 16. Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:

а) Сумма цифр трехзначного числа x является четным числом.

program z_16a;
var x: integer; //Исходные данные
 a, b, c, s: integer; //Промежуточные величины
 ans: boolean; //Результат
BEGIN
 randomize;
 x:= random (900)+100;
 writeln ('Трёхзначное число x=', x);
 a:=x div 100;
 b:=x mod 100 div 10;
 c:=x mod 10;
 s:=a+b+c;
 writeln ('s=', s);
 ans:= s mod 2=0;
 writeln (ans)
END.

б) Треугольник со сторонами a, b, c является разносторонним.
Проверку существования треугольника со сторонами a, b, c в этой программе мы не выполняем.

program z_16b;
var a, b, c: real; //Исходные данные
 ans: boolean; //Результат
BEGIN
 write ('a=');
 readln (a);
 write ('b=');
 readln (b);
 write ('c=');
 readln (c);
 ans:= (a<>b) and (a<>c) and (b<>c);
 writeln (ans)
END.

Перейти к контенту

ОТВЕТЫ Решебник — ГДЗ Информатика — §13.Программирование ветвлений на Паскале, Семакин 9 класс

Вопросы и задания
1. Как программируется на Паскале полное и неполное ветвление?
2. Что такое составной оператор? В каких случаях составной оператор используется в операторе ветвления?
3. Выполните на компьютере все программы, приведенные в данном параграфе.
4. Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел.
5. Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.
6. Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов.

Ответы на вопросы параграф 13 из учебника Семакина 9 класс

2. Составной оператор предназначен для объединения нескольких действий. Он имеет вид:begin операторы end; В условном операторе составной оператор используется для описания нескольких действий: если истина — то составной оператор, если ложь то составной оператор.

4.

Литература:Учебник:Информатика, 9 класс. ФГОС Автор:И. Г. Семакин, Л. А. Залогова, С. В. Русаков, Л. В. Шестакова.

Did you find apk for android? You can find new Free Android Games and apps.

Задание 15.2 в ОГЭ по информатике на составление программы. Как правило, это программы содержащие и циклы и условия. В этой статье постараемся разобраться как решать такие задачи.
Условный оператор присутствует практически в каждой задаче. В решении задач используют два вида циклов: цикл с параметром и цикл с предусловием.

Паскаль ОГЭ как решать?

Чтобы определить какой цикл следует использовать, необходимо внимательно прочитать задание.

• Если в задаче сказано: программа получает на вход количество чисел, то следует использовать цикл с параметром.
• Если в задаче сказано: количество введённых чисел неизвестно, а последовательность чисел заканчивается 0 , то следует использовать цикл с предусловием.

Разберем несколько вариантов задач, с которыми придется столкнуться на экзамене по информатике в 9 классе.

Пример 1. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 5.

Решение:

Читая условие задачи, явно видим, что нам необходим цикл с предусловием. А также нам нужно будет отбирать четные числа, да еще и кратные 5. Следовательно, в программе будем записывать два условия:

1. определение четности числа: a mod 2 =0
2. определение кратности 5: a mod 5 =0

Причём эти условия должны выполняться одновременно. А значит, нужно составить из них одно сложное условие, используя логическую операцию — умножение. Вот так:

(a mod 2 =0) and (a mod 5 =0)

Поясним обозначения переменных:

• k — количество чисел, удовлетворяющих условиям задачи,
• a — число, которое получает программа на входе

Теперь, для большего понимания, сделаем блок-схему

Как это работает?

1. Программа получает на вход число а.
2. Далее оно проходит через условие окончания цикла a<>0. Если условие не выполняется, то заходим внутрь цикла и проверяем число а по критериям задачи.
3. Если критерии выполнены, то число заносится в счетчик (k+1).
4. Далее вводится следующее значение числа а (новое число).
5. Идем по стрелке на проверку условия цикла. Если оно  выполняется, то повторяем предыдущие шаги внутри цикла.
6. При невыполнении (a=0) выводим полученное значение k и завершаем программу.

Текст программы на Паскале:

var a, k: integer;
begin 
  k:=0;
  readln(a);
   while a<>0 do
    begin
     if (a mod 5=0) and (a mod 2=0) then k:=k+1;
     readln(a);
    end;
  writeln(k)
end.

Пример 2. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, оканчивающихся на 3.

Решение:

Читая условие задачи, явно видим, что нам необходим цикл с параметром. А также нам нужно будет сумму только тех чисел,  которые оканчиваются цифрой 3. Следовательно, в программе будем записывать одно условие: a mod 10 =3
Если все еще не понятно, почему такое условие, советую сначала почитать статью «Операции с целыми числами»

Поясним обозначения переменных:

• n — количество вводимых чисел,
• s — сумма чисел, удовлетворяющих условиям задачи,
• a — число, которое получает программа на входе,
• i — параметр цикла, счетчик выполнений цикла

Теперь, для большего понимания, сделаем блок-схему

Как это работает?

1. Программа получает на вход количество чисел n.
2. Начинается цикл, который выполнится ровно столько раз сколько указано количество чисел. В качестве счетчика введенных чисел, используется переменная цикла i (параметр цикла).
3. На первом шаге цикла программа получает первое число а. Проверяется условие. Если число оканчивается цифрой 3, то сумма s увеличивается на значение введенного числа а (s+a).
4. Далее шаги внутри цикла повторяются с каждым новым числом.
5. После обработки в цикле последнего числа выводится результат вычисленной суммы.

Текст программы на Паскале:

var a,i,s,n: integer;
begin 
  readln(n);
  s:=0;
   for i:=1 to n do
    begin
     readln(a);
     if a mod 10=3 then s:=s+a;
    end;
  writeln(s);
end.

Решебник к задачам по информатике: Язык программирования «Паскаль»
1 часть

♯Задача №1

Найти площадь прямоугольного треугольника, если известны его катеты.

Решение:

Program Plashed;

Var a, b, S: real;

Begin

Writeln (‘Введите два числа (катеты треугольника)’);

Readln (a,b);

S := (a*b)/2;

Writeln(‘Площадь треугольника равна ‘, S);

End.

♯Задача №2

Шоколадка «Dove» стоит некоторую сумму денег. После праздников цена шоколадки увеличилась на 10%. Какова новая стоимость шоколадки?

Решение:

Program chocolate;

Var c: real;

Begin

Writeln(‘Введите первоначальную стоимость шоколадки’);

Readln(c);

c:= c+(c/100)*10;

Writeln (‘Стоимость шоколадки после подорожания на 10% = ‘, c);

End.

♯Задача №3

Одна сторона прямоугольника на 7 см длиннее другой. Найти его периметр. Размеры сторон произвольные.

Решение:

Program perimeter;

Var a, P: real;

Begin

Writeln(‘Введите число(сторона прямоугольника)’);

Readln(a);

P:= a+a+a+7+a+7;

Writeln (‘Периметр прямоугольника = ’, P);

End.

♯Задача №4

Найдите ускорение, с которым движется автомобиль, если известна начальная и конечная скорость, время.

Решение:

Program uscorenie;

Var a, v0, v, t: real;

Begin

Writeln(‘Введите 3 числа больше нуля :начальная скорость(м/с), конечная скорость(м/с), время(с)’);

Readln(v0, v, t);

a:= (v-v0)/t;

Writeln(‘Ускорение = ’, a);

End.

♯Задача №5

Поменяйте местами цифры в двузначном числе.

Решение:

Program zamena;

Var a,b,c: integer;

Begin

Writeln(‘введите число а’);

Readln(a);

b:=a div 10;

c:= a mod 10;

a:= c*10+b;

Writeln(a);

End.

♯Задача №6

Дана сторона квадрата а. Найти его периметр.

Решение:

Program kvadrat;

VaraP :integer;

Begin

Writeln(‘ введите cторону квадрата а ‘);readln(a);P:=4*a;

Writeln(P);End.

♯Задача №7

Дан радиус круга r. Найти площадь круга.

Решение:

Program krug;

const p=3.14;

Var

S,r :real;

Begin

Writeln(‘ введите радиус круга r ‘);

readln(r);

S:=sqr(r)*p;

Writeln(S);

End.

♯Задача №8

Ввести двузначное число а. Поменять цифры местами.

Решение:

Program prim_9;

Var a,b,c:integer;

Begin

Write(‘ введите число а ‘);

Readln(a);

b:= a div 10;

c:=a mod 10;

a:=c*10+b;

Writeln(a);

End.

♯Задача №9

Даны катеты прямоугольного треугольника. Найти площадь треугольника и гипотенузу.

Решение:

program treyg;

var

a,b,c,S: real;

begin

a:=3;

b:=4;

c:=sqrt(sqr(a)+sqr(b));

writeln(c);

S:=0.5*a*b;

writeln(S);

end.

♯Задача №10

Произвести операцию перевод из сантиметров в метры(полные метры).

Решение:

Program metr;

var m,s: integer;

begin

write (‘Введите значение m:’);

readln (m);

s:=m div 100;

write (‘Количество полных метров: ‘,s,’.’);

end.

♯Задача №11

Дано натуральное число меньше 256. Сформировать число, представляющее собой его квадрат.

Решение:

program van ;

var

a: word;

begin

writeln(‘введите 1 число ‘);

readln(a);

a := a * a;

writeln(a);

end.

♯Задача №12

Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.

Решение:

program cat ;

var

a, b, c: integer;

begin

writeln(‘ введите 3 числа ‘);

readln(a, b, c);

writeln(c,b,a);

end.

♯Задача №13

Сережа посмотрел в дневник на свои оценки по географии и захотел предположить, что он получит за четверть. Помоги Сереже если его оценки выглядят так ( 5, 3, 4).

Решение:

program zet ;

var

a, b, c, z: integer ;

begin

writeln(‘ введите 3 числа ‘);

readln(a, b, c);

z:=(a*b*c)/3;

writeln(z);

end.

♯Задача №14

Найдите площадь прямоугольного треугольника, катеты которого a и b .

Решение:

program go ;

var

a, b, s: integer;

begin

writeln(‘ введите 2 числа ‘);

readln(a, b);

s:= 0.5*(a*b);

writeln(s);

end.

♯Задача №15

Выведите корень из числа на экран, введенного с клавиатуры.

Решение:

program dog ;

var

a: real;

begin

writeln(‘ введите число ‘);

readln(a);

a:= sqrt(a);

writeln(a);

end.

♯Задача №16

Вывести на экран запись « information technology».

Решение:

Program information technology;

Begin

Readln( ҆введите слово ҆);

Writeln( ҆ information technology ҆ );

End.

♯Задача №17

Вывести на экран три числа в порядке, обратном вводу. Решение: Program two; Var A , B , C : integer; Begin Readln( ҆ A,B,C҆); Writeln(C, ҆ ҆ ,B , ҆ ҆ , A); End. ♯Задача №18 Дано число … . Вывести на экран его квадрат . Решение: Program three; Var C : real; Begin Readln( ҆ Введите число ҆); Writeln( C); C:=C*C; Writeln( C); End. ♯Задача №19 Найти площадь треугольника . Решение: Program for; Var A, H, S : real; Begin Readln(҆҆ Введите числа ҆); Writeln( A , H); S :=1/2*A*H Writeln(H); End. ♯Задача №20 Проверить, является ли четырехзначное число счастливым билетом. Решение: Program fufe; Var n:word; left,right:byte; begin readln(‘введите четырехзначное число’); writeln(n); right:=n div 10; n:=n div 10; right: right + n mod 10; n:=n div 10; left:=n mod 10; n:=n div 10; left:= left + n; writeln(left=right); end.

 ♯Задача №21

Треугольник существует только тогда, когда сумма любых двух его сторон больше третьей. a, b, c – стороны предполагаемого треугольника.
Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.

Решение:

Program one;

var a, b, c: integer;

begin

write (‘Длины сторон: ‘);

readln (a,b,c);

if a then;