p align="left">СОДЕРЖАНИЕ. 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*(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 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 (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.Описание: Сравнение чисел трехзначного числа
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
|