Pascal | SEclub.org
Pascal
Все новые
:SanchO: program srAr; var input,count,result:integer; average:real; begin count:=0; result:=0; input:=0; repeat write("Number #", count+1, ": "); readln(input); count:=count+1; result:=result+input; until(input<0); average:=result/(count-1); writeln("Summ: ", result); writeln("Average: ", average); end.

Ссылка на пост
Всего сообщений: 731
*
vinni18
11 фев 2010 в 10:48
привет всем,очень прошу вашей помощи-нужно написать несколько программ,а точнее эти :strela: upwap.ru/744199 завтра надо сдавать,а я их не могу сделать. Выручите? Буду очень благодарен :)
11 фев 2010 в 10:48 / vinni18 (1)
*
vinni18
11 фев 2010 в 14:47
ну не поверю,что никто не может-столько народу уже заходило :( мне очень нужно,пожалуйста
*
Virtl_89
11 фев 2010 в 21:40
vinni18, на когда те оно нуна?
*
Pavlus
11 фев 2010 в 22:09
vinni18, как и все, как всегда в последний момент...
*
vinni18
12 фев 2010 в 14:41
Pavlus,Virtl_89, понедельник-вторник...где-то так :)
12 фев 2010 в 14:42 / vinni18 (1)
*
vinni18
15 фев 2010 в 15:50
Хотя бы с 2-мя заданиями помогите 1)Ввести текст Х, не менее 10 слов. Удалить из всех слов данного текста гласные буквы О и И, подсчитать количество оставшихся букв в тексте(не считая символов, не являющихся буквами(пробелов и т.п.))
*
vinni18
15 фев 2010 в 15:51
2)Работа с динамической памятью. Дан список студентов. Элемент списка содержит фамилию, номер группы, оценки по 3-м экзаменам последней сессии. Вывести информацию о начислении стипендии, предполагая, что отличникам выплачивается сумма S1, тем, у кого "4" и "5" - S2, троечникам не выплачивается
*
Sanch0SEK
18 фев 2010 в 13:04
Люди, помогите пожалуйста!
Я вот набросал код на С++ - перепишите пожалуйста на TurboPascal. Идея проги вроде понятна из комментариев, но на всякий случай расскажу отдельно:
Программа с помощью цикла repeat..uint предлагает пользователю ввести число и суммирует их, пока не будет введен 0. Если пользователь введет 0 - выходим из цикла, вычисляем среднее арифметическое введенных чисел и выводим на экран сумму всех чисел и их среднее арифметическое... Только нужно чтобы цикл был именно repeat..iunt. Код с самого начала требовался на TurboPascal"е, я набросал его на С++ чтобы показать логику работы кода....
Код на С++:
#include <iostream.h>
#include <conio.h>
/*
Сначала создаем необходимые для работы переменые
input - сюда будет помещаться введенное число
count - здесь будет храниться количество введенных чисел
result - сюда будут суммироваться введенные числа
average - среднее арифметическое введенных чисел
*
Sanch0SEK
18 фев 2010 в 13:09
Заходим в цикл do..while: Просим пользователя ввести число (и рядом пишем порядковый номер вводимого числа). После ввода
увеличиваем сумму всех введенных чисел на введенное число. Увеличиваем количество введенных чисел.
Проверяем условие: если введенное число больше нуля - переходим к следующей итерации, иначе - выход из цикла....
Если мы вышли из цикла: получаем среднее арифметическое разделив сумму введенных чисел на их количество. Выводим результаты работы... P.S. От count отнимаем не 1, а 1.0 чтобы потом результат деления был float! */
*
Sanch0SEK
18 фев 2010 в 13:10
int main(void) {
int input=0, count=0, result=0;
float average=0;
do {
cout << "Number #" << (count+1) << ": ";
cin >> input; result += input; count++;
} while(input>0);
average = (result/(count-1.0));
cout << endl << "Summ: " << result << endl;
cout << "Average: " << average << endl;
getch();
return 0;
}
*
ImIeee
21 фев 2010 в 13:49
:SanchO: program srAr; var input,count,result:integer; average:real; begin count:=0; result:=0; input:=0; repeat write("Number #", count+1, ": "); readln(input); count:=count+1; result:=result+input; until(input<0); average:=result/(count-1); writeln("Summ: ", result); writeln("Average: ", average); end.
21 фев 2010 в 13:53 / ImIeee (1)
*
prizrak95
26 фев 2010 в 18:35
кто рascal знaeт , подскaжитe кaк в нём рaботaть с рeeстром
Для полноценного использования разделов сайта войдите или зарегистрируйтесь.
Создание сайтов и программирование | Компьютеры | Форум | Главная
18+ © Seclub.org 2003-2025