Программирование,паскаль.,умоляю,. задали написать программу на язвке паскаль: вычислить и вывести на экран 8 первых элементов ряда если каждый элемент задан формулой а1= i/sin*i
Для присваивания им значений. Например: Integer - переменные целого типа (-1, -2, -3, 3,0, 123 и т. д) Real - дробные переменные (3.88, 0.5 и т. д) Таких переменных очень много. (в том же Pascale) String - благодаря ей, с клавиатуры вводишь нужное число/слово . Var x: integer; y: real; z:string; Тогда, если сделаешь уравнение: X-Z+Y = Тебе нужно будет ввести, например: X - 56 Y - 8.56 Z - ( в данном случае число) 845 Он тебе посчитает. Если поставить, чтобы X Y Z вводились с клавиатуры, по одному алгоритму, можно решить кучу одинаковых задач с разными данными.
1 задача. Если есть ошибка или можно подругому сделать напишите. class Program { class Skier { public const float procent = 0.12f; public float distance = 7f; public float multiplication; public float alldistance; public float totalmileage = 7f;
public float Mileage(int day) { if (day == 1) { return alldistance = distance ; } else if (day >= 2 ) { for (int i = 2; i <= day; i++) { multiplication = distance * procent; alldistance = distance + multiplication; distance = alldistance; } } return alldistance; } public float TotalPath(int days) { if (days == 1) { return totalmileage = distance; } else if (days >= 2) { for (int i = 2; i <= days; i++) { multiplication = distance * procent; alldistance = distance + multiplication; distance = alldistance; totalmileage += alldistance; } } return totalmileage; } } static void Main(string[] args) { Skier skier = new Skier(); Console.WriteLine("Пробег лыжника за n дней тренировок, введите n: "); skier.Mileage(Convert.ToInt32(Console.ReadLine())); Console.WriteLine("Пробег: "+ skier.alldistance); Console.WriteLine("Суммарный путь за m дней, введите m: "); skier.TotalPath(Convert.ToInt32(Console.ReadLine())); Console.WriteLine("Суммарный путь: " + skier.totalmileage); Console.ReadLine(); } }
Задача 2. Решил ее так как я сам понял..
class Students { List<int> numbers = new List<int>(); public int countstudents; public int maxCount; public int minCount; public void clas(int n) { for (int i = 1; i <= n; i++) { Console.WriteLine("Введите кол-во учеников в классе: " ); countstudents = Convert.ToInt32(Console.ReadLine()); numbers.Add(countstudents); } maxCount = numbers.Max(); minCount = numbers.Min(); Console.WriteLine("Численность превышает на: " + (maxCount-minCount) + " ученика/ов"); } static void Main(string[] args) { Students students = new Students(); Console.WriteLine("Введите кол-во классов: "); students.clas(Convert.ToInt32(Console.ReadLine())); Console.ReadLine(); }
№1. программа на Паскале
program xxx;
var n : integer;
x : array[1..8] of integer;
begin
for n:=1 to 10 do
x[n]:=i/sin*i;
wreteln('Последовательность Х:')
for n:=1 to 8 do
write(x[i]);
readln
end.
ФОРМУЛУ ПРОВЕРЬ СВОЮ,вроде так