Циклы. Вычислить сумму ряда чисел Program sum; var a: integer; s: real; Begin a:=1; s:=0; while a<600 do begin a:=a+1; s:=s+1/a; end; writeln ( ' s=

Презентация:



Advertisements
Похожие презентации
program Stepeny_a; Uses Crt; var a,b,c : real; begin writeln ( Введите числа a и b ); readln ( a, b ); c := a; while c < b do begin writeln (c:8:2) ;
Advertisements

Учитель информатики "СОШ 6" г. Кирова Захарова Е.В. ЦИКЛЫ В ПАСКАЛЕ.
ЦИКЛ «ДО» i:=1,n действия … FOR i:=1 TO n DO Begin Действия End; …
Тема: «Понятие квадратная матрица» :17:47.
Организация повторений в Паскале. i,1,n Действие 1 Действие 2 i,1,n Действие 1 Действие 2 FOR i:=1 TO N DO BEGIN действие 1; действие 2; END; FOR i:=1.
Задачи по теме Организация ветвления на языке Паскаль урок для 9 класса Селиверстова Ольга Николаевна учитель информатики МБОУ СОШ 17 г.Саров Нижегородской.
Циклические алгоритмы. Циклическими называются алгоритмы, в которых повторяется определенная последовательность действий (тело цикла). Определение.
Самостоятельная работа по теме «Условный переход».
Условие? Действия1Действия2 данет. Задача С клавиатуры вводятся не равные между собой числа а и b. Большее из этих чисел заменить их суммой, а меньшее.
Тема: «Понятие массива. Назначение. Тип. Размер. Размерность. Одномерный массив» :56:36.
Линейные алгоритмы в Pascal (Урок 4). Линейные алгоритмы Задача 1. Написать программу нахождения суммы цифр двухзначного числа. Program sum2; Var a, a1,
Задача: определить является ли простым заданное число.
Решение задач. Вариант 1 1. Чему равна максимальная длина строки? 2. При помощи операций копирования и склейки из слова «жемчужина» составить слова: «чужие»,«муж».
Организация повторений в Паскале. Найди ошибки: Program new Uses crt; Var a, b, c integer Begin clrscr Readln(a,b); C:=a*a+b*b Wreteln(c); End.
Алгоритмическая структура цикл Алгоритм циклической структуры - это алгоритм, в котором происходит многократное повторение одного и того же участка программы.
Тема: « Вставка- удаление элементов массива » :18:06.
For i:=N1 to N2 do Begin тело цикла End; While do begin ; ;......end;
Практикум по теме «Организация циклов» Пункт плана Проверка домашнего задания Цикл ? Операторы бывают … Цикл с.
Оператор цикла с предусловием. Оператор цикла с предусловием используется в тех случаях, когда заранее неизвестно число повторений цикла. Форма записи.
Условный оператор. Алгоритм с ветвлением – это такой алгоритм, в котором осуществляется выбор одного из двух путей продолжения алгоритма. На TPascal данный.
Транксрипт:

Циклы

Вычислить сумму ряда чисел

Program sum; var a: integer; s: real; Begin a:=1; s:=0; while a

Вычислить сумму ряда чисел

Program sum; var s :real; a, n: integer; Begin writeln (Введите n); readln (n); a:= 1 ; s:=0; while a< n do begin a:=a+1; if a mod 2=0 then s:=s+1/a else s:=s-1/a; end; writeln (сумма ряда равна s=, s:5:3); end.

Дано число N. Вывести все делители этого числа.

var i,n:integer; begin writeln('Введите N'); readln(n); for i:=1 to n do if n mod i=0 then write(i:4); end.

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать).

uses crt; var i, j, k: integer; begin for i:=1 to 9 do for j:=0 to 9 do begin for k:=0 to 9 do if (ij) and (ik) and (jk) then write(i*100+j*10+k, ' '); writeln; end; end.

Составить алгоритм решения ребуса ДРУГ+ГУРД = 7777 (различные буквы обозначают различные цифры, старшая не 0).

uses crt; var d, r, u, g: integer; begin for d:=2 to 9 do for r:=0 to 9 do for u:=0 to 9 do for g:=1 to 9 do if (du) and (dr) and (dg) and (ru) and (rg) and (gu) and (d*1000+r*100+u*10+g+g*1000+u*100+r*10+d=7777) then write(d,r,u,g, ' '); end.

ПРИДУМАТЬ РЕБУС И НАПИСАТЬ ПРОГРАММУ РЕШЕНИЯ ЭТОГО РЕБУСА.

Составить алгоритм решения ребуса КОТ+ТОК = ААА (различные буквы обозначают различные цифры, старшая не 0).