Задание 7
Уравнение гармонического колебания точки имеет вид x(t)=ASin(ωt+φ). Составить программу для нахождения ускорения точки, совершающей гармонические колебания.
Решение:
Ускорение может быть найдена по формуле
Диалог с программой:
Program a_i_v;
Uses opcrt;
var t,w,y,A:real;
Begin
Clrscr;
Writeln;
Write(' Введите время t= ');
Readln(t);
Write(' Введите w= ');
Readln(w);
Write(' Введите y= ');
Readln(y);
Write(' Введите A= ');
Readln(A);
Writeln(' Ускорение a = ',-A*w*w*sin(w*t+y):3:3);
readln
End.
Задание 8
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
Решение:
program AB;
uses opcrt;
var a,b:integer;
begin
clrscr;
write('введите число A=');
readln(a);
write('введите число B=');
readln(b);
if( a<>b) then begin
a:=a+b;
b:=a
end
else begin
a:=0;
b:=0
end;
write('A=',a,' B=',b);
readln
end.
Задание 9
Население города увеличивается на 3 % каждый год. В 1983 году население города составляло 65000. Напишите программу, которая выведет на экран предсказуемую численность населения города в каждом году вплоть до 1999 года.
Решение:
program naselenie;
uses opcrt;
var x : real;
p:integer;
const a=65000;
Begin
Clrscr;
p:=1;x:=a;
Repeat
x:=x*(1+0.03);
Writeln('В ',1983+p:5,' году: ',x:8:0);
p:=p+1;
Until p+1983>=2000;
Readln
End.
Задание 10
Одномерный массив задается пользователем. Измените знаки всех четных элементов массива, состоящего из L чисел.
Решение:
Program massiv;
Uses opcrt;
Var i:integer;
L:byte;
a,b:array [1..100] of integer;
Begin
Clrscr;
Write('Введите размер массива (натуральное число) L= ');
readln(L);
Writeln('Введите элементы массива (натуральные числа):');
For i:=1 to L do
begin
Write('a[',i,']=');
readln(a[i])
end;
write ('Введённый массив: ( ');
For i:=1 to L do write (a[i],' ');
Writeln(')');
For i:=1 to L do
if (a[i] mod 2)=0 then a[i]:=-a[i];
write ('Полученный массив: ( ');
For i:=1 to L do write (a[i],' ');
Writeln(')');
Readln
End.
Литература
Информатика. Базовый курс под ред. Симоновича С.В., СПб, Питер, 2006.
Информатика. Учебник. Под ред. Проф. Н.В. Макаровой, М., Финансы и статистика, 1999.
Эдвард Виллетт, Дэвид Кроудер, Ронда Кроудер . «Microsoft Office 2000. Библия пользователя», М.Спб.К. Компьютерное издательство «Дилаектика».
Фигурнов В.С. IBM РС для пользователя.
Новейшая энциклопедия персонального компьютера. Леонтьев В.П. М. ОЛМА-ПРЕСС. Образование. 2004.
Епашников А.П., Епашников В.А. Программирование в среде Turbo Pascal 7.0 – М.: Диалог – МИФИ, 1993г. – 288с.
Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо-Паскаль. – М.: Изд-во МГТУ, - 442с.
В.М. Пестриков, А.Н. Маслобоев «Turbo PASCAL 7.0 изучаем на примерах» «Наука и техника», СПб, 2004 г.-356с.
Н.Культин «Turbo PASCAL в задачах и примерах», СПб, «БХВ-Петербург», 2003 г.-254с.
А. Адаменко «Turbo PASCAL на примерах из математики»,СПб, «БХВ-Петербург», 2005 г.-397с.
С.А. Немюгин «Turbo PASCAL». Учебник. – СПб. Издательство «Питер», 2000. – 496с.