Збірник задач і відповіді з Паскаля 5 частина
| [ · Скачати дистанційно () ] | 10.02.2013, 16:12 |
| 1. Тіло плаває в рідині густиною ро. Визначити густину тіла, якщо співвідношення його підводної і надводної частин становить а. program gustina; var ro1,ro,a:real; begin writeln('vvedit gustinu vodi'); readln(ro1); writeln('vvedit vidnoshennja a'); readln(a); ro:=ro1*a; writeln('gustina tila - ',ro:3:2); readln; end. 2. Чи пройде цеглина з сторонами а, в, с через квадратний отвір розміром х. program ceglina; var a,b,c,x:integer; begin writeln('vvedit znachennja a'); readln(a); writeln('vvedit znachennja b'); readln(b); writeln('vvedit znachennja c'); readln(c); writeln('vvedit znachennja x'); readln(x); if (a<x) and (b<x) and (c<x) then writeln('ceglina cherez otvir projde') else writeln('ceglina cherez otvir ne projde'); readln; end. 3. Скласти таблицю значень функції на проміжку (а,в) з кроком к. program znachennja_funkciji; var x,y,a,b,k:real; begin writeln('vvedit a - pochatok promigky'); readln(a); writeln('vvedit b - kinec promigky'); readln(b); writeln('vvedit k - krok zminu parametra x'); readln(k); writeln(' x y '); Writeln('______________'); while x<=b do begin y:=exp(ln(3)*х); writeln(x:6:1,y:9:2); x:=x+k; end; readln; end. 4. В просторі задано N точок, координати яких зведено в масиви X[N], Y[N], Z[N]. Визначити, яка з цих точок лежить найдалі від центра координат. 5. Результати змагань з гімнастики зведено у масиві A[N,M]. Доповнити масив двома стовпчиками, в першому сума набраних балів, в другому – зайняте місце. 6. Дано текст. Визначити кількість слів, що починаються на певну літеру. program kilkict_sliv; var a,b:string; i,k:integer; begin writeln('vvedit text'); readln(a); writeln('vvedit bukvu'); readln(b); | |
|
| |
| Переглядів: 753 | Завантажень: 322 | | |
| Всього коментарів: 0 | |