Файл: Сборник-задач-на-Языке-Turbo-Pascal.doc

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 10.12.2024

Просмотров: 762

Скачиваний: 2

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

СОДЕРЖАНИЕ

Е. Г. Квашнин

Оглавление

Операторы ввода, вывода и присваивания информации

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

Условный оператор

Оператор выбора

Процедуры

Функции

Константы цвета

Процедуры

Функции

Символы (строки)

Процедуры

Функции Chr(X:Byte):Char Возвращает символ с заданным порядковым номером X.

Сравнение строк

Объединение строк

ey := (a1*d2*c3+d1*c2*a3+c1*a2*d3-a3*d2*c1-d3*c2*a1-c3*a2*d1);

ez := (a1*b2*d3+b1*d2*a3+d1*a2*b3-a3*b2*d1-b3*d2*a1-d3*a2*b1);

x = ex/e

y = ey/e

z = ez/e

------------------------------------------------------------------------

Programsistema3;

Uses Crt;

var a1,a2,a3,b1,b2,b3,c1,c2,c3,d1,d2,d3,x,y,z,e,ex,ey,ez:real;

Вegin

CIrScr;

writeln('введите коэффициенты уравнения:a1,b1,c1,d1,a2,b2,c2,d2,a3,b3,c3,d3');

readln(a1,b1,c1,d1,a2,b2,c2,d2,a3,b3,c3,d3);

e := (a1*b2*c3+b1*c2*a3+c1*a2*b3-a3*b2*c1-b3*c2*a1-c3*a2*b1);

ex := (d1*b2*c3+b1*c2*d3+c1*d2*b3-d3*b2*c1-b3*c2*d1-c3*d2*b1);

ey := (a1*d2*c3+d1*c2*a3+c1*a2*d3-a3*d2*c1-d3*c2*a1-c3*a2*d1);

ez := (a1*b2*d3+b1*d2*a3+d1*a2*b3-a3*b2*d1-b3*d2*a1-d3*a2*b1);

if ( e=0 ) and ( (ex=0) or (ey=0) or (ez=0) ) then

writeln('бесконечное множество решений')

else if ( e<>0 ) and ( (ex=0) or (ey=0) or (ez=0) ) then

writeln('нет решений')

else begin

x:=ex/e; y:=ey/e; z:=ez/e;

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

end;

readln;

Еnd.

Оператор выбора

Caseвыражениеof

Список значений 1 :оператор 1;

Список значений 2 : оператор 2;

…

Список значений n:операторn;

else оператор;

end;

Программа, определяющая этаж по введённому с клавиатуры номеру квартиры (в пятиэтажном доме один подъезд по четыре квартиры на каждом этаже).

Program dom;

UsesCrt;

var х : Integer;

Begin

Clrscr;

write('Введите номер квартиры: ');

readln(x);

Case x of

1, 2, 3, 4: writeln(‘Первый этаж’);

5, 6, 7, 8: writeln(‘Второй этаж’);

9, 10, 11, 12: writeln(‘Третий этаж’);

13, 14, 15, 16: writeln(‘Четвёртый этаж’);

17, 18, 19, 20: writeln(‘Пятый этаж’);

end;

else writeln(‘Квартиры с таким номером в доме нет’);

readln;

End.

Программа, определяющая номер подъезда и этаж по введённому с клавиатуры номеру квартиры (в пятиэтажном доме два подъезда по четыре квартиры на каждом этаже).

Program dom;

UsesCrt;

var х : Integer;

Begin

Clrscr;

write('Введите номер квартиры: ');

readln(x);

Case x of

1, 2, 3, 4: writeln(‘Первый подъезд. Первый этаж’);

5, 6, 7, 8: writeln(‘Первый подъезд. Второй этаж’);

9, 10, 11, 12: writeln(‘Первый подъезд. Третий этаж’);

13, 14, 15, 16: writeln(‘Первый подъезд. Четвёртый этаж’);

17, 18, 19, 20: writeln(‘Первый подъезд. Пятый этаж’);

21, 22, 23, 24: writeln(‘Второй подъезд. Первый этаж’);

25, 26, 27, 28: writeln(‘Второй подъезд. Второй этаж’);

29, 30, 31, 32: writeln(‘Второй подъезд. Третий этаж’);

33, 34, 35, 36: writeln(‘Второй подъезд. Четвёртый этаж’);

37, 38, 39, 40: writeln(‘Второй подъезд. Пятый этаж’);

else writeln(‘Квартиры с таким номером в доме нет’);

end;

readln;

End.

Программа, определяющая по номеру месяца – время года.

Program year;

UsesCrt;

var х : Integer;

Begin

Clrscr;

write('Введите номер месяца: ');

readln(x);

Case x of

12, 1, 2: writeln(‘Зима’);

3, 4, 5: writeln(‘Весна’);

6, 7, 8: writeln(‘Лето’);

9, 10, 11: writeln(‘Осень’);

end;

readln;

End.

В старояпонском календаре был принят две­надцатилетний цикл. Годы "внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, ло­шади, овцы, обезьяны, петуха, собаки и свиньи. Написать программу, которая позволяет ввести номер года и печатает его название по старояпонскому календарю.

Справка:1996 г. — Год Крысы — начало очередного цикла.

Program Goroskop;

UsesCrt;

var Year : integers;

Begin

Clrscr;

write('Введите год ');

readln(Year);

Case Year mod 12 of

0: writeln('Год Обезьяны');

1: writeln(' Год Петуха');

2: writeln(' Год Собаки');

3: writeln(' Год Свиньи');

4:

writeln(‘

Год Крысы');

5:

writeln(‘

Год Коровы');

6:

:

writeln(‘

Год Тигра');

7:

writeln(‘

Год Зайца');

8:

writeln(‘

Год Дракона');

9:

writeln(‘

Год Змеи');

10:

writeln(‘

Год Лошади');

11:

writeln(‘

Год Овцы');

end;

readln;

End.

Циклы

Цикл с предусловием:

Цикл с постусловием:

Цикл со счётчиком:

while условие do

begin

оператор 1;

оператор 2;

…

оператор n;

end;

repeat

оператор 1;

оператор 2;

…

оператор n;

until условие;

for переменная:= начальное значение to конечное значение do

begin

оператор 1;

оператор 2;

…

оператор n;

end;

Программа, выводящая на экран сто символов (*).

Цикл с предусловием:

Цикл с постусловием:

ProgramStar;

UsesCrt;

var х : Integer;

Begin

Clrscr;

x:=1;

while x<100 do

begin

write(‘*’);

x:=x+1;

end;

readln;

End.

ProgramStar;

UsesCrt;

var х : Integer;

Begin

Clrscr;

x:=1;

repeat

write(‘*’);

x:=x+1;

until x>=100;

readln;

End.

Цикл со счётчиком:

(1 способ)

(2 способ)

ProgramStar;

UsesCrt;

var х : Integer;

Begin

Clrscr;

for x:=1 to 100 do

begin

write(‘*’);

end;

readln;

End.

Program Star;

UsesCrt;

var х : Integer;

Begin

Clrscr;

for x:=100 downto 1 do

begin

write(‘*’);

end;

readln;

End.

Программа, вычисляющая факториал числа, введённого с клавиатуры.

Цикл с предусловием:

Цикл с постусловием:

ProgramFaktorial;

UsesCrt;

var i, х, s : Integer;

Begin

Clrscr;

write(‘Введите число’);

readln(x);

i:=1; s:=1;

while i<x do

begin

s:=s*i+s;

i:=i+1;

end;

writeln(‘Факториал числа’, x, ‘=’, s);

readln;

End.

Program Faktorial;

UsesCrt;

var i, х, s : Integer;

Begin

Clrscr;

write(‘Введите число’);

readln(x);

i:=1; s:=1;

repeat

s:=s*i+s;

i:=i+1;

until i>x;

writeln(‘Факториал числа’, x, ‘=’, s);

readln;

End.

Цикл со счётчиком:

ProgramFaktorial;

UsesCrt;

var i, х, s : Integer;

Begin

Clrscr;

write(‘Введите число’);

readln(x);

i:=1; s:=1;

for i=1 to x do s:=s*i+s;

writeln(‘Факториал числа’, x, ‘=’, s);

readln;

End.

Программа, вычисляющая сумму слагаемых .

Цикл с предусловием:

Цикл с постусловием:

Programsumma;

UsesCrt;

var i, s : Integer;

Begin

Clrscr;

i:=1; s:=0;

while i<100 do

begin

s:=1/i+s;

i:=i+1;

end;

writeln(‘Сумма элементов равна’, s);

readln;

End.

Program summa;

UsesCrt;

var i, s : Integer;

Begin

Clrscr;

i:=1; s:=0;

repeat

s:=1/i+s;

i:=i+1;

until i>100;

writeln(‘Сумма элементов равна’, s);

readln;

End.

Цикл со счётчиком:

Programsumma;

UsesCrt;

var i, х, s : Integer;

Begin

Clrscr;

i:=1; s:=0;

for i=1 to 100 do s:=1/i+s;

writeln(‘Сумма элементов равна’, s);

readln;

End.

Программа вывода таблицы соответствия между температурными шкалами Цельсия и Фаренгейта в интервале температур от 0ºС до 100ºС.

Цикл с предусловием:

Цикл с постусловием:

Рrogram Celsius to Fahrenheit;

Uses Crt;

var i, Celsius: Integer; Fahrenheit: real;

Вegin

Clrscr;

writeln("Таблица соответствия между температурными шкалами');

writeln('Цельсия и Фаренгейта');

writeln;

i:=0;

while i <= 20 do

begin

Celsius := 5 * i;

Fahrenheit := 32 + Celsius * 9 div 5;

write(‘ С =' , Celsius) ;

write(‘ F =', Fahrenheit);

writeln;

i:=i+1;

end;

readln;

End.

Рrogram Celsius to Fahrenheit;

Uses Crt;

var i, Celsius: Integer; Fahrenheit: real;

Вegin

Clrscr;

writeln("Таблица соответствия между температурными шкалами');

writeln('Цельсия и Фаренгейта');

writeln;

i:=0;

repeat

Celsius := 5 * i;

Fahrenheit := 32 + Celsius * 9 div 5;

write(‘ С =' , Celsius) ;

write(‘ F =', Fahrenheit);

writeln;

i:=i+1;

until i>20;

readln;

End.

Цикл со счётчиком:

Рrogram Celsius to Fahrenheit;

Uses Crt;

var i, Celsius: Integer; Fahrenheit: real;

Вegin

Clrscr;

writeln("Таблица соответствия между температурными шкалами');

writeln('Цельсия и Фаренгейта');

writeln;

for i := 0 to 20 do

begin

Celsius := 5 * i;

Fahrenheit := 32 + Celsius * 9 div 5;

write(‘ С =' , Celsius) ;

write(‘ F =', Fahrenheit);

writeln;

end;

readln;

End.

Смотрите также файлы