Отчет по практике: Основные приемы работы в среде ТР

СОДЕРЖАНИЕ.
1. Линейная программа на Паскаль.
2. Программа с ветвлениями.
3. Циклическая программа.
4. Массивы.
5. Процедуры и функции.
6. Файловые данные в Паскале.
7. Записи в Паскале.
8. Строки.
9. Графика в Турбо-Паскале.
Раздел: Линейные алгоритмы
1.Описание: Программа вычисления периметра треугольника.

program one;
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 *( t 2- t 1)

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, y 1, x 2, y 2
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 (X0 then z:=1/(x*y) else z:=sqr(x)*sqr(y); writeln('z=',z:4:2); readln; end.

5 .Описание: Написать программу на языке Pascal для реализации разветвляющегося алгоритма, где x=ln a2 , 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 (c1a2) 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

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию