Необходимо спроектировать, протестировать и разработать систему, соответствующую нижеописанному сценарию. Любая написанная программа должна включать подсказку для ввода данных, сообщение об ошибке и другую необходимую введённую ясную и понятную информацию. Любые переменные, константы и другие используемые идентификаторы должны быть обозначены. Создать проект, который позволяет рассчитать зависимость частоты колебаний основного тона струны от ее длины l, плотности ρ, площади поперечного сечения S и силы натяжения F, используя выражение:
Задача 1. var a,b,c,x: integer; begin readln(x); a:= x mod 10; x:= x div 10; b:= x mod 10; x:= x div 10; c:= x; if (a=b) or (a=c) or (b=c) then writeln('Есть') else writeln('Нет'); end.
Задача 2. var a,b: integer; begin readln(a,b); If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln('да') else writeln('нет'); end.
Задача 3. var x: real; begin readln(x); if (x=<5) and (x>=1) then writeln('да') else writeln('нет'); end.
Задача 4. Справка: Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних. var x: integer; begin readln(x); for i:=1 to 3 do begin d:= x mod 10; x:= x div 10; s1:= s1+d end; for i:=1 to 3 do begin d:= x mod 10; x:= x div 10; s2:= s2+d end; if s1=s2 then writeln('да') else writeln('нет') end.
Задача 5. Справка: год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. var x: integer; begin readln(x); If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then writeln('да') else writeln('нет') end.
Программа ворд пад предназначенна для редактивирования текстов.WordPad — текстовый процессор, входящий в состав Microsoft Windows, начиная с Windows 95. Обладает бо́льшим набором инструментов, чем Блокнот, но не дотягивает до уровня полноценного текcтового процессора вроде Microsoft Word или OpenOffice.org Writer. WordPad представляет собой эволюционировавшую версию программы Windows Write из Windows 1.0.Поддерживает форматирование и печать текста, но не имеет ряда таких важных инструментов как таблицы и средств проверки орфографии
program Struna;
uses crt;
var F, p, l, S, nu:real;
begin
clrscr();
writeln('Данная программа рассчитывает частоту колебаний струны в зависимости от её физических параметров и силы натяжения') ;
write('Укажите длину струны в метрах: ');
readln(l);
while l<0 do begin
write('Длина струны не может быть отрицательным числом, повторите ввод: ');
readln(l) end;
write('Укажите укажите силу натяжения струны в Ньютонах: ');
readln(F);
while F<0 do begin
write('Сила натяжения струны не может быть отрицательным числом, повторите ввод: ');
readln(F) end;
write('Укажите площадь поперечного сечения струны в квадратных метрах: ');
readln(S);
while S<0 do begin
write('Площадь поперечного сечения струны не может быть отрицательным числом, повторите ввод: ');
readln(S) end;
write('Укажите плотность струны в кг/м³: ');
readln(p);
while p<0 do begin
write('Плотность струны не может быть отрицательным числом, повторите ввод: ');
readln(p) end;
nu:=1/2/l*sqrt(F/p/S);
write('На основе введенных данных частота колебания струны составляет ',nu,' Гц');
readln;
end.
Объяснение:
Программа на языке Паскаль