program square;. R, L, S : real;. write ('Введите длину окружности :');. readln (l);. S:=pi*sqr(r);. writeln ('Площадь круга равна: ',S, 'кв.единиц');

⇐ ПредыдущаяСтр 5 из 8Следующая ⇒

program square;

Const

pi=3.1415926;

var

R, L, S : real;

begin

write ('Введите длину окружности :');

readln (l);

r:=l/(2*pi);

S:=pi*sqr(r);

writeln ('Площадь круга равна: ',S, 'кв.единиц');

end.

Пример1.

Найти произведение цифр заданного целого положительного четырехзначного числа N.

PROGRAM PR_1;

VAR

N,P :word;

N1, N2, N3, N4 : byte;

BEGIN

Writeln(‘ введите натуральное 4-х значное число’);

Readln (N); {ввод заданного числа}

N4:= N mod 10; { последняя цифра}

N1:= N mod 1000; { первая цифра}

N2:= N div 100 mod 10;{вторая цифра}

N3:= N div 10 mod 10; {третья цифра}

P:= N1*N2* N3*N4;

Writeln (‘ ‘,N :5, ‘ ‘, P:6);

Readln;

End.

Пример 2. Для заданного вещественного числа определить последнюю цифру его целой части и первую цифру дробной части

PROGRAM PR_2;

VAR

A: real; {исходное вещественное число}

B: longint;

C : real; {рабочая переменная}

BEGIN

Writeln (‘ Введите вещественное число ‘); { строка – приглашение к вводу}

Readln (A); {ввод числа}

B:= Trunc (A); {отбрасывание дробной части}

Writeln( ‘ Последняя цифра целой части‘, B mod 10);

C:= Frac( A); {выделение дробной части}

Writeln (‘ Первая цифра дробной части‘, Trunc (C*10));

Readln;

End.

Пример 3. Написать программу, которая печатает true или false в зависимости от того, выполняется или нет заданное условие:

Квадрат заданного трехзначного целого положительного числа равен кубу суммы цифр этого числа.

PROGRAM PR_3;

VAR

N1,N2, N3, S :byte; {}

N: word; {}

T: boolean; {}

BEGIN

Writeln (‘ ‘);

Readln (N);

N1:= N div 100;

N3:=N mod 10;

N2:= N div 10 mod 10;

S:=N1+N2+N3;

T:= Sqr(N)= Sqr (S) *S;

Writeln(T);

Readln;

End.

ВАРИАНТЫ ИНДИВИДУАЛЬНЫХ ЗАДАНИЙ К КОНТРОЛЬНОЙ РАБОТЕ

ЗАДАНИЕ №1

ЗАДАЧА 1.

1. Присвоить целой переменной h третью от конца цифру в записи целого положительного числа k (например: k=130985, то h=9). (Нужно разработать программу, h := (K div 100) mod 10 )

2. var k:integer; { заданное число }3. h:string; { третья цифра заданного числа }4. s:string; { число, представленное в виде строки символов }5. begin str(k,s); { преобразовали число в строку 13098 -> '13098' }6. h:=copy(s,length(s)-2,1) { выделили нужную цифру }7. end.

8. Присвоить целой переменной d первую цифру из дробной части положительно вещественного числа (так, если x=32.975 то d =9).

9. var x:real; { заданное число }10. d:integer; { первая цифра дробной части заданного числа }11. s:string; { число, представленное в виде строки символов }12. begin str(x,s); { преобразовали число в строку 32.597 -> '32.597' }13. d:=copy(s,pos('.',s)+1,1) { выделили нужную цифру }14. end.15.

16. Присвоить целой переменной L сумму 2-х последних цифр целой части положительного вещественного числа (так, если x=143.57, то L=4+3=7).

17. найти произведение 2-х первых цифр из дробной части положительного вещественного числа (так , если x=31.956, то P=9*5=45).

18. #include <math.h> #include <stdio.h>

19. int main(){ double x = 31.956; double k; double P = 0; P = floor(modf(x, &k)*10) * floor(modf(x*10, &k)*10); printf("Result is: %f", P); }

20. Вычислить дробную часть среднего геометрического 3-х заданных положительных чисел.

#include <cstdlib> #include <cstdio> #include <iostream> #include <math.h> using namespace std; int main(int argc, char** argv) { int a, b, c; float x; cout << "Введите a - "; cin >> a; cout << "Введите b - "; cin >> b; cout << "Введите c - "; cin >> c; x = pow(a * b * c, 1.0 / 3); printf("Дробная часть - %5.3f \n", x - int(x)); return 0; }

21. Написать программу, которая для заданного А печатает следующую таблицу: А А³ А³ А

22. Значениями литерных переменных С0,С1,С2, являются цифры. Присвоить целой переменной L число, составленное из этих цифр (С0=’1’,С1=’3’,С2=’5например, то L=135)/

uses crt; const zn:string[8]='01234567';//символы в СС 8 var s:string;//глобальные переменные число и строка r:longint; procedure DecToOct;//10 в 8 begin clrscr; write('Введите целое число в СС 10 r='); readln(r); s:=''; while r>0 do begin s:=zn[r mod 8+1]+s; r:=r div 8; end; writeln('Число в СС 8=',s); readln end; procedure OctToDec;//8 в 10 var i,k,j:integer; f:longint; begin clrscr; repeat k:=0; write('Введите целое число в СС 8 s='); readln(s); for i:=1 to length(s) do if not(s[i] in ['0'..'7'])then begin writeln('Это не число в СС 8!, повторите ввод.'); k:=1; end; until k=0; r:=0;f:=1; for i:=length(s) downto 1 do begin r:=r+f*(ord(s[i])-48); f:=f*8; end; writeln('Число в СС 10=',r); readln end; var w:char;//локальная переменная для выбора действия begin clrscr; repeat clrscr; writeln('Выберите направление перевода:'); writeln('1-из десятичной в восьмеричную'); writeln('2-из восьмеричной в десятичную'); writeln('другое - выход'); readln(w); case w of '1':DecToOct; '2':OctToDec; else exit; end; until not (w in ['1','2']); end.

23. Присвоить литерным переменным С0,С1,С2 левую, среднюю и правую цифры 3-х значного числа k.

#include <stdio.h> #include <conio.h> char c1,c2,c0; int k,x,y,z; main() { clrscr(); printf("vvedite k="); scanf("%d",&k); x=k / 100; y=k % 100 / 10; z=k % 10; x=(x)+48; y=(y)+48; z=(z)+48; c1=char(x); c2=char(y); c0=char(z); printf("\nc1=%c",c1); printf("\nc2=%c",c2); printf("\nc0=%c",c0); getch(); return 0; }

24. Используя литерный вывод, вывести на экран значение 4-х значного целого положительного числа.

25. Дано 3-х значное отрицательное число. Используя литерный ввод, ввести его посимвольно и присвоить целой переменной k.

26. Дана последовательность литер, имеющая вид: d1+d2-d3*d4(di, i=1,4 – цифры). Вычислить значение выражения.

uses CRT;

function func(xx: Extended): Extended;

begin

func:=exp(-2*xx) - 2*xx + 1

end;

function dfunc(xx: Extended): Extended;

begin

dfunc := -2*exp(-2*xx) - 2

end;

CONST

eps0 : Real = 0.1;

deps = 10;

eps_count = 12;

x0 :Extended = 3;

VAR

r, r1: Extended;

count: array [1..eps_count] of Integer;

i, c: Integer;

ln10: Extended;

BEGIN

ClrScr;

ln10 := ln(10);

for i:=1 to eps_count do

begin

r1 := x0;

r := r1 - func(r1)/dfunc(r1);

c:=1;

while abs(r - r1) > eps0 do begin

r1 := r;

r := r1 - func(r1)/dfunc(r1);

{ writeLn(c,' ',r,' ',r1);}

inc(c);

{ if KeyPressed then Halt(0);}

end;

count[i]:=c;

WriteLn(r,' ',eps0:8,' ', count[i],' ',-ln(eps0)/ln10:8:0);

eps0 := eps0 / deps;

end;

END.

27. Используя только литерный ввод, ввести вещественное число, описанное в виде –dd.dd, и присвоить его вещественной переменной х.

uses crt; var c:char; w:real; i:byte; begin clrscr; writeln('Введите число в формате -dd.dd'); w:=0; i:=1; repeat c:=readkey;//читаем код клавиши if (i=1) and(c='-') then//если первый и минус, нормально begin i:=i+1; write(c); end else if(i=4)and(c='.') then//если четвертый и точка, нормально begin i:=i+1; write(c); end else if(i in [2,3,5,6]) and(c in ['0'..'9']) then//если цифры и на месте begin write(c); i:=i+1; w:=w*10+(ord(c)-48);//умножаем число на 10 и прибавлям еще цифру end; until i>6; writeln; w:=w/-100;//делим на -100 write(w:0:2); readln end.

28. Используя только литерный ввод, ввести вещественное число, записанное в виде : d.ddE-d, и присвоить его вещественной переменной y.

29. #include <math.h>

30. #include <iostream>

31. #include <conio.h>

32. using namespace std;

33. int n1,n2,n3,n4; // объявляем переменные

34. char c1,c2,c3,c4;

35. float y;

36. int main()

37. {

38. cout<<"Vvedite d.ddE-d ";

39. cin>>c1>>c2>>c2>>c3>>c4>>c4>>c4; // считываем строку

40. n1=(int)c1-48; // преобразуем из char в int

41. n2=(int)c2-48;

42. n3=(int)c3-48;

43. n4=(int)c4-48;

44. y=(n1+n2*0.1+n3*0.01)*exp(-n4*log(10.0)); // переносим запятую

45. cout<<"Otvet "<<y; // записываем ответ

46. getch(); // задержка

47. return 1;

48. }

49. Вывести 4-х значное отрицательное число в виде последовательности символов.

⇐ Предыдущая 1 2 3 456 7 8 Следующая ⇒