Рылся у себя на флешке (в 16 гб запутаться, действительно, несложно) и наткнулся на папку TURBO, в которой лежал Turbo Pascal. Некоторые исходники моих программ там сохранились. Вот выкладываю программу, позволяющую по стоимости одного кг вывести стоимости 100 г, 200 г, 300 г и т.д. того же продукта. Кому-то такая программа покажется бессмысленной, может кто найдет ей применение. Я же ее когда-то писал с целью демонстрации работы цикла For.
uses crt; var i : integer; P : real; begin clrscr; writeln ('ВВедите цену одного кг и нажмите <Enter> (копейки от рублей отделяются точкой)'); readln (P); Writeln ('Вес, г Стоимость, руб'); For i := 100 to 1000 Do begin if (i = 100) or (i mod 100 = 0) then Writeln (i,' ',i*P/1000:6:2); end; readln; end.
Исходник в формате паскаля: kg.pas [342 b] (cкачиваний: 6)
Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним! Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
