3 года назад

Опишите структуру программы на языке программирования паскаль

Знания

Информатика

1 ответ:

Лариса153 года назад

0 0

Название программы.
Объявление переменных.
Процедуры и функции
Основная программа, начинаемая begin и заканчивая end.

Читайте также

Составить программу решения задачи: Ввести два числа . Если первое число больше второго, то найти их разность, иначе найти их су

Никола777 [21]

var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
if a> b then c:=a-b;
writeln(c:7:2);
end.

{2 способ}
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
if a> b then c:=a-b
else c:=a+b;
writeln(c:7:2);
end.

0 0

4 года назад

Выберите правильные записи стандартных функций на языке Паскаль Выберите несколько из 10 вариантов ответа: 1) tg(x) 2) cos 45

saplinova-2011 [2K]

Правильные варианты: 3, 5, 8

0 0

4 года назад

Прочитать ещё 2 ответа

Есть программа, код приложу,нужно ее переделать используя счетчик.Если не сложно прокомментируйте нововведения. program pr3;cons

tanayavd

Program pr3;

const {убраны лишние описатели - чистая косметика}
a = 2.12;
b = 7.45;
h = 0.34;

var
x, f1, f2, y, s: real;
i, n: integer; {описание, необходимое для цикла}

begin
{ x := a; этот оператор не нужен }
s := 0;
n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }
for i := 1 to n do { Заголовок цикла }
begin   {начало блока для выполнения в цикле }
    x := a + (i - 1) * h; { перенесено из конца цикла }
    f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x)));
    f2 := ((2 * x + 1) / (x * x * x * x * x));
    y := f1 / f2;
    s := s + y;
end; {конец блока для выполнения в цикле }
Writeln('S=', s:10:5);
end.

Тестовое решение:

S=26390.53751

0 0

1 год назад

Кто-нибудь знает как это сделать ????? пожалуйста срочно!!!!!!!!???????

Кристина-27

Объяснение:

C:\НОВОЕ\ПОКОЛЕНИЕ \ ВЫБИРАЕТ \ чтение.doc

0 0

2 года назад

Информатика дегенимиз не? Енгизу курылгыга не жатады?

Наталья Терехова

Чё ?фывфывфыфвыфвыфвфывыфвыфвывыфвффывфывфывфывыф

0 0

2 года назад