Основные приемы работы в среде ТР (стр. 2 из 8)

uses crt;

var a,b,P:integer;

begin clrscr;

writeln ('a=');

readln (a);

writeln ('b=');

readln (b);

P:=(a+b)*2;

writeln ('P=',P);

end.

2.Описание: Программа вычисления площади треугольника.

program one;

uses crt;

var a,b,h,s:real;

begin clrscr;

writeln('A= B= H= ');

readln(a,b,h);

s:=h*(a+b)/2;

writeln('S=',s:0:4);

readln;

end.

3.Описание: Программа вычисления количества теплоты по формуле 'Q=c*m*(t2-t1)

program one;

uses crt;

var Q,c,m,t2,t1:integer;

begin clrscr; textcolor(10);

writeln ('c=');

readln (c);

writeln ('m=');

readln (m);

writeln ('t2=');

readln (t2);

writeln ('t1=');

readln (t1);

Q:=c*m*(t2-t1);

writeln('Q=c*m*(t2-t1)=',Q);

end

4.Описание: Программа вычисления величины силы тока I на участке цепи с R Ом и U В.

program one;

uses crt;

var I,U,R:real;

begin clrscr; textcolor(10);

writeln ('U='); readln (U);

writeln ('R=');

readln (R);

I:=U/R;

writeln('I=',I:5:0);

end.

5.Описание: Программа вычисления расстояния между двумя точками с данными координатами x1,y1,x2,y2

program one;

uses crt;

var r:real; x1,x2,y1,y2:integer;

begin clrscr;

writeln ('znachenie x1=');

readln (x1);

writeln ('znachenie x2=');

readln (x2);

writeln ('znachenie y1=');

readln (y1);

writeln ('znachenie y2=');

readln (y2);

r:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln ('rasstoyanie=',r);

end.

6.Описание: Известна сумма денег,имеющаяся у покупателя и стоимость одной ед. товара. Сколько ед. товара может купить покупатель и какова его сдача?

program one;

uses crt; var a,b,c:real; begin clrscr;

writeln ('summa deneg=');

readln (a);

writeln ('cena ed.tovara=');

readln (b);

c:=a/b;

writeln ('ostatok=',c);

end.

7.Описание: Сумма цыфр введенного трехзначного натурального числа.

program one;

uses crt;

var a:integer; s,d,e,f:real;

begin clrscr;

writeln ('vvedi 3-hznachnoe chislo');

readln (a);

s:=a div 100;

d:=a mod 100 div 10;

e:=a mod 100 mod 10;

writeln (d:5:0); writeln (s:5:0); writeln (e:5:0);

f:=d+s+e; writeln (f:5:0);

end.

8.Описание: Найти площадь по известной стороне равностороннего треугольника.

program one;

uses crt;

var a,S:real;

begin clrscr;

writeln('Vvedite storonu treugolnika');

readln(a);

S:=0;

S:=a*a*sqrt(3)/4;

writeln ('Ploshad ravna:', S:3:1);

readln;

end.

9.Описание: Бабушка вяжет в неделю 3 пары детских носков, пару женских и пару мужских и продает их. Считая, что в месяце 4 недели,определить,какую прибыль бабушка имеет за месяцю.

program one;

uses crt; var det,jen,muj,ned,mes:integer;

begin clrscr;

writeln ('det:=');

readln (det);

writeln ('jen:=');

readln (jen);

writeln ('muj:=');

readln (muj);

ned:=muj+jen+det;

mes:=4*ned;

writeln('dohod=',mes);

end

10.Описание: Пирамида из звездочек

program one;

uses crt;

var j,i:integer;

begin clrscr;textcolor(9+5);

for i:=1 to 25 do begin gotoxy(40-i,i);

for j:=2 to 2*i do write('*');

end;

readln;

end.

11.Описание:Вычислить произведение

Program one;

Uses crt;

Var a,b,p:integer;

begin clrscr;textcolor(9+5);

writeln ('a= b=');

readln (a,b);

p:=a*b;

textcolor (9+16);

writeln (‘p=,p’);

end.

12.Описание: Вычисление радиуса

Program one;

Uses crt;

Var l:real; r:integer;

begin clrscr;textcolor(5);

writeln ('R=');

readln (r);

l:=2*pi*r;

writeln (‘radius=,r’);

end.

13.Описание: Вычисление периметра квадрата

Program one;

Uses crt;Var а:integer;

begin clrscr;textcolor(5);

writeln ('a=');

readln (a);

p:=4*a;

writeln (‘perimetr=,р’);

end.

14.Описание: Выведение введенного числа

Program one;

Uses crt;Var s:integer;

begin clrscr;textcolor(5);

writeln ('s=');

readln (s);

writeln (‘вы ввели число,s’);

end.

15.Описание: Вычисление плотности по количеству жителей и площади.

Program one;

Uses crt;Var k,s:integer; p:real;

begin clrscr;textcolor(5);

writeln ('число жителей=');

readln (k);

writeln (‘plosh=’);

readln (s);

p:=s/k;

writeln (‘plotnost=’,p);

end.

Раздел: Разветвляющиеся алгоритмы

1.Описание: Вычисление уравнения

program one;

var x,y:integer;; begin write('x='); readln(x); if x>0 then y:=sqr(sin(x)) else y:=1-2*sin(sqr(x)); writeln (y); end.

2.Описание: Деление нацело

Program ch;

Uses crt;

Var a,m,n:integer;

Begin clrscr;

Writeln (‘m= n=’);

Readln (m,n);

a:=m mod n;

If a=0 then write (m div n)

Else write(‘net resh’)

End.

3 .Описание: Написать программу на языке Pascal для реализации разветвляющегося алгоритма, где x – известные величины.

program one;

var x,y:real;

begin writeln('');

write('Vvedite x=');

readln(x); if x<=0.8 then

y:=exp(x-1)+3.14 else if (0.8<x) and (X<=5.27) then

y:=ln(x+5.96) else y:=2*x;

writeln('y=',y:4:2); readln;end.

4. Описание: Написать программу на языке Pascal для реализации разветвляющегося алгоритма, где x – известные величины.

program one; var x,y,z:real; begin writeln(''); write('Vvedite x='); readln(x); write('Vvedite y='); readln(y);

if x-y>0 then z:=1/(x*y) else z:=sqr(x)*sqr(y); writeln('z=',z:4:2); readln; end.

5 .Описание: Написать программу на языке Pascal для реализации разветвляющегося алгоритма, где x=ln a², y=1/arctg b; a,b – известные величины.

program one; var x,y,z,a,b:real; begin writeln(''); write('Vvedite a='); readln(a); write('Vvedite b='); readln(b); x:=ln(sqr(a)); y:=1/arctan(b); if x-y>0 then z:=1/(x*y) else z:=sqr(x)*sqr(y); writeln('z=',z:4:2); readln; end.

6. Описание: Заданы два прямоугольных параллелепипеда. Можно ли разместить их один в другом?

program one; var a1,a2,b1,b2,c1,c2:integer; begin writeln('vvedite shiriny, dliny, vusoty 1');

readln(a1,b1,c1); writeln('vvedite shiriny, dliny, vusoty 2'); readln(a2,b2,c2); if ((a1<=a2) and (b1<=b2) and (c1<=c2)) or ((a1>a2) and (b1>b2) and (c1>c2)) then writeln('mogno') else writeln('nelzya'); readln; end.

7. Описание: номер клетки на шахматной доске 8х8 определяется двумя целыми числами - номер вертикали и номер горизонтали. Даны 4 целых положительных числа a,b,c,d. Выяснить, бьет ли ферзь, находящийся на клетке (a,b) клетку(c,d)

program one; var a,b,c,d:integer; begin read(a,b); read(c,d); if (a=c) or (b=d) or (abs(c-a)=abs(d-b))

then write('ga') else write('HeT');

readln

end

8. Описание: Возможно, ли построить треугольник с данными сторонами

program one;

uses crt;

var a,b,c:real;

begin clrscr;

writeln('Стороны треугольника= ');

readln(a,b,c);

if (a<b+c) and (b<a+c)

and(c<a+b) then write('можно')

else write('невозможно');

readkey;

end.

9 .Описание: Даны три неравных числа a, b, c. Составить программу нахождения квадрата большего из этих чисел.

program one; var a,b,c:real; begin read(a,b,c); if (a>b) and (a>c) then write('a^2= ',a*a:1:4); if (b>a) and (b>c) then write('b^2= ',b*b:1:4); if (c>a) and (c>b) then write('c^2= ',c*c:1:4); readln end.

10.Описание:Вычисление большего из двух чисел

Program b_ch;

Uses crt;

Var a,b:integer;

Max:integer;

Begin clrscr;

Writeln (‘a= b=’);

Readln (a,b);

If a>b then max:=a else max:=b

Writeln (‘max=’,max);

End.

11.Описание:Вычисление меньшего из двух чисел

Program m_ch;

Uses crt;

Var a,b:integer;

Min:integer;

Begin clrscr;

Writeln (‘a= b=’);

Readln (a,b);

If a<b then min:=a else min:=b

Writeln (‘min=’,min);

End.

12.Описание:Деление нацело

Program ch;

Uses crt;

Var a,b,c:integer;

Begin clrscr;

Writeln (‘a= b=’);

Readln (a,b);

C:=a mod b;

If c=0 then write (a div b)

Else write(‘net resh’)

End.

13.Описание: Сравнение чисел трехзначного числа

Program ch;

Uses crt;

Var a,b,c,d,e,i:integer;

Begin clrscr;

Writeln (‘a=’);

Readln (a);

D:=a div 100;

E:=b mod 100 div 10;

C:=I mod 10;

writeln(d,e,c);

if (a<b) and (b<i) then writeln (‘ravny’)

else writeln (‘ne ravny’);

End.

14.Описание: Принадлежит ли число интервалу

Program ch;

Uses crt;

Var a:integer;

Begin clrscr;

Writeln (‘a=’);

Readln (a);

if (a>=(-5)) and (a<=3) then writeln (‘prinadl’)

else writeln (‘ ne prinadl’);

End.

15.Описание:Сравнить 3 стороны треугольника

Program ch;

Uses crt;