шаблоны сайт визитка joomla
Скачать шаблоны Joomla 3.5 бесплатно
Вы находитесь здесь:Главная»Учебные материалы»Pascal»Pascal. Задачи на линейные алгоритмы

Pascal. Задачи на линейные алгоритмы

Линейный алгоритм — набор команд (указаний), выполняемых последовательно друг за другом. Эти команды выполняютс однократно и представляют собой цепь простых действий.  Например, "после школы иду домой" - "делаю уроки" - "иду гулять"  - линейный алгоритм из трех действий. Линейные алгоритмы легко представить в виде блок-схем:

img13

Примеры задач на линейные алгоритмы:

Задача 1. Вывести на экран сообщение «Hello World!».

program HelloWorld;
begin
  writeln('Hello World!')
end.

Обсудить решение на форуме 

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

program WriteThree;
var
 a, b, c: integer;
begin
  readln(a, b, c);
  writeln(c, ' ', b, ' ', a)
end.

 

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

program SqrOfNum;
var
 a: word;
begin
  readln(a);
  a := a * a;
  writeln(a)
end.

 

Задача4. Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.

program ReverseNum;
var
 n, a, b, c: word;
begin
  readln(n);
  a := n mod 10;
  n := n div 10;
  b := n mod 10;
  n := n div 10;
  c := n;
  n := 100 * a + 10 * b + c;
  writeln(n)
end.

 

Задача5. Дано натуральное число меньше 16. Посчитать количество его единичных битов. Например, если дано число 9, запись которого в двоичной системе счисления равна 1001(подстрочная цифра 2 справа от числа означает, что оно записано в двоичной системе счисления), то количество его единичных битов равно 2.

program BinaryUnits;
var
 n, count: byte;
begin
  readln(n);
  count := 0;
  count := count + n mod 2;
  n := n div 2;
  count := count + n mod 2;
  n := n div 2;
  count := count + n mod 2;
  n := n div 2;
  count := count + n;
  writeln(count)
end.

Задача 6. Обменять значения двух переменных, используя третью (буферную) переменную.

var x, y, b: integer;
begin
 write ('Input first number: ');
  readln (x);
  write ('Input second number: ');
  readln (y);

  writeln ('x = ', x, ', y = ', y);
  writeln ('Changing values... changing values...');

  b := x;
  x := y;
  y := b;

  writeln ('x = ', x, ', y = ', y);

  readln
end.
Задача 7. Составьте алгоритм и программу для определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью б руб., галстука стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае нехватки денег сдача получится отрицательной.

uses crt;

  var change,per,por,gal,cash:longint;

begin;

  clrscr;

  write('введите стоимость перчаток-');

  readln(per);

  write('введите стоимость портфеля-');

  readln(por);

  write('введите стоимость галстука-');

  readln(gal);

  write('введите кол-во денег, имеущихся в наличии-');

  readln(cash);

  change:= cash - (per + por + gal);

  writeln('Сдача - ',change,'руб.');

end.

 

Задача 8 Три сопротивления R1, R2 и R3соединены параллельно. Найти сопротивление соединения R0.

Program begin_8;

var r1,r2,r3,r0:real;

begin

  writeln('введите сопротивление R1');

  readln(r1);

  writeln('введите сопротивление R2');

  readln(r2);

  writeln('введите сопротивление R3');

  readln(r3);

  r0:=1/(1/r1+1/r2+1/r3);

  writeln('общее сопротивление R0',r0:4:4);

  Readln;

End.

 

Задача 9. Дан радиус шара. Найти его объем.

Program begin_9;

uses crt;

var r,V: real;

Begin

  ClrScr;

  Writeln('введите радиус r'); readln(r);

  V:=4/3*PI*sqr(r)*r;

  writeln('объем равен',v:4:2);

  Readln;

end.

 

Задача 10. Даны стороны треугольника: a,b,c. Вычислить косинусы углов по теореме  косинусов: sqr(c)=sqr(a)+sqr(b)-2ab*cos(alfa). 

Program begin_10;

uses crt;

var a,b,c,cosa,cosb,cosc:real;

begin

  clrscr;

  write('введите сторону a=');readln(a);

  write('введите сторону b=');readln(b);

  write('введите сторону c=');readln(c);

  cosc:=(sqr(c)-sqr(a)-sqr(b))/(-2*a*b);

  cosa:=(sqr(a)-sqr(c)-sqr(b))/(-2*c*b);

  cosb:=(sqr(b)-sqr(c)-sqr(a))/(-2*c*a);

  writeln('cosa=',cosa:4:4);

  writeln('cosb=',cosb:4:4);

  write('cosc=',cosc:4:4);

  readln;

end.
Задачи для самостоятельного решения

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

2. Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3). Найти площадь треугольника (используя формулу Герона).

3. Дан цилиндр, с заданным радиусом основания r и высотой h. Найти объем цилиндра.

4. Дано четырехзначное число, найти в нем число тысяч, десятков и единиц.

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

6. Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

7. Ввести трехзначное число a. Поменять крайние цифры числа местами.

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

9. Найти площадь кольца по заданным внешнему и внутреннему радиусам.

10. Дана масса в килограммах. Найти число полных центнеров в ней.

11. Дано расстояние в сантиметрах. Найти число полных метров в нем.

 

Похожие материалы (по тегу)

Новости о нас

Расписание занятий для каждой сформированной группы по робототехнике на 2017-2018 учебный год. Подробнее
Учебный год начался, и у нас очередная радостная новость для вас, педагоги! В этом году... Подробнее
Наши учащиеся выступили на августовской конференции педагогов! Подробнее
Хочешь учиться в Толтеке по выгодной цене? Приводи друзей и получай большие скидки!... Подробнее
19 августа в ТРЦ Сити Молл с блеском прошел РобоКвест! Героями квеста стали более сотни... Подробнее

Наши партнеры

 TZOyoOCZ8y0 logotip novy SF BashGU  utv logo  CityMoll  VolnoeDelo