Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal среднее арифметическое https://www.cyberforum.ru/ pascal/ thread105813.html
даны 6 чисел найти среднее арифметическое. надо решить так чтобы программа была короткой настолько,насколько возможно с арифметической и динамической переменной. помогите пожалуйста) Добавлено...
Pascal Найти число пар последовательности, удовлетворяющих условию
даны две числовые последовательности одинаковой длины а1, а2,...аn и b1, b2,... bn. Найти число пар (аi,bi) таких, что аi<bi ( i=1,2,....,n; j=1,2,...,n) при i<j (работа с одномерными массивами)
Pascal Описать функцию BinToDec(S)... Здраствуйте,помогите пожалуйста с задачкой: Описать функцию BinToDec(S) (HexToDec(S)) целого типа, которая определяет целое неотрицательное число по его строковому представлению S в двоичной... https://www.cyberforum.ru/ pascal/ thread105810.html Pascal Массив вычисляющий сумму program c; const N=5; var a: array of integer; i,imax:integer; begin writeln('исходный массив'); for i:= 1 to N do begin a:=random(100)+50; write (a:4); end; https://www.cyberforum.ru/ pascal/ thread105808.html
Определить номера строк массива, хотя бы один элемент которых равен заданному числу Х Pascal
Задан двумерный массив чисел(таблица) размерности (NxМ). Определить номера строк массива, хотя бы один элемент которых равен заданному числу Х. Элементы этой строки уменьшить на 1.
Pascal как получить таблицу? https://www.cyberforum.ru/ pascal/ thread105789.html
Написал простенькую прогу (Латиский квадрат), как сделать чтобы он был квадратом а не одним столбиком? Program Pifagor; Uses crt; Var p: array of integer; i, j, n, c:integer; Begin...
Pascal Составить программы 1.Дано слово КОШКИ-МЫШКИ.Поменять местами части слова до и после дефиса. 2.Определить сколько слов оканчивается буквой К https://www.cyberforum.ru/ pascal/ thread105784.html max элементы Pascal
После введения с клавиатуры двухмерной матрицы (количество рядов и столбиков) целых чисел (знакового целого типа), а также введение её элементов вывести на экран отсортерованные в порядке возрастания...
Pascal Массивы https://www.cyberforum.ru/ pascal/ thread105763.html
После введения с клавиатуры произвольного одномерного массива целых чисел(в границах знакового целого типа) найти и вывести на экран самую длинную последовательность чисел, что стоят рядом и...
Pascal Массив в паскале https://www.cyberforum.ru/ pascal/ thread105759.html
Помогите составить прогу, которая формирует массив из 10 случайных чисел, каждое из которых* - целое число в промежутке от -3 до 15. В проге определяется значение наибольшего и наименьшего элемента и...
Получить в файле q все компоненты файла f, являющимися чётными числами Pascal
Дан файл f, компоненты которого являются целыми числами. Получить в файле q все компоненты файла f, являющимися чётными числами.
Pascal Методом двоичного поиска определить,имеется ли в упорядоченном массиве заданное целое число https://www.cyberforum.ru/ pascal/ thread105733.html
Народ помогите с курсовик по информатике Тема такая:Методом двоичного поиска определить,имеется ли в упорядоченном массиве заданное целое число если кто знает напишите пожалуйста :help:
334 / 181 / 68
Регистрация: 18.03.2010
Сообщений: 586
Записей в блоге: 11
18.03.2010, 13:51 0

дана цена 1 кг конфет. найти стоимость 1.2кг; 1.3кг; и т.д до 2 кг - Pascal - Ответ 606585

18.03.2010, 13:51. Показов 5870. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Niksxxx как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
 
var
 
  i,c:integer; //раздел с переменными
begin
    clrscr; //очистка экрана
  writeln('vvedite cenu'); //просим ввести
  readln(c); //читаем введенное значение
  for i:=2 to 10 do // цикл в общем чтоб не писать 10 раз одно и то же действие только с разными значениями i 
      writeln('cena',1+i/10:4:1,'kg konfeT: ',c+c*(i/10):4:1,'p.'); // вывод  на экран цены, посчитанной здесь же, не нужно обращать внимания на ":4:1" 
  readln; // чтоб успеть посмотреть на результат
end.


Вернуться к обсуждению:
дана цена 1 кг конфет. найти стоимость 1.2кг; 1.3кг; и т.д до 2 кг Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2010, 13:51
Готовые ответы и решения:

Дано вещественное число -- цена 1кг конфет. Вывести стоимость 0,1, 0,2, ..., 1 кг конфет
Помогите решить задачу. Дано вещественное число -- цена 1кг конфет. Вывести стоимость 0,1, 0,2,...

Дано вещество число - цена 1 кг конфет. Вывести стоимость 1,2,.., 10 кг конфет
Дано вещество число - цена 1 кг конфет. Вывести стоимость 1,2,.., 10 кг конфет.

Дано вещественное число - цена 1 кг конфет. Вывести стоимость 0.1,0.2, .1 кг конфет
дано вещественное число-цена 1кг конфет. вывести стоимость 0.1,0.2, ...1кг конфет.

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет. А с этим как...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2010, 13:51
Помогаю со студенческими работами здесь

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет
4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.

Дано вещественное число – цена 1кг конфет Вывести стоимость 01, 02,…, 1кг конфет
1.Дано вещественное число – цена 1кг конфет. Вывести стоимость 0.1, 0.2,…, 1кг конфет.

Напечатать таблицу стоимости 100,200,300....., 2000 г конфет(стоимость 1 кг конфет вводится с клавиатуры)
Дайте код прог. (Уважения Вам за вашу роботу) Напечатать таблицу стоимости 100,200,300.....,...

Цикл с параметром ( найти стоимость х кг конфет )
Дано вещественное число - цена 1кг конфет. Вывести стоимость 0.1,0.2,...,1кг конфет. Спасибо...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru