![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
ifs<>'' thenСтр 1 из 2Следующая ⇒
Begin for i: =1 to n do if odd(i) then a[i]: =0 else a[i]: =i/2;
writeln('elementy massiva'); for i: =1 to n do write(a[i]: 8: 3); readln; end.
program massive; type mass= array [1..10] of real; var a, b: mass; max1, max2: real; pr: real; j: integer;
procedure maximum(m: mass; var z: real); var i: integer; Begin z: =m[1]; for i: =1 to 10 do if m[i]> z then z: =m[i]; end;
Begin randomize; for j: =1 to 10 do Begin a[j]: =10 - random(30); b[j]: =2 - random (10); end;
maximum(a, max1); maximum(b, max2);
pr: =max1*max2; writeln('Iskomoe proizvedenie - ', pr: 8: 3); readln; end.
4. Сконструируйте программу для нахождения корней квадратного уравнения ax2+bx+c=0, где a, b, c вводятся с клавиатуры (предусмотреть все возможные ошибки).
program uravn; var a, b, c: real; d: real; x1, x2: real;
Begin writeln('vvedite a, b, c'); readln (a, b, c); if (a=0) then Begin if b=0 then if c=0 then writeln ('uravnenie imeet beskonechnoe mnojestvo reshenij') else writeln ('net reshenij'); End Else Begin d: =sqr(b)-4*a*c; if d< 0 then writeln ('net reshenij') Else Begin x1: =((-b)-sqrt(d))/(2*a); x2: =((-b)+sqrt(d))/(2*a); writeln ('x1=', x1: 8: 2); writeln ('x2=', x2: 8: 2); end; end; readln; end.
program rasstojanie;
{$APPTYPE CONSOLE}
uses SysUtils;
var x1, y1, x2, y2: real; rasst: real;
begin writeln('vvedite koordinaty 1 tochki'); readln(x1, y1); writeln('vvedite koordinaty 2 tochki'); readln(x2, y2); rasst: =sqrt (sqr(x2-x1)+sqr(y2-y1)); writeln('rasstojanie = ', rasst: 8: 2); readln; end.
6. Сконструируйте программу позволяющую заменить в заданном массиве М(15) нулевые элементы квадратами их индексов.
program zamena; var a: array [1..15] of real; i: integer;
Begin randomize; for i: =1 to 15 do a[i]: =5-random(20);
for i: =1 to 15 do if a[i]=0 then a[i]: =sqr(i);
writeln('poluchennyj massiv'); for i: =1 to 15 do write(a[i]: 8: 2);
readln; end. 7. Сконструируйте программу позволяющую найти максимальный и минимальный элемент одномерного массива.
program znachenie; const n=10; var a: array [1..n] of integer; i: integer; max, min: integer; Begin randomize; for i: =1 to n do a[i]: =5-random(10);
max: =a[1]; min: =a[1];
for i: =1 to n do Begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end;
writeln('maximum - ', max); writeln('minimum - ', min);
readln; end.
program chetvert; var x, y: real;
Begin writeln('vvedite koordinaty'); readln(x, y); if (x> 0) and (y> 0) then writeln('1 chetvert'); if (x< 0) and (y> 0) then writeln('2 chetvert'); if (x< 0) and (y< 0) then writeln('3 chetvert'); if (x> 0) and (y< 0) then writeln('4 chetvert'); if (x=0) or (y=0) then writeln('nevernyi vvod'); readln; end.
9. Сконструируйте программу, позволяющую в данной строке символов определить, стоят ли в данной строке подряд символы f и b.
program simvol; var s: string; i: integer;
Begin writeln('vvedite stroky'); readln(s); for i: =1 to length(s)-1 do if (s[i]='f') and (s[i+1]='b') then Begin writeln('imeetsja'); break; end; readln; end.
10. Сконструируйте программу определяющую количество отрицательных элементов в массиве К(n) (n< =100) заполненном случайными числами от -15 до 15.
program znachenie; const n=10; var a: array [1..n] of integer; i: integer; k: integer; Begin randomize; for i: =1 to n do a[i]: =15-random(30);
k: =0; for i: =1 to n do if a[i]< 0 then inc(k);
writeln('kolichestvo otricatelnyh - ', k); readln; end.
program formir;
var f: text; j, i: integer; s, s1: string;
Begin assign(f, 'out.txt'); rewrite(f);
for i: =1 to 9 do Begin s: =''; {formirovanie stroki} for j: =1 to i do Begin {perevod chisla v stroky} str(i, s1); s: =s+s1; end; writeln(f, s); end; close(f); readln; end.
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils; var i: integer; s, a: integer; begin writeln('vvedite 3 chisla'); s: =0; for i: =1 to 3 do begin readln(a); if a> 0 then s: =s+a; end; writeln('suma=', s); readln; end.
13. Сконструируйте программу нахождения суммы цифр в строке символов, представляющей собой последовательность цифр.
program summa;
var i, n, c: integer; s, s1: string; summ: integer;
Begin writeln('vvedite stroky'); readln(s); ifs< > '' then Begin val(s, n, c); summ: =0; Repeat summ: =summ+(n mod 10); n: =n div 10; until n=0; writeln(summ); End else writeln('pustaja stroka'); readln; end.
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a, b: real; sa, sg: real; begin writeln('vvedite 2 chisla'); readln(a, b); sa: =(a+b)/2; sg: =sqrt(a*b); writeln('srednee arifmeticheskoe ', sa: 8: 3); writeln('srednee geometricheskoe ', sg: 8: 3); readln; end.
15. Сконструируйте программу определения количества слов в данной строке символов (начинается с буквы и заканчивается буквой). В качестве разделителей используется один пробел.
program slova; var s: string; i, k: integer;
Begin writeln('vvedite stroky'); readln(s); k: =0; for i: =1 to length(s) do if s[i]=' ' then k: =k+1; writeln('kolichestvo slov-', k+1); readln; end.
program fact; var n: integer; r: real;
function f(k: integer): real; Begin if k=1 then f: =1 else f: =f(k-1)*k; end;
Begin writeln('vvedite chislo'); readln(n); r: =f(n); writeln('factorial raven ', r: 15: 1); readln; end.
program slova; var s: string; i, k: integer;
Begin writeln('vvedite stroky'); readln(s); k: =0; i: =1; while i< =length(s)-1 do Begin if (s[i]=' ') and (s[i+1]=' ') Then Begin delete(s, i, 1); i: =i-1; End else i: =i+1; end; writeln('novaja stroka - ', s); readln; end.
18. Сконструируйте программу замены местами минимального и максимального элемента 10. массива размера Элементы массива задаются рандомно.
program znachenie; const n=10; var a: array [1..n] of integer; i: integer; max, min: integer; k1, k2, z: integer; Begin randomize; for i: =1 to n do a[i]: =5-random(10);
max: =a[1]; min: =a[1]; k1: =1; k2: =1; for i: =1 to n do Begin if a[i]> max Then Begin max: =a[i]; k1: =i; end;
if a[i]< min Then Begin min: =a[i]; k2: =i; end; end; z: =a[k1]; a[k1]: =a[k2]; a[k2]: =z; writeln('massiv '); for i: =1 to n do write(a[i]: 4); readln; end.
19. Сконструируйте программу замены знака всех элементов с четными индексами в целочисленном векторе Т(m) (m< =100) на противоположный.
program massive; const n=100; var a: array [1..n] of integer; i, m: integer;
Begin writeln('vvedite razmer massiva'); readln(m); randomize; for i: =1 to m do a[i]: =10-random(20);
for i: =1 to m do if (i mod 2)=0 then a[i]: =a[i]*(-1);
writeln('elementy massiva'); for i: =1 to m do write(a[i]: 4); readln; end.
program znach; var y: real; i: integer; Begin writeln('chislo | znachenie '); for i: =-15 to 5 do Begin y: =sin(i)/cos(i); writeln(i: 4, y: 8: 3); end; readln; end.
21. Сконструируйте программу формирования одномерного массива А(10) по следующему принципу: четные элементы равны квадрату индекса, а нечетные его обратной величине.
program massive; const n=10; var a: array [1..n] of integer; i, m: integer;
Begin for i: =1 to n do Begin if (i mod 2)=0 then a[i]: =sqr(i); if odd(i) then a[i]: =-i; end; writeln('elementy massiva'); for i: =1 to n do write(a[i]: 4); readln; end.
program pramoug; var a1, b1, a2, b2: real; s1, s2: real;
procedure pl(a, b: real; var s: real); Begin s: =a*b; end;
Begin writeln('vvedite storony 1 pramougolnika'); readln(a1, b1); writeln('vvedite storony 2 pramougolnika'); readln(a2, b2); pl(a1, b1, s1); pl(a2, b2, s2); if s1=s2 then writeln('ploschad odinakova') else writeln('ploschad raznaja'); readln; end.
program znachenie; const n=12; var a: array [1..n] of integer; i: integer; k, min: integer;
Begin randomize; for i: =1 to n do a[i]: =random(30);
min: =a[1]; k: =1;
for i: =1 to n do if a[i]< min Then Begin min: =a[i]; k: =i; end;
write('nomer ', k: 4); readln; end.
program arifmet; var a, i, n, s: integer;
Begin writeln('vvedite nachalo i konec intervala'); readln(a, n); s: =0; if a< =n then Begin for i: =a to n do s: =s+i; writeln('summa =', s: 4); End else writeln('summa ne syschestvuet'); readln; end.
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var c, f: real;
begin
writeln('vvedite gradusi farengeita'); readln(f); c: =5/9*(f-32); writeln('po celsiu - ', c: 4: 1); readln; end.
program znachenie; const n=15; var a: array [1..n] of integer; i: integer; k: integer; Begin randomize; for i: =1 to n do a[i]: =15-random(30);
for i: =1 to n do write(a[i]: 4); k: =0; writeln; for i: =1 to n do if a[i]=0 then a[i]: =sqr(i);
for i: =1 to n do write(a[i]: 4); readln; end.
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a: array of array of integer; m, n: integer; i, j: integer; k: integer;
begin writeln('vvedite razmer massiva'); readln(m, n);
setlength(a, m, n); randomize; for i: =0 to m-1 do for j: =0 to n-1 do a[i, j]: =random(20)-random(10);
k: =0;
for i: =0 to m-1 do begin k: =0; for j: =0 to n-1 do if a[i, j]< 0 then k: =k+1; write(k: 5); end; writeln; writeln('massiv'); for i: =0 to m-1 do begin for j: =0 to n-1 do write(a[i, j]: 5); writeln; end; readln; end.
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a: array of array of integer; m, n: integer; i, j: integer; sum: integer;
begin writeln('vvedite razmer massiva'); readln(m, n);
setlength(a, m, n); randomize; for i: =0 to m-1 do for j: =0 to n-1 do a[i, j]: =random(20)-random(10);
sum: =0;
for i: =0 to m-1 do for j: =0 to n-1 do if odd(a[i, j]) then sum: =sum+a[i, j];
writeln('massiv'); for i: =0 to m-1 do begin for j: =0 to n-1 do write(a[i, j]: 5); writeln; end;
writeln('summa=', sum: 5); readln; end.
program progressia; var m, q, a: real; s: real;
Begin readln(m, q); a: =1; s: =0; if (a< =m) and (q< > 0) then Begin while a< =m do Begin s: =s+a; a: =a*q; end; writeln(s); End else writeln('summa ne suschestvuet'); readln; end.
program soch; var m, n: integer; rez: real;
function fact(a: integer): real; var i: integer; p: real; Begin p: =1; for i: =1 to a do p: =p*i; fact: =p; end;
Begin writeln('vvedite znachenija'); readln(n, m); if ((m< 0) or (n< 0) or (n< m)) then writeln('rezultat nelza podschitat') Else Begin rez: =fact(n)/(fact(m)*fact(n-m)); writeln('rezultat =', rez: 0: 2); end; readln; end.
|