Меню сайта

Идет k-ая секунда суток. Определить, сколько полных часов и полных минут прошло к этому моменту от начала суток.


Program begin_19-

var k:integer-

begin

writeln(‘введите число секунд’)-

readln(k)-

writeln(k div 3600,’ полных часов, ‘, k div 60,’ полных минут)-

readln-

end.

Категория: Линейные программы | Дата: 01.12.12

Дана сторона квадрата a. Найти его площадь S=a2.
Program kvadrat2-
Uses crt-
Var a,S :integer-
Begin
Clrscr-
Writeln(‘введите cторону квадрата а‘)- readln(a)-
S:=sqr(a)-
Writeln(‘Площадь равна:’,S)-
readln-
End.
Категория: Линейные программы | Дата: 30.11.12

Три сопротивления R1, R2 и R3соединены параллельно. Найти сопротивление соединения R0.


Program begin_20-

var r1,r2,r3,r0:real-

begin

writeln(‘введите сопротивление R1’)-

readln(r1)-

writeln(‘введите сопротивление R2’)-

readln(r2)-

writeln(‘введите сопротивление R3’)-

readln(r3)-

r0:=1/(1/r1+1/r2+1/r3)-

writeln(‘общее сопротивление R0’,r0:4:4)-

(далее…)

Категория: Линейные программы | Дата: 30.11.12

Однасторона прямоугольника на 5 см.длиннее другой, а сумма их длин равна 17 см. Найти стороны этого прямоугольника.

uses crt-

varsumma,raz,st:real-

storona1,storona2:real-

begin

ClrScr-

writeln(‘Введите сумму длин сторон прямоугольника’)-

readln(summa)-

writeln(‘Введите на сколько одна сторона большедругой’)-

(далее…)

Категория: Линейные программы | Дата: 30.11.12

Нефтебазаотпустила за два дня 2560 л.бензина. Во второй день база отпустила на 280 л. больше. Сколько литров бензина базаотпустила отдельно за каждый день?

uses crt-

varsumma,raz,st,day1,day2:real-

begin-

clrscr-

write(‘Сколько литров бензина отпустила нефтебаза за 2дня’)-

readln(summa)-

writeln(‘Введите на сколько отпущенное кол-во бензинаодного дня больше чем другого’)-

(далее…)

Категория: Линейные программы | Дата: 30.11.12

Одночисло в 2 раза больше другого, а их сумма равна 93. — Найти эти числа.

uses crt-

varsumma,raz,st,storona1,storona2:real-

begin

ClrScr-

writeln(‘Введите сумму двух чисел’)-

readln(summa)-

writeln(‘Введите во сколько раз одно больше другого’)-

readln(raz)-

st:= summa / (raz +1)-

storona1:= st-

storona2:= st *raz-

(далее…)

Категория: Линейные программы | Дата: 29.11.12

Составьтеалгоритм и программу для определения сдачи после покупки в магазине товара:перчаток стоимостью а руб., портфеля стоимостью б руб., галстука стоимостью сруб. Исходная сумма, выделенная на покупку d руб. В случае нехватки денег сдачаполучится отрицательной.

uses crt-

varchange,per,por,gal,cash:longint-

(далее…)

Категория: Линейные программы | Дата: 29.11.12

В течениимесяца продавец доставлялна дом молока в день. В марте молоко стоило х руб за литрСпервого апреля цена молока увеличилась до [x+a] руб за литр Сколько надозаплатить продавцу за все доставленное молоко в конце апреля? Кол-во покупаемогомолока осталось прежним.

uses crt-

var march,april,payment:real-

(далее…)

Категория: Линейные программы | Дата: 29.11.12

Даны стороны прямоугольник —aи —b. Найти его площадьS= —a*bи периметр —P —= 2*(a —+ —b).
Program ploshad-
Uses crt-
Var a,b,P,S :real-
Begin
Clrscr-
Writeln(‘введите сторону прямоугольника а‘)- readln(a)-
Writeln(‘введите сторону прямоугольника b‘)- readln(b)-
S:=a*b-
Категория: Линейные программы | Дата: 29.11.12

Дан диаметр окружности —d. Найти ее длину —L —= —?*d. В качестве значения —? —использовать -3.14.
Program dlina-
Uses crt-
Var L,d :real-
const pi=3.14-
Begin
Clrscr-
Writeln(‘введите диаметр окружности‘)- readln(d)-
L:=pi*d-
Writeln(‘Длина равна: ‘,L:5:3)-
readln-
End.
Категория: Линейные программы | Дата: 28.11.12

Страница 2 из 3123
Меню раздела
Блок