Program task1;
var n, S, k, i: integer;
begin
write('Кол-во чисел = ');
readln(n);
S := 0;
For i := 1 to n do
begin
write('Введите число ');
readln(k);
S := S + k
end;
writeln('Сумма введенных произвольных чисел = ', s);
end.
Практически во всех языках программирования применяются компоненты, которые называются циклами. Возможно обойтись и без них, но этот подход редко применяется среди программистов, поскольку современные приложения используют пакетную обработку данных. Каждый разработчик программного обеспечения должен решать самостоятельно, стоит ему применять циклы или нет. Специалисты, опираясь на психологию человека, разработали специализированный алгоритм. Если выполнять все его пункты, то результат будет поразительным. Инструкцию также можно использовать для изучения какой-либо другой дисциплины, но в этом случае ее необходимо переделать. Для теории применяется такой алгоритм: Достоинства и недостатки применения циклов. Синтаксис, необходимый для использования циклических операторов. Общая информация о блок-схемах. Абстрактные модели. Далее следует разобрать подробно каждый пункт инструкции. Пропускать их запрещается. Обучаемый потеряет зря время либо сам процесс обучения существенно увеличится. Для начала нужно разобрать основные достоинства и недостатки применения циклов в Турбо Паскале.
Объяснение:
#include "stdafx.h"
#include <stdio.h>//i/o
#include <conio.h> //_getch()
#include <ctype.h> //toupper
int main()
{
long i,n;
float cost, p,buf;
do
{
printf("Vvedite pervonachalnuy stoimost : ");scanf_s("%f",&cost);
printf("Vvedite procent p % : ");scanf_s("%f",&p);
printf("Vvedite n chisl Let : ");scanf_s("%u",&n);
for(i = 0; i < n; i++)
{
printf("Let %u\r\n",i + 1);
buf = cost*p/100;
printf("Stoimost za zimmu + : %f\r\n",(cost += buf));
buf = cost*p/100;
printf("Stoimost za zimmu -: %f\r\n",(cost -= buf));
}
printf("Stoimost %u Let %f\r\n",i,cost);
printf("Najmite Y - new input\r\n");
}
while(toupper(_getch()) == 'Y');
return 0;
}
Блок-схема во вложении.
Програмка:
Program YRR;
var n, i: integer; temp, k, m, sum: real;
begin
writeln('*** alphaues is thinking... ***');
write('Введите количество чисел = ');
readln(n);
Sum:=0;
For i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(temp);
if i=1 then k:=temp;
if i=n then m:=temp;
Sum:=Sum+temp;
end;
writeln('Сумма введенных чисел = ',sum);
writeln('Первое число К = ',k);
writeln('Последнее число М = ',m);
end.