Что является результатом работы программы program a3

Содержание

1 Задача 1 1.1Текст Задачи Даны 4 точки, заданные координатами. Определить является ли данная фигура трапецией.

1.2Описание алгоритма

Фигура является трапецией, если две стороны ее параллельны, а две другие нет. Параллельность сторон определяется вычислением углового коэффициента по двум точкам, то есть стороны параллельны, если угловые коэффициента равны. Определение параллельности двух сторон вынесено в отдельную функцию принимающую точки исследуемых сторон и возвращающей значение истина если стороны параллельны и ложь в противном случае. В одноосновной программе, если две противоположные стороны параллельны, а две другие нет, то фигура является трапецией. Так как мы имеем 4 стороны, то рассматривается два варианта.

1.3Код программы

Program Pr1; uses crt; Type point=record x:real; y:real; end; function IsParl(P1,P2,P3,P4:point):boolean; begin IsParl:=(P2.y-P1.y)*(P4.x-P3.x)=(P4.y-P3.y)*(P2.x-P1.x); end; var P1,P2,P3,P4:point; begin clrscr; writeln(‘Последовательно введите координаты точек:’); write(‘A: ‘);readln(P1.x,P1.y); write(‘B: ‘);readln(P2.x,P2.y); write(‘C: ‘);readln(P3.x,P3.y); write(‘D: ‘);readln(P4.x,P4.y); if (IsParl(P1,P2,P3,P4)and not IsParl(P2,P3,P1,P4)) or (not IsParl(P1,P2,P3,P4) and IsParl(P2,P3,P1,P4)) then write(‘Трапеция’) else write(‘Не трапеция ‘); readln; end.

УРОК 16. Язык программирования Pascal. Часть 2. (7 класс)

1.4Результат работы программы

Результат работы программы представлен на рисунке 1.

2 Задача 2

2.1 Текст задачи

Найти сумму ряда:

2.2 Описание алгоритма

В цикле вычисляется значение члена ряда и плюсуется к сумме. Цикл продолжается до тех пор, пока значение члена ряда не будет меньше точности. Очевидно, что наиболее подходящий для данной задачи цикл это цикл с постусловием, так как ни значение члена ряда, ни необходимое число шагов цикла заранее не известны.

2.3 Код программы

Program Pr2; uses crt; var i:integer; sum,eps,r:real; begin clrscr; writeln(‘Введите точность:’); readln(eps); sum:=0; i:=1; repeat if ((i+1) mod 2=0) then r:=4/(2*i-1) else r:=-4/(2*i-1); sum:=sum+r; i:=i+1; until(abs(r)

2.4 Результат работы программы

Результат работы программы представлен на рисунке 2.

3 Задача 3

3.1 Текст задачи

Одномерный массив размерностью 2n, где n — целое положительное число, заполнен случайными положительными целыми числами. Изменить массив по следующему правилу: в первую ячейку поместить модуль разности между значениями первой и второй ячеек, во вторую — модуль разности между значениями второй и третьей ячеек, … в последнюю — модуль разности между значениями последней и первой ячеек. Определить, сколько понадобится таких преобразований, прежде чем массив будет состоять из одних нулей.

Петр Советов — Автоматизация программирования в СССР: обзор забытых теоретических результатов

3.2 Описание алгоритма

Создаем массив из случайных положительных чисел, по алгоритму указанному в задании преобразуем массив до тех пор, пока все элементы массива не станут равными нулю. При этом считаем количество таких преобразований. Преобразование массива и проверка того что все элементы равны 0 вынесены в отдельную процедуру и функцию соответственно.

3.3 Код программы

program pr3; uses crt; type TArrayT=array[1..1] of integer; PArrayT=^TArrayT; function chek(M:PArrayT; n:integer):boolean; var i:integer; begin for i:=1 to n do if (M^[i]<>0) then begin chek:=false; exit; end; chek:=true; end; procedure convert(M:PArrayT; n:integer); var i,temp:integer; begin temp:=M^[1]; for i:=1 to n-1 do begin M^[i]:=abs(M^[i]-M^[i+1]); end; M^[n]:=abs(M^[n]-temp); end; procedure print(M:PArrayT; n:integer); var i:integer; begin for i:=1 to n do begin write(M^[i]); write(‘ ‘); end; writeln(»); end; var M:PArrayT; n,i,size:integer; k:longint; begin clrscr; randomize; writeln(‘Введите n:’); readln(n); size:=round(exp(n*ln(2))); getmem(M,SizeOf(integer)*(size+1)); for i:=1 to size do begin M^[i]:=random(100); end; print(M,size); k:=0; while(not chek(M,size)) do begin convert(M,size); print(M,size); k:=k+1; end; writeln(‘Число преобразований ‘,k); readln; end.

3.4 Результат работы программы

Результат работы программы представлен на рисунке 2.

Похожие ответы, выполненные работы

Помощь с курсовой работой по информатике для ТулГУ,…
Программирование на языке высокого уровня Паскаль
Особенности и примеры использования массивов при…
Практическая работа по дисциплине «Экономика…
Лабораторная работа по дисциплине…
Лабораторная работа по дисциплине…
Лабораторная работа по дисциплине…
Практическая работа по дисциплине «Экономика…
Практическая работа по дисциплине «Экономика…
Программирование на языке Pascal

Источник: the-distance.ru

Дана программа на языке Паскаль: program a3; var x, y, z: real; begin writeln (‘ Введите три числа’); readln (x, y, z);

if (x<=y) and (y<=z) then begin x:=2*x y:=2*y; z:= 2*z end else begin x:= abs(x) y:= abs(y) z:= abs(z) end writeln( x, ‘ ‘, y, ‘ ‘, z) end Составьте блок-схему, соответствующую программе. Что является результатом работы программы?

Ответы

Будь первым, кто ответит на вопрос

Как добавить хороший ответ?

Что необходимо делать:

Написать правильный и достоверный ответ;
Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.

Что делать не стоит:

Списывать или копировать что-либо. Высоко ценятся ваши личные, уникальные ответы;
Писать не по сути. «Я не знаю». «Думай сам». «Это же так просто» — подобные выражения не приносят пользы;
Писать ответ ПРОПИСНЫМИ БУКВАМИ;
Материться. Это невежливо и неэтично по отношению к другим пользователям.

Пример вопроса

Русский язык

7 минут назад

Какой синоним к слову «Мореплаватель»?

Пожаловаться

Хороший ответ

Вася Иванов

Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.