Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Циклический вычислительный процесс
1.С помощью while написать программу для вывода всех чисел от 1 до 10.
program z1; uses crt; var a: integer; begin clrscr; a: =1; while a< =10 do begin writeln(a); a: =a+1; end; readln; end.
2.С помощью repeat написать программу для вывода всех чисел от 1 до 10.
program z2; uses crt; var a: integer; begin clrscr; a: =1; repeat writeln(a); a: =a+1; until a> 10; readln; end.
3.С помощью for написать программу для вывода всех чисел от 1 до 10.
program z3; uses crt; var a: integer; begin clrscr; for a: =1 to 10 do writeln(a); readln; end.
4.Вычислить значения функции y=n2 – n для n от -5 до 5 с шагом 1.
program z4; uses crt; var n, y: integer; begin clrscr; for n: =-5 to 5 do begin y: =sqr(n)-n; writeln(y); end; readln; end.
5.Вычислить y= при x, изменяющемся от 1 до 9 с шагом 1.
program z5; uses crt; var x: integer; y: real; begin clrscr; for x: =1 to 9 do begin y: =sqrt(x); writeln(y); end; readln; end.
6.Вычислить m!
program z6; uses crt; var m, i, x: integer; begin clrscr; writeln('Введите m'); readln(m); x: =1; for i: =1 to m do x: =x*i; writeln(x); readln; end.
7.Вычислить P=m! /n!
program z7; uses crt; var m, n, i, x, y: integer; p: real; begin clrscr; writeln('Введите m, n'); readln(m, n); x: =1; y: =1; for i: =1 to m do x: =x*i; for i: =1 to n do y: =y*i; p: =x/y; writeln(p); readln; end.
8.Вычислить сумму чисел от 1 до введенного Вами числа n.
program z8; uses crt; var n, i, s: integer; begin clrscr; writeln('Введите n'); readln(n); s: =0; for i: =1 to n do s: =s+i; writeln(s); readln; end.
9.Вычислить сумму квадратов чисел от 1 до введенного Вами числа n.
program z9; uses crt; var n, i, s: integer; begin clrscr; writeln('Введите n'); readln(n); s: =0; for i: =1 to n do s: =s+sqr(i); writeln(s); readln; end.
10.Найти среднее значение для первых восьми натуральных чисел.
program z10; uses crt; var i: integer; x: real; begin clrscr; x: =0; for i: =1 to 8 do x: =x+i; x: =x/8; writeln(x); readln; end.
11.Составить таблицу перевода долларов в рубли от 1 до 10 с шагом 1.
program z11; uses crt; var d: integer; r: real; begin clrscr; for d: =1 to 10 do begin r: =d*30.7616587; writeln(r); end; readln; end.
12.Составить программу для вывода таблицы умножения для числа 8: 1 * 8 = 2 * 8 = 3 * 8 = ……. 8 * 8 =
program z12; uses crt; var i: integer; begin clrscr; for i: =1 to 8 do writeln(i, ' * 8 = ', i*8); readln; end. 13.Вычислить: y=
program z13; uses crt; var i, k, n: integer; y: real; begin clrscr; writeln('Введите k, n'); readln(k, n); y: =0; for i: = k-1 to n do begin y: =y+1/i; writeln(y); readln; end.
14.Написать программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2, 5 см) для значений длин от 1 до 20 дюймов.
program z14; uses crt; var d: integer; s: real; begin clrscr; for i: =1 to 20 do begin s: =d*2.5; writeln(s); end; readln; end.
15.Написать программу вывода всех четных чисел от 2 до 100 включительно.
program z15; uses crt; var a: integer; begin clrscr; a: =2; while a< =100 do begin writeln(a); a: =a+2; end; readln; end.
16.Написать программу вычисления суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.
program z16; uses crt; var a, s: integer; begin clrscr; s: =0; a: =1; while a< =99 do begin s: =s+a; a: =a+2; end; writeln(s); readln; end.
17.Написать программу, которая требует у Вас пароль, например, 111. Если пароль правильный, то все строки экрана заполняются сообщением «Молодец!».
program z17; uses crt; var password, i: integer; begin clrscr; writeln('Введите пароль'); readln(password); if password=111 then for i: =1 to 25 do writeln(" Молодец! "); readln; end.
18.Составить программу определения наименьшего общего кратного двух натуральных чисел.
program z18; uses crt; var a, b, nok: integer; begin clrscr; writeln('Введите два числа); readln(a, b); if a> b then nok: =a else nok: =b; while (nok mod a< > 0) or (nok mod b< > 0) do nok: =nok+1; writeln(nok); readln; end.
19.Вычислить наибольшее и наименьшее значение функции y=3x2 + x – 4, если на заданном интервале [a, b] x изменяется с шагом 0, 1.
program z19; uses crt; var a, b, x, y, min, max: real; begin clrscr; writeln('Введите a, b'); x: =a; y: =3*sqr(x)+x-4; min: =y; max: =y; while x< =b do begin x: =x+0.1; y: =3*sqr(x)+x-4; if y< min then min: =y; if y> max then max: =y; end; writeln(min); writeln(max); readln; end.
20.Вычислить сумму квадратов N четных натуральных чисел.
program z20; uses crt; var n, i, s: inter; begin clrscr; writeln('Введите N'); readln(n); s: =0; for i: =1 to n do s: =s+2*i; writeln(s); readln; end.
21.Вычислить 1+2 + 4 +8 +… + 210
program z21; uses crt; var i, s, x: integer; begin clrscr; s: =0; x: =1; for i: =1 to 11 do begin s: =s+x; x: =x*2; end; writeln(s); readln; end.
22.Вычислить (1+2)*(1+2+3)* …*(1+2+…+10)
program z22; uses crt; var i, s, x: integer; begin clrscr; s: =1; x: =0; for i: =1 to 10 do begin x: =x+1; s: =s*x; end; writeln(s); end.
23.Билет называют «счастливым», если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число тех «счастливых» билетов, у которых сумма трех цифр равна 13.
program z23; uses crt; var i, k, a, b: integer; begin clrscr; k: =0; for i: =100000 to 999999 do begin a: =(i mod 10)+(i mod 100 div 10)+(i mod 1000 div 100); b: =(i div 10)+(i div 100 mod 10)+(i div 1000 mod 100); if (a=13) and (b=13) then k: =k+1; end; writeln(k); end.
24.Составить программу вычисления суммы всех двухзначных чисел.
program z24; uses crt; var i, s: integer; begin clrscr; s: =0; for i: =10 to 99 do s: =s+i; writeln(s); readln; end.
25.Для заданного числа n составить программу вычисления суммы 1+ 1/2 + 1/3 +… + 1/n, где n- натуральное число.
program z25; uses crt; var i, n: integer; s: real; begin clrscr; writeln('Введите n'); readln(n); s: =0; for i: =1 to n do s: =s+1/i; writeln(s); readln; end.
26.Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется одна бактерия. Составить программу, которая рассчитывает количество бактерий на заданное Вами целое значение момента времени (7 минут, 15 минут и т.д.).
program z27; uses crt; var i, t, x: integer; begin clrscr; writeln('Введите время'); readln(t); x: =1; for i: =1 to t do x: =x*2; writeln(x); readln; end.
27.Составить программу вывода на экран всех простых чисел, не превосходящих заданного N. Простым называется натуральное число больше единицы, имеющее только два делителя: единицу и само это число.
program z28; uses crt; var i, j, n: integer; prost: boolean; begin clrscr; writeln('Введите N'); readln(n); for i: =1 to n do begin prost: =true; for j: =1 to i do if i mod j=0 then prost: =false; if prost=true then writeln(i); end; readln; end.
28.В 1202 году итальянский математик Леонард Пизанский (Фибоначчи) предложил такую задачу: пара кроликов каждый месяц дает приплод – двух кроликов (самца и самку), от которых через два месяца уже получается новый приплод. Сколько кроликов будет через год, если в начале года имелась одна пара? Согласно условию задачи числа, соответствующие количеству кроликов, которые появляются через каждый месяц, составляют последовательность 1, 1, 2, 3, 5, 8, 13, 21, 34, …
program z28; uses crt; var a, b: integer; begin clrscr; a: =1; b: =0; for i: =1 to 12 do begin b: =b+a; a: =b-a; end; writeln(b); readln; end.
29.Составить программу, которая выводит полную запись десятичного числа 42*4*, в которой пропущены две цифры, если известно, что данное число кратно 72.
program z29; uses crt; var i: integer; begin clrscr; for i: =42000 to 42999 do if i mod 100 div 10=4 then if i mod 72=0 then writeln(i); readln; end.
30.В старояпонском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. 1984 год – год зеленой крысы – был началом очередного цикла. Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю.
|