Март 4th, 2020 
admin При разработке приложений часто необходимо проверять правильность работы программы при помощи логов. Очень длинные лог-файлы обычно загружаются длительное время или программы просто зависают из-за долгого ожидания открытия.
Для быстрого просмотра длинных файлов вам поможет утилита для просмотра логов, которая быстро загружает необходимый отрезок лог-файла, позволяя сиюсекундно просмотреть содержимое лога.
Также есть возможность захвата строк или отдельных страниц в один файл, Вы можете строки с необходимым текстом и поместить в отдельный документ для быстрого доступа к данным.
Примеры математических программ на Pascal
Пример 1.
Написать программу для алгоритма двух чисел.
Program delenie;
Var a,b,x: Real;
Begin
Writeln (‘Введите два числа: ’);
ReadLn (a,b);
If b=0 then Writeln (‘На ноль делить нельзя!!!’) Else
Begin
x:=a/b;
Writeln (‘Частное равно ’,x:0:3);
End;
End.
Пример 2.
Написать программу, которая запрашивает действие(+ или -), а затем числа к которым применяются это действие и выдает результат данного действия.
Program Calculator;
Var Deistvie: Char;
Chislo1, Chislo2: Integer;
Begin
Writeln (‘Введите действие (+/-): ’);
ReadLn (Deistvie);
Case Deistvie of
‘+’: begin
Writeln (‘Введите два слогаемых: ’);
ReadLn (Chislo1, Chislo2);
Result:= Chislo1+Chislo2;
Writeln (‘Сумма двух чисел равна ’, Result);
End;
‘-’: begin
Writeln (‘Введите уменьшаемое и вычитаемое: ’);
ReadLn (Chislo1, Chislo2);
Result:= Chislo1-Chislo2;
Writeln (‘Разность двух чисел равна ’, Result);
End;
End.
Пример3.
Написать программу, которая запрашивает начальное и конечное число, а затем выдает все числа по порядку через запятую.
Program Shisla;
Var nach, con, i: Integer;
Begin
Writeln (‘Введите начальное число: ’);
ReadLn (nach);
Writeln (‘Введите конечное число: ’);
ReadLn (con);
For i:= nach To con Do
Begin
Write(i);
If i
End;
End.
. pascal программа которая запрашивает действие + или - а затем числа к которому применяется это действие и выдает результат данного действия
Опубликовано в рубрике